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Si  Ton  souhaite  done  faffichagc  d’un  seul  caractere,  il  se  peut 
que  plusieurs  caracteres  soient  affiches,  meme  apres  n'avoir  en- 
fence  qifunc  seulc  touclie.  Ceci  est  alors  do  a  un  precedent  emploi 
continu  d’une  touche  qui  a  ete  memorise  dans  la  memoire  du  clavier. 
Ce  probleme  peut  6tre  evitc  si  Ton  inscre,  a  pres  Tin  struct  ion 
INKEYS,  une  petite  boucle  permettant  de  vider  le  tampon  du  clavier. 

Cette  boucle  a  la  structure  suivante  : 


REPEAT 

UNTIL  WK13Y$="B 


Une  autre  petite  astuce  du  BASIC  GCA  est  la  combinaison  des 
instructions  LEN  et  INKEYS.  Toute  person ne  S’etant  d^jil  occupec 
serieusement  de  la  programmat ion  en  BASIC  connait  la  structure 
d’une  boucle  dfattenle  du  clavier  : 

100  A$-INKEY$:IF  A$="  THEN  GOTO  100 
Eh  BASIC  GfA,  cette  boucle  est  remplacee  par  : 


REPEAT 

U  TIL  LEN’ (IN KEY 


OU 


REPEAT 

UNTIL  IN  KEYS  O'*" 


$a  fonction  restc  toujours  la  memo  :  attendre  qu’une  touche  quel- 
conque  soil  enfoncee.  Pour  savoir  si  une  certain©  touche  a  ete 
utilised,  on  dispose  dans  les  autres  interpreters  BASIC  de  la 
possibility  traditionnelle  : 

100  A$=INJKEY$:1F  ASo^b"  THEN  GOTO  100 
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1.  Le  BASIC  GfA 


Longtcmps  avant  la  sortie  des  premieres  versions  iniermediniFes,  on 
pouvait  entendre  des  touanges  sur  ce  prodige.  Person  ne  ne  Pavait 
encore  vu,  mats  si  seu  lenient  one  par  tie  des  bruits  se  revela  it 
vrai  ... 


Comme  on  le  salt  aujourd'hui,  ce  lfen  fu(  pas  qu*une  parlie.  A  pres 
avoir  charge  fin  juin  la  version  finale  executable,  je  fits 
stupefait.  Jusqu'alors,  j'avais  )’ habitude  de  trafiquer  mon  BASIC 
ST  par  de  nombreux  trues  et  asutces.  Et  maintenant,  voila  que  je 
decouvrais  des  instructions  m’off  ram  tout  naturellement  ces 
possibilities  sans  avoir  a  m’arrachcr  les  cheveux  et  me  rongei  ks 
ongles  pour  les  appliquer.  En  plus,  le  nouveau  BASIC  rtTapportail 
des  instructions  auxqudlcs  je  n'avais  jamais  pense  en  utilisant 
d'autres  inlet preteurs  ! 


1.1  GENERALITY  ET  PERSPECTIVES 

Ce  n'etait  qu’une  question  de  temps  pour  que  les  fan  lust  iques 
possibilites  des  process  curs  16  bits  aient  une  influence  sur  la 
structure  des  langages  de  program  mat  ion.  Cest  le  MC  68000  de 
Motorola  qui  se  trouve  le  plus  sou  vent  a  1’interieur  des  ordi- 
n  a  tears  16  bits,  comme,  par  example,  le  Macintosh.  I' Amiga, 
le  QL  et  aussi  notre  ATARI  ST  tant  at  me.  Par  rapport  aux  pro¬ 
cessors  8  bits  comme,  par  exemplc.  le  6502  a  I' inter icuir  du 
C64,  les  16  bits  permettent  un  plus  grand  nombre  cT instructions 
machine  grace  au  format  plus  large  des  d  ounces.  En  memo  temps, 
ils  ont  mis  en  evidence  Ie$  capacites  et  la  vitesse  d’execution 
de  Phorloge  de  8  Mliz. 

11  fain  s’imaginer  un  immense  entrepot  contenanl  des  etageres  d'en- 
viron  16  (!)  millions  de  tiroirs.  Dans  chaquc  tiroir,  il  y  aura  it 
line  information  don  nan  t  des  renseignements  sur  la  situation  du 
travail  dans  Pent  reprise. 
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Maimenant  il  s'agit  pour  quelquun  de  saisir  l c  plus  vile  possible 
quelle  information  se  trouve  dans  quel  tiioir  et  quelle  est 
l‘ influence  de  ce  tiioir  (en  relation  avee  les  comenus  dif rerents 
des  a  litres  tiroirs)  sur  1 ’organisation  tie  Pont  reprise  dans  son 
ensemble.  Cela  n’est  pas  faisable  par  m  hornme.  I  .’ordinal cur,  par 
centre,  v  arrive.  Theoriquement,  il  sent  it  meme  en  mesure  d'exa- 
miner  la  moitie  des  tiroirs  en  unc  secondc.  Mats  vti  qu’il  doit 
aussi  analyser,  calculer  et  classifier,  ce  laps  de  temps  devicm 
plus  grand. 

Cependam  la  vitesse  d’ execution  tie  I'ordinalcur  per  met  tie  par- 
courir,  par  cxemple,  a  Ibide  de  r inter preteur  GfA,  en  moins 
d’un  vingtieme  de  scconde  one  boucle  hOR-NKXT  comprenant 
1000  passages.  A  rinterieur  de  ehaque  passage,  1’orriinatcur 
doit  parcourir  do  cental  nos  efetapes,  verifier  la  gramma  ire  du 
programme,  analyser  ct  attribuer  (interpreter)  les  instructions 
utilisecs.  II  s’agit  v  raiment  d’un  travail  considerable.  Cela 
explique  pourquoi  les  progi  ammeurs  d’interpreteurs  et  compilateurs 
ont  mis  un  certain  temps  pour  exploiter  toutes  les  possibilites 
offer  tes  par  Pordinateur  et  les  different*  I  an  gages  de  program - 
mat  ion.  11  eta  it  encore  as  sex  facile  de  connaTtre  toutes  les 
possibility  de  combinations  offer  tes  par  un  processcur  8  bits. 
Mu  is  avee  un  1 6  bits,  cela  devient  quasiment  impossible. 

Hcurcusement,  la  cupacite  augmente  an  fur  ct  a  mesure  que  le  nombre 
de  possibilites  s’accroit.  Ainsi,  nous  disposons  ict  d'un  inter- 
preteur  qui,  pour  la  premiere  Ibis,  nous  per  met  d’exploiter  it  fond 
toutes  les  possibilites  offertes  par  un  MC  68000,  ct  celu  dans  un 
langage  mn  it  rise  par  un  grand  nombre  d’utilisateurs.  C’cst  pour 
cette  raison  que  le  present  BASIC  est  devonu  ime  serieuse  concur¬ 
rence-  pour  le  langage  compilateur  "C  favor  isc  jusqtfa  present.  La 
programmation  en  '€'*  on  asscmblcur  pent  encore  etre  preferable  dans 
certains  cas.  Mais  le  nomhre  de  personnes  pretty  a  apprendre  cette 
programmation  assez  compliquee  diminuera  sans  dnutc  parce  que  le 
BASIC  GfA  repond  su remen i  a  la  pi u part  des  besoms. 
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1.2  LEDITEUR 

I  fed  it  cur  const  itue.  a  pres  la  Syntaxe,  le  second  aspect  important 
d’un  langagc  inforinatiquc  (lat.  syntaxis  :  les  regies  qui  president 
a  Pordre  dcs  mots  et  a  la  construction  dcs  phrases,  dans  une 
langue  ;  it  Poppose  de  la  gramma  ire  qui  represente  Pensembie  des 
regies  j>ermettanl  de  produire  tous  les  enonces  appartenant  a  unc 
langiic).  Via  is  A  quoi  petit  servir  la  meilleure  syntaxe,  si  Futi- 
lisation  de  I’editcur  exige  un  effort  considerable  pour  realiser 
les  idccs  de  programmes.  Quant  a  1'editeur  du  BASIC  Gt'A,  on  ne 
peut  rien  lui  reprocher.  En  outre,  comme  nous  a  Hons  le  voir  encore 
plus  loin,  il  esi  extensible  a  de  nombreux  besoms. 


1,2.1  Le  po&Hlonnemcnt  dn  curseur 

Curseur  vers  to  droite 

Deplacer  le  curseur  dc  l*cd  it  cur  sur  la  ligne  de  programme  actudle 
d’un  cran  vers  la  droite. 

Appuyer  sur  <FL1-XHK  Vl-RS  I  .A  DROIT E>  situee  a  r  inter  teur  du 
bloc  des  touches  dc  direction. 

Curseur  vers  ta  gauche 

Deplaeer  le  curseur  de  Bed i tour  sur  la  ligne  dc  programme  actudle 
d'un  cran  vers  la  gauche. 

Appuyer  sur  <F1.ECHE  VERS  LA  GAUCHE>  situee  &  1‘interieur  du 
bloc  des  touches  de  direction. 

Curseur  en  debut  de  ligne 

Position ner  lc  curseur  de  Pediceur  au  debut  de  la  ligne  de 
programme  actudle. 

Appuver  simultanefnent  sur  <CONTROL>  et  cFLECIIE  VERS  LA 
GAUCHE>. 
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Cur  sew  en  fin  de  ligne 

Posit  ionner  tc  curseur  de  I'editeur  a  la  fin  de  la  ligne  dc 
programme  3Ctuelk. 

Appuyer  simultanement  sur  la  touche  <CGNTiR01>  et  <FI.FCHE 
VERS  LA  DROITE>. 

Remarque  :  Si  la  ligne  de  programme  contient  plus  de  79 
caracteres.  die  est  deplacee  d’un  cran  vers  la 
gauche  pendant  Pedition.  Une  fois  la  saisie  dc  ta 
ligne  terming  une  flcche  sitiice  sur  le  bord  droit 
de  Peer  an  inch  quo  quo  In  ligne  mesure  plus  de  79 
caracteres. 

Curseur  dime  tabulation  vers  la  droife 

Deplacer  le  curseur  dc  Pediicur  sur  ta  ligne  de  programme  actuclle 
au  pas  de  8  vers  la  droite, 

Appuyer  sur  la  touche  <TAB>. 

Curseur  dune  tabulation  vers  ta  gauche 

Deplacer  le  curseur  de  Pcdtteur  sur  In  ligne  de  programme  actudle 
au  pas  dc  8  vers  la  gauche. 

Appuyer  sinuittangment  sur  ks  touches  <CONTR.OL>  et  <TAD>. 
Curseur  au  dehut  de  ta  ligne  precedent e 

Placer  le  curseur  dc  Pedilcur  au  debut  de  la  ligne  preecdente  et 
verifier  la  svniaxe. 

Appuyer  sur  <FLECIIE  VERS  LE  HAUT>  situcc  a  Pinterieur  du 
bloc  des  touches  de  direction. 
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Cutset tr  an  dehut  de  fa  ligne  suimtue 

Placer  le  curseur  de  I'editeur  an  debut  de  la  ligne  suKante  et 
verifier  la  syntaxe. 

Appuyer  sur  <FLECHE  VERS  LE  BAS>  ou  sur  <RETURN>. 
Posifumnenmti  du  curseur  mt  chmx 

Deplacer  le  curseur  de  Ted  lieu  r  sur  la  page-ecrnn  actuelle  sur  une 
nouvdlc  position  dc  votrc  ehoix  et  verifier  la  syntaxc  avant  de 
quitter  la  ligne. 

Valider  la  position  choisie  a  ('aide  du  curseur  de  la  souris. 

Remarque  :  Si  Ton  ne  souhaite  pas  posit  ion  ner  le  curseur  en 
debut  dc  ligne.  rnais  le  placer  directeineni  sur  la 
position  choisie  k  1'aide  de  la  souris,  nous  vous 
cortsci  lions  de  com  inner  a  appuyer  sur  la  touche  de 
'  la  souris  pendant  un  petit  i aslant.  Le  curseur  se 

place  alors  d'abord  en  debut  de  ligne,  puis  a  la 
position  choisie. 

Curseur  au  debut  de  la  page-eeran 

Placer  le  curseur  de  Pediteur  au  debut  de  la  page-eeran  actudle, 
verifier  la  syntaxc  et  structures 

Appuyer  sur  la  touche  <CLRHOME>  situee  a  Pint^rieur  du  bloc  dcs 
touches  de  direction. 

Curseur  d'une  page  vers  le  hunt 

Placer  le  curseur  dc  J'editeur  au  debut  de  la  page  precedent e, 
verifier  la  syntaxe  et  formater. 

Appuyer  simultandment  sur  <CONTROL>  et  <FLECHE  VERS  LE 
IIAUT>  ou  sur  <SMI FT>  el  <F7>  ou  Chois ir  Top! ion  'Pg  up'  du  menu 
de  1'editeur. 
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Cur  saw  dune  page  vers  la  bus 

Placer  le  curseur  de  Pediteur  au  debut  de  la  page  suivante, 
verifier  la  syntaxe  et  forniater, 

Appuyer  simultnnemem  sur  <CONTROL>  et  <H.nClll'  VKR$  LE 
BaS>  ou  sur  <F 7>  on  choisir  Poption  *Pg  Down*  du  menu  dc 
I'editeur. 

Curseur  an  debut  da  programme 

Placei  le  curseur  de  Pediteur  en  debut  de  programme,  verifier  la 
syntaxe  et  forma  ter. 

Appuyer  si  mult  [moment  sur  <CONTROL>  et  <CLRHOME>. 

Cur  sou  m  fin  de  programme 

Placer  le  curseur  de  1'editetir  en  fin  de  programme,  verifier  la 
symaxe  ct  formatcr. 

Appuyer  simullanemeni  sur  ies  touches  <CONTROL>  et  <Z>, 


1 ,2.2  l.e  menu  de  I'&lileur 


Sauvagardc  du  programme 

Sauvegardcr  le  programme  sur  disquette  avec  stiff ixe  .BAS,  l.c 
programme  est  alors  sauvegarde  direciement  en  un  seul  bloc  sur  la 
disquettc,.  sans  dtre  verifie  par  rinterpreleur.  Le  temps  de  la 
sauvegarde  est  ainsi  red  nit  considers  blement. 

Appuyer  simul tenement  sur  <SIIIFT>  et  <F1>  ou  choisir  I’option 
"Save’  du  menu  de  Pedlteur. 
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Chargement  du  programme 

Charger  le  programme  ayant  pour  suffixe  .BAS  a  partir  de  In 
disquette.  La  verification  par  1’ interpreter-  o’ a  pas  lieu,  Tom 
programme  qui  se  trouverait  event  ucllcmcnt  dans  Peditcur  csl 
efface  par  !e$  fichiers  charges.  Nous  vous  con  set  lions  de  les 
sauvegardcr  d’abord. 

Appuyer  sur  la  touche  <F1>  ou  choisir  Poption  ’Load’  du  menu  de 
Pediteur. 

Sauvegarde  dim  fichier  TEXT 

Sauvcgarder  le  programme  sur  disquette  en  tanr  que  fichier  TEXT 
ayant  pour  suffix?  .LSI*  Le  fichier  charge  est  alors  verifie  par 
Pinterpreteur.  Sa  sauvegarde  est  nettement  plus  longue  que  celle 
effect  uce  a  I 'aide  de  r  opt  ion  'Save', 

Appuyer  siniultanemcnt  sur  <SHIFT>  et  <!-2>  ou  choisir  Top t ion 
’Save.Ar’  du  menu  de  Pediteur. 

Chargemetu  dun  fichier  TEXT 

Charger  un  programme  sauvegardi  comme  fichier  TEXT  ayant  le 
suffixe  .LST  a  parti  r  de  la  disquette.  Le  charge  meat  a  I'aide 
de  ccue  option  est  ega lenient  plus  long  que  celui  effect ue  a  I’aide 
de  ’Load’.  Par  contre,  la  possibility  de  regrouper  different? 
fichiers  pent  constitucr  un  a  vantage. 

Appuyer  sur  la  touche  <F2>  ou  choisu  'Merge’  du  menu  de  Pediteur. 

En  appelant  les  functions  de  chargement  ou  sauvegarde  de  fed i tear, 
la  boite  de  selection  dc  fichiers  apparait  (voir  egalcmem  I’ins- 
t ruction  BASIC  FILESELFCI). 

Cette  boite  affiche  dans  une  fenetre  Jcs  fichiers  dlspunihles  sous 
le  nom  de  chcmin  de  selection  findique  sur  la  ligne  en-dessus  de  la 
fenetre). 
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les  fich ters  marques  par  m  losange  allonge  reprcsentcnl  les  "Sub- 
Director  ics”  <ongl  :  sous-rcpertoires)  contenant  eux-memes 
d’autres  fielders  sauvegardes  sous  le  nom  de  clicmin  aitribue  a  ces 
sous -repertoire.  Le  sous -repertoire  est  ouvert  a  Laide  d’un  die 
et  les  fichiers  qu’il  conticnt  peuvent  alors  dtre  charges. 

Le  TOS  considere  com  me  unite  de  disquettcs  actuelle  celle  a  partir 
de  Inquelle  le  programme  a  ole  charge.  I!  peut  done  etre  nccessaire 
cTindiquer  une  autre  unite  de  disquettes  en  transmettant  le  nom  de 
clicmin  de  selection.  Pour  cela,  it  Taut  cPabord  cliquer  la  ligne 
indiquee  par  le  nom  de  chemin,  puis  allcr  en  debut  de  cctte  ligne 
et  enfin  remplacer  le  nom  de  Tunite  de  disquettes.  Le  meme  precede 
peut  etre  choisi  pour  les  suffixes  : 

{l>ar  «x.  :  11  A:\VB  AS _ =r=>  *C:\*  .* _ ") 

II  faut  ensuite  cliquer  la  bar  re  super  icurc  dans  le  coin  super!  eur 
gauche  de  la  fend  re.  Terns  les  fichiers  de  la  directory  principal? 
sur  T uni t6  de  disqu  cites  C  sont  alors  affiches  a  la  place  des 
fichiers  .BAS  sur  l 'unite  de  disquettcs  A.  II  ne  sera  peut -etre  |>as 
possible  de  charger  tous  les  fichiers.  Ccla  depend  dc  Fcdilcur. 
Mais  il  est  possible  de  rec  here  her  certains  fichiers  sur  toutc  la 
disquclle.  Vous  trouverez  de  plus  amples  informations  duns  le 
paragraph?  mutant  de  F  instruct  ion  F1LESELECT. 

Terminer  le  travail  dans  Huterprclettr 

J1  apparait  une  dcmaitde  de  validation.  Repondre  par  "OUr  pour 
retou nier  au  desktop.  Repondre  pai  "NON"  pour  retourner  h 
I'intcrprctcur. 

Appuyer  simultancmem  sur  <SH1FT>  et  <F3>  on  choisir  Foption 
'Quit'  du  menu  dc  Fed i leu r. 

In) primer  le  li.\tirjg  du  programme 

11  apparait  une  demand?  de  validation.  Repondre  par  "OUT  pour 
sortir  le  listing  formate  sur  imprimunte  connectee.  {Attention  : 
si  I'imprimante  n'est  pas  connectee  ou  si  die  est  <OftMine>,  ie 
systeme  ne  retourne  a  P inter preteur  qu'apres  environ  30  socondes, 
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Done,  ne  pas  enf oncer  immediatement  le  bouton  RESET  !), 
Repondre  par  '’NON"  pour  retounier  fi  I’interprcteur. 

Appuyer  sur  la  touche  <F3>  cu  choisir  Poption  *Llisl*  du  menu 
de  rediteur. 

Ef facer  le  programme 

II  apparait  une  demandc  do  validation.  Rcpondre  par  ’’OUT  pour 
ef  facer  de  fagon  irreversible  le  program  me  con  ten  u  dans  rediteur. 
Rcpondre  par  "NON’*  pour  retourner  a  rediteur. 

Appuyer  simultancmcnt  sur  <SH1FT>  et  <F4>  ou  choisir  roption 
'New’  du  menu  de  I'editeur. 


Les  operations  de  blocs 


$i  un  bloc  de  programme  a  ete  tlefini  par  ies  commandos  MBlk  Sfa" 
et  "Blk  End",  le  menu  de  bloc  apparnit.  Si  Pun  des  repercs 
manquer  le  message  d’erreur  ’’Block  ???"  est  affichc. 

Appuyer  sur  la  touche  <F4>  ou  choisir  Poption  ’Block’  du  menu  de 
Pediteur. 


■te’ovs  •■u'rne  "V i isi 

133FTMSIS3J  mock  t 


A-'tart 


Blk  End 


"Fnfl  ll/D<lcl  “H1  ide  _____ 

wammnt i  ■ii'iii 


Recopier  le  him- 

Une  copie  du  bloc  del  ini  est  affichee  a  van  l  la  ligne  act  nolle  du 
curscur.  L.e  bloc  d'origine  reste  alors  ii  sa  position. 

Appuyer  sur  la  touche  <C>  ou  choisir  t’ opt  ion  ’Copy’  du  menu  de 
bloc. 
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Deflate*  le  him 

Le  Woe  defini  est  deplace.  avant  la  lipne  sur  laquelle  se  irouve 
acludlcmcnt  le  curseur.  II  est  alors  efface  a  sa  position  initiate 
el  les  rcpcres  du  bloc  sont  annuls. 

Appuyer  sur  In  touche  <M>  on  choisir  1'option  'Move'  du  menu  de 
bloc. 

Remarque  :  Si  lc  curseur  se  trouve  a  I'inierieur  du  bloc  lors  de 
I’appel  des  deux  precedent  as  operations  de  bloc,  le 
message  cTcneur  "Cursor  in  Block1'  (Curseur  dans  lc 
bloc)  cst  affiehe. 

Sauvcgarrfcr  lc  hi  tic 

Lc  bloc  defini  est  sauvegarde  sur  disquette  dans  un  fichier  .LST 
(egn  lament  grace  a  Ja  holte  de  selection  de  fichiers).  U  reste  non 
modi  fie  a  I*  inter  ieur  de  1’editeur. 

Appuycr  sur  la  touche  <\V>  ou  choisir  I’option  'Write*  du  menu  de 
bloc. 

hit  primer  fe  him 

Le  bloc  defini  est  sort!  sur  imprimante  (cf.  le  paragraphe 
"Imprimer  le  listing  du  programme*'). 

Appuycr  sur  la  touche  <L>  ou  choisir  ('option  'Uisf  du  menu  dc 
bloc. 

Redterdter  k  debut  du  bloc 

Le  curseur  est  posit  ionne  en  debut  de  bloc. 

Appuycr  sur  la  touche  <$>  ou  choisir  l1  opt  ion  'Stan'  du  menu  tie 
bloc. 
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Ret' lure  fur  fa  fin  du  him' 

Le  curseur  esi  posit  ionne  en  fin  de  bloc, 

Appuyer  sur  !a  louche  <E>  ou  choisir  Poption  'End’  du  menu  de 
bloc. 


Ef facer  k  bloc 

Le  bloc  defini  est  efface  immediatement  dans  Pediteur,  sans 
demander  la  validation  et  de  fa^on  irreversible  (done, 
ATTENTION  !). 

Appuyer  simultnncmcnt  sur  <CONTROL>  et  <D>  ou  choisir 
Poption  'Delete1  du  menu  de  bloc. 

Remarque  ;  Si  vous  ne  souhaitez  pas  utilizer  une  fonction  apres 
avoir  appele  le  menu  de  bloc,  il  faut  en  fencer  les 
touches  dc  direction  <FLECHE  VERS  LE  IIAUT> 
'  ou  <ELKCHE  VERS  LE  RAS>  ou  bien  cliquer  la 
fcn&tre  ’Edit1  au-dcssous  du  menu  de  Pediteur.  1 1 
en  est  dc  mernc  pout  le  message  d’erreur  "Rlock  ???", 

Ef  facer  les  refer  cs  de  him 

Les  repercs  en  debut  et  fin  de  bloc  sonl  effaces. 

Appuyei  sur  la  toudie  <H>  ou  choisir  Poption  ’Hide1  du  menu  de 
bloc. 

Dcfinir  le  debut  du  bloc 

Le  debut  du  bloc  se  troiive  sur  Paciuelle  ligne  du  curseur. 

Appuyer  simulianement  sur  <SHIFT>  el  <F5>  Ou  choisir  Poption 
’Blk  Sta’  du  menu  de  Pediteur. 
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Defittir  la  fin  du  bloc 

La  fin  du  bloc  sc  trouvc  sur  la  ligne  avant  la  position  actuelle  du 
cursour. 

Appuyer  sur  la  touche  <F5>  ou  choisir  Poption  *BII<  End1  du  menu 
de  I'editeur. 

Remarque  :  Si  Ton  definit  la  fin  du  boc  avant  ou  sur  la  mCnve 
ligne  que  le  debut  du  bloc,  loutes  les  definitions  dc 
bloc  cffectuees  jusqu'alors  sont  annuities.  11  en  cst 
de  m£me  si,  a  pres  avoir  defini  un  bloc,  vous  en  fence/, 
d'abord  la  touche  "S'  ou  ehoisisscz  Loption  'Start' 
et  si  vous  appuyez  ensuite  sur  la  touche  "M'  ou 
choisissez  Topi  ion  ’Move'. 

Rechercher  et  suhst  inter  one  expression 

Le  programme  attend  qu'un  caractere  ou  une  chaine  dc  caractcres 
soft  recherche  dans  le  texte  situe  apres  le  curseur.  II  faui 
ensuite  enirer  un  autre  car  act  ere  ou  une  autre  chaine  de  caiacteics 
qui  se  substituera  &  ("expression  recherchee. 

Appuyer  simultanement  sur  <SHIFT>  et  <F6>  ou  choisir  Poption 
'Replace'  du  menu  de  Pediteur. 

Remarque  :  La  chaine  de  carac teres  a  rechercher  ou  a  substiiuer 
ne  doit  pas  depasser  60  ctirac teres.  1 /edit ion  de 
cettc  chaine  de  car  act  ere?  est  effect  nee  grace  aux 
touches  <DELETE>,  <BACKSPACE>  ou  par  Jcs 
touches  de  deplucemem  vertical  ou  horizontal  du 
curseur.  Les  touches  de  deplaccment  vertical  servent 
egalenient  a  positi  (inner  le  curseur  en  debut  ou  fin  de 
chaine  de  caracteres.  Pour  interrompre  la  saisie 
d'une  chaine,  effacez  les  caracteies  eventuellement 
deja  saisis  (<DEI.FTE>  ou  <RACKSPACE>)  el  appuyez 
ensuite  sur  <RETUKN>  ou  la  touche  <FSC>  suivic 
d  un  <RETURN>. 
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La  siiisie  term  in  cc  et  la  touche  <RKTUKN>  enfoncee. 
la  fonction  de  recherche  peut  etre  appclec  en  ap~ 
puyant  simultanement  sur  <CONTROL>  et  <F>.  La 
recherche  s'cffcctucra  alors  a  partir  de  la  position 
du  curseur  en  direction  dc  la  fin  du  programme.  Kile 
n'a  done  pas  lieu  dans  les  parties  du  texte  situees 
avant  le  curseur. 

Une  recherche  dans  la  total!  te  du  programme  peut  Sire  obtenue  en 
appuyant  simultancment  sur  <CONTROL>  et  <CLRHOME>  ce  qui 
positionne  le  curseur  en  debut  tie  programme,  La  function  rctourne 
ina  in  tenant,  1’unc  apres  i*autre,  tonics  les  positions  con  tenant 
on  texte  identique  ii  celui  de  la  chaine  de  caraclercs  rocherehee. 
La  substitution  par  une  nouvelle  chaine  de  caractercs  n*a  done 
pas  encore  lieu.  Pour  y  proceder,  appuyez  simultanenicnt  sur 
<CONTROL>  et  <R>.  Pour  continuer  la  recherche,  enfoneez  simuh 
tanement  <CONTROL>  et  <F>  ou  <COKTROL>  et  <R>,  En  pour^ 
suivam  la  recherche  par  Pcmploi  simultanc  de  <CONTROL>  et 
<R>»  il  ne  faut  surtout  pas  appeler  la  fonction  'Replace  deux 
fois  tfcr  suite.  Cela  entrainerait  unc  substitution  immediate  de 
la  prochaine  expression  rencontree.  Le  cas  ccheant,  vous  pouvex 
reinserer  1'ancienne  expression  par  UNDO*  a  condition  que  le 
curseur  n’aii  pas  encore  quitte  la  ligne  correspondante. 

Attention  :  Comme  Pediteur  transforme  automat  iquement  to  us 
les  initiaux  de  commandos  el  variables  en  majuscules, 
il  faut  toujours  les  indiquer  cn  initiaux  majuscules 
tors  de  la  recherche. 

Rcchercher  une  expression 

Le  programme  attend  Pen  tree  d’un  caractcre  ou  d'une  chaine  de 
caractercs  a  rechercher  (cf.  le  paragraph©  "Rcchercher  et  subsii- 
tuer  une  expression").  La  recherche  est  effect  ucc  en  enfon^ant 
simultnnement  les  touches  <CONTROL>  et  <F>. 

Appuyer  sur  la  touche  <F6>  ou  choisir  1’option  ’Find'  du  menu  dc 
Teditcur. 
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Remarque  :  Si  vous  appclcz  les  Fonctions  REPLACE  ou  1  IND 
sans  saisir  ensuite  des  caractcres  et  sans  les 
valider  par  <RETURN>»  ellcs  seront  terminer  sans 
instruction  ct/ou  la  derniere  instruction  REPLACE 
ou  FIND  sera  effacee. 

Fetgv-ecrott  precedents 

Appuyer  simultanemenl  sur  <SHiFT>  et  <F7>  ou  choisir  F opt  ion 
*Pg  up'  du  menu  de  Fediteur. 

Page-ecrm  suivante 

Appuyer  sur  la  touche  <F?>  ou  choisir  Foption  Tg  down*  du  menu 
de  Fediteur  (voir  egalcment  les  fonctions  du  curseur). 

Modifier  fa  hauteur  des  ear  act  ires  de  fediteur 

l.es  caracteres  de  Fediteur  pen  vent  avoir  une  hauteur  soit  de  8 
pixels  (Picture  ELementS,  angl.  elements  graph  iques)  (48  lignes  el 
79  oolormes  au  maximum)  soit  de  16  pixels  (23  lignes  et  79  colonnes 
au  maximum). 

Appuyer  simultnnement  sur  <SlliI  T>  et  <F8>  ou  cliquer  Text  16  ou 
Text  8  du  menu  de  Fediteur. 
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Modifier  le  mode  cT ecriutre 

Les  caracteres  peuvent  etre  saisi  s  tie  deux  fa?ons  differ  entes.  Dans 
Le  mode  Insert  (insert,  angl.  :  insurer)  le  carnctere  saisi  est 
insere  ft  la  position  du  curseur.  Les  caracteres  si  cues  ft  droite  du 
curseur  sont  decales  d’un  cran  vers  la  droits  Dans  le  mode 
Overwrite  (overwrite,  angl.  surimprimer),  le  caractcre  Sous  Jc 
curseur  est  surimprime  par  le  nouveau  caractcre  saisi. 

Appuyer  sur  la  touche  <F8>  ou  choisir  respect ivement  l1  opt  ion 
'Insert*  ou  ’Overwrt*  du  menu  de  I'cdiftur. 

Passer  en  mode  direct 

Vous  passez  cn  mode  “direct"  ou  "de  comma ndc"  (voir  ega  lenient  “Le 
mode  direct"). 

Appuyer  simul  hi  dement  sur  <SNIFT>  et  <K9>  ou  sur  <LSC>  ou 
choisir  l4 opt  ion  *  Direct*  du  menu  de  I’cditeur. 

Passer  sur  la  fvnefre  de  restitution 

La  sccondc  fenetre  de  f’mlerpictcur  rctournant  les  operations  de 
lexte  ou  les  operations  graph iques.  est  affichec.  Co  precede  n’af- 
fecte  pas  le  fonctionnement  de  1‘editeur.  En  appuyant  sur  une 
touche  quelconque  du  clavier  ou  en  cl i quant  au-dcssous  du  menu  de 
1’editeur  grftce  a  la  sour is>  Pinterpreteur  retouine  a  I'cditcur. 

Appuyer  sur  la  touche  <F9>  ou  choisir  r option  ’Nip"  du  menu  de 
I'etliieur. 

i. oncer  fc  programme 

Le  programme  de  Pedileirr  est  lance  a  pres  avoir  verifk-  son  format. 

Appuyer  simuitanement  sur  <5H1FT>  et  <l’10>  ou  choisir  I'option 
’Run’  du  menu  de  1’editcur. 
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Tester  la  valid  it  e  des  bon  dm 

L’intcrpr&cur  teste  si  toutes  les  boucles  sont  rcfermecs  dans 

Porrire,  puis  retourne  a  1’editcur, 

Appuyer  sur  la  touche  <11 0>  on  choisir  Toption  ’Test*  du  menu  de 

Tediteur. 

Remarque  :  Cette  fonction  semble  plus  confortable  qu’cllc  ne 

I’cst  en  realite.  En  fait,  cite  ne  pent  coordonner 
les  diffe  rentes  instructions  ini  dales  et  finales 
des  boucles  s’il  y  en  a  plusieurs.  II  pent  alors  en 
resulier  des  messages  (Terreur.  En  voiia  un  petit 
cxemple  : 

FRGCEDUHE  Tvh\ 

FOR  I  -  I  TO  ion 
RETURN 

Une  soiis -routine  "PROCEDURE  fat"  est  lancee, 
Idle  est  en  suite  termindc  par  r  instruction  de 
relOur  RETURN,  fl  est  evident  qu'il  landrail, 
pour  bien  lefermer  la  boucle  'TOR  I  =  1  TO  100\ 
une  instruction  finale  NEXT.  Malgre  son  absence, 
le  message  derreur  "Return  sans  prcxxxlure"  est 
affiche  an  lieu  de  Tor  sans  Next"  et  lc  curscur 
saute  alors  a  la  presumes  source  d’erreur.  Pour 
6viter  tine  recherche  d’erreur  assez  longue  61 
pcnible,  nous  vous  conseillons  done  d'ajouter 
immediatement  a  cliaquc  instruction  initiale  de 
boucle  Tinstruction  finale  corresponds  me.  l.es 
instructions  a  exec u ter  a  Tinterieur  de  la  boucle 
peuvent  ton  jours  ctre  inscrecs  plus  tard  grace  a 
<CONTROL>  -  <INSERT>,  Done,  pas  de 
PROCEDURE  sans  RETURN,  pas  d’lF  sans 
ENDIF,  pas  de  I.OOP  sans  DO,  etc.. 


-  17  - 


Le  liven  du  BASIC  Of  A 


1,2  ,3  A  nt  res  f  one  lions  auviliaircs 


Ef facer  la  dernier e  nuxhficaum  ei  f tit' mater  le  programme 

Si  une  ligne  de  programme  modifiee  n'a  pas  encore  ere  valklee  en 
tapant  <RETURN>  on  quit  tee  par  une  commando  de  dcplnccmcnt 
vertical  du  curscur,  toute  modification  peut  etre  rattrapee. 
le  programme  est  alors  entierement  formate.  Si  ties  parties  du 
programme  ont  eie  mod  if  ices,  substituees  ou  d'facees,  il  pent 
arriver  que  la  structure  du  programme  affiehe  ne  soil  plus  en 
ordre.  Grace  a  la  presente  fonction,  le  programme  cst  enticrement 
formate. 

Appuyer  sur  la  touche  <UNDO>. 

Inser er  une  ligne  vide 

La  ligne  du  curscur  cst  dcplncce  d’une  ligne  vers  le  bas,  Le 
curseur  se  trouve  done  ma intenant  sur  une  ligne  vide  qui  est 
cofisiderce  com  me  une  nouvelle  ligne.  Apr  ws  fen  tree  du  toxic  et  sa 
validation  par  <RETURN>,  une  nouvelle  ligne  vide  e$l  inserce 
jusqu’a  ce  que  la  fonction  soil  refermee  par  un  <RETURN>1  les 
touches  de  deplacemcnt  vertical  du  curscur  ou  <UNDO>. 

Appuyer  sur  la  touche  <INSERT>. 

Ef  facer  la  ligne  actuelle  du  curscur 

La  ligne  sur  laquelle  se  trouve  actuei  lemon  t  le  curs  our  est 
entierenicm  effacee.  de  fa^on  irreversible. 

Appuyer  simultanement  sur  <CON TROL>  el  <DELETE>, 

Efface*  fe  car  active  suite  a  gauche  du  curscur 

Appuyer  sur  la  touche  <BaCKSPACe>. 

Ef  facer  le  car  act  ere  sous  le  curscur 

Appuyer  sur  la  touche  <DELETE>. 
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U  LE  MODE  DIRECT  :  PLUS  RAPIDE  ENCORE 


Le  male  direct 

Si  cst  impossible  tie  lancer  de  fa^on  individuclle  les  commandos  et 
instructions  dans  Fediteur.  Par  contre,  ceci  efcf  autorise  en  mode 
direct  sans  instruction  REN.  Le  programmer  peut  alors  lancer 
immediatement  (directemenr)  Pexecution  dc  toutes  Ies  entrees  a  pres 
les  avoir  formulces  et  validces  par  <RETURN>. 

11  est  impossible  en  mode  direct  d’cnchainer  des  instructions  qui 
seront  ensuite  cxecutees  unc  par  une.  Ceci  n’est  faisablc  qu’en 
dcfinissant  une  procedure  dans  Pediteur  du  programme  qui.  apies, 
pent  etre  appelce  grace  a  I’ instruction  GOSUR.  Les  boucles 
FOR...NFXT  ne  pen  vent  done  etre  utilisees  cn  mode  direct  car  dies 
access  iter  a  ient  au  moms  deux  instructions  separees. 

Les  instructions  ct  commandes  non  executables  sont  indiquees  par 
F  interpreter  dans  la  boite  d’alarme. 

Tout  cela  vous  semble  peut-6tre  un  peu  long,  mats  presente  un  grand 
avantage  :  il  est  parfaitement  possible  de  creer  sa  propre  biblio- 
theque  de  functions  et  ses  propres  programmes  auxiliaires.  Ceux-ci 
peu  vent  fit  re  appeles  grace  a  r  instruction  de  saut  GOSUB.  Cela 
nous  permet  done  de  simuler  sans  problcmc  h  function  ’File  Delete- 
qui  n'existe  pas  dans  le  menu  de  1’editeur. 

Mais  il  y  a  auss*  deux  inconvenients.  Celui  qui  a  Fhabitude  de 
beaucoup  travaillcr  sur  dcs  disques  RAM  et  qui  a  lance  son 
interpreter  a  partir  d\m  tel  disque.  peut  eventuellcmcnt 
s’attendre,  en  passant  en  mode  direct,  a  voir  tout  d’un  coup 
d » sparaitie  son  eernn  de  restitution.  De  plus,  ormis  la  demand e  de 
validation  ">OK"  affichee,  plus  rien  n’indique  que  Ton  se  trouve 
en  mode  d*  denture  di recto.  Eventuellcment  le  texte  dans  Feditcur 
peut  mfime  s’ a  r  re  ter  tout  simpiement,  La  pluparl  d’enire  vous  ne 
irouveront  cela  sans  doute  pas  Crop  ennuyant,  1’ instruction  CLS 
permettant  d’ef facer  Fecran  rapidement. 
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Cependam,  it  pent  en  resultcr  dcs  pro b (ernes  si,  apres  avoir  cree 
dif  fie  demerit  un  dessin,  on  souhuite  le  sorlir  sur  imprimante  grfice 
H  <  A  LT  E  RN  ATE>  -<I  JELP>  en  fin  de  programme.  A  ce  moment -la, 
a  pari  le  lexte  dans  redileur,  il  n’y  aura  plus  rien  a  imprimer. 
Mais  comme  presque  tout  a  etc  prevu  dans  le  present  BASIC,  il 
suffii  de  taper  11 H"  (Abrev.  pour  Hardcopy)  k  la  position  oil  le 
dessin  doit  ctre  imprime,  fct  voila,  il  n’y  a  plus  a  s’ inqu  icier 
pour  ses  dess  ins. 

Le  deuxieme  inconvenient  est  le  suivani  :  dans  le  pire  des  cas.  une 
erreur  de  systeme  deja  indiquee,  mais  non  entieremenl  rat t rupee 
(event  uel  lenient  lors  de  SPOKE,  SDPOKE,  SLFOKH  on  aussi  lors 
des  simples  POKES),  peut  en  trainer  le  plantage  du  systeme  au 
moment  on  Pon  passe  en  mode  direct.  Arrive  en  fin  de  programme, 
on  pense  a  lors  que  Pinterprcteur  fonctionne  too  jours  nornialement 
(car  Pediteur  mnrche  encore)  et  Ton  n’estime  done  pas  necessaire 
de  sauvegarder  son  programme.  Mais  quelle  mauvaise  surprise 
lorsqu’on  tape  sur  <ESC>  ou  que  Pon  choisil  Poplion  *  Direct’ 
du  menu  de  I’editeur.  A  ce  moment  la,  le  systeme  se  plante  tout 
doGcement.  Done,  si  vous  etes  fragile,  nous  vous  eonsei lions  dc 
sauvegarder  tout  d'abord  les  modifications  du  programme.  Mais,  pour 
vous  rassurcr  a  nouveau  :  cet  incident  ne  se  produit  que  tres 
rar ament,  r inter preteur  disposant  d’un  traitement  d’erreur  presque 
parfait.  11  ne  faut  done  pas  s’attendre,  comme  pour  les  autres 
interpreteurs  BASIC  Eton  conn  us,  k  un  plantage  du  systeme  toutes 
les  15  a  30  minutes  ! 

Un  autre  problcme  pouvani  arriver  en  mode  direct  conccrne  Ic  mode 
conlcur.  II  faut  noter  que  les  couieurs  des  caracleres  de  Pediteur 
ne  sont  pas  prises  dans  le  menie  registre  que  celles  des  caracteres 
du  mode  direct.  Voyons  cela  a  partir  d’un  example  :  vous  avez 
choisi  la  couleur  du  texte  d’origine  dans  le  registre  1  pour 
qu’elle  soil  identique  a  cede  du  fond  (registre  0).  11  se  peut  que 
vous  arriviez  encore  k  lire  ce  texte  dans  Pediteur  (registre  3), 
mais  quTil  ne  soil  plus  visible  en  mode  direct.  II  vous  suffit 
alors  de  modifier  la  couleur  du  tsxte  d’origine  grace  a  SETCQLOR  I , 
...  pour  qu’elle  se  detache  parfaitement  du  fond. 
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Si  vo os  souhaiiez  repasser  du  mode  direct  a  Pediteur,  il  suffit 
dYntrer  'Ed'  on  d’appuyer  sur  <ESC>.  validcs  par  <RETURN>. 
Vous  pouvcz  egalement  acceder  a  I'editeur  grace  a  la  function 
d  interruption  <CONT ROL>/<SH  1 FT>/<  A LTFRN  ATE> . 

inexperience  accumulee  mi  fur  et  a  mature  du  travail  cffcctue,  vous 
fait  oublier  les  quelques  inconvenients  du  present  ioterpreieui 
face  mix  nombreux  a  vantages  qu*il  off  re. 


1.4  l/INTERPR ETF.U R  RUN  ONLY  - 


LA  "PETITE"  DIFFERENCE 


L’iitterpr&Ctir  RUN  ONLY  {angl.  :  interpreter  EXECUTION 
SEULEMENT)  n’interesse  jxts  uniqucmcnt  les  profess  to  nn  els.  11 
s’agit  d’un  interprcteur  pcrmcttani  de  charger  et  executer  des 
programmes.  II  n'est  cepcndant  pas  possible  de  l'utiliser  pour 
Sedition  d*un  programme  BASIC  charge.  Vous  eles  autorise  a  le 
recopier'  et  H  petit  done  etre  diffuse  avec  les  programmes  en 
BASIC  GfA.  II  eat  ainsi  possible  de  rendre  ces  programmes 
executables  sans  avoir  a  aclieter  r interprcteur  lui-meme. 

Mfinie  les  plus  pet i Is  details  ont  etc  pris  en  consideration  pour 
cet  interprcteur.  II  est  ainsi  possible  d’cxccuter  les  fichiers 
.BAS  se  irouvant  sur  la  meme  disquette  que  I’ interprcteur  RUN 
ONLY  par  un  simple  diquage.  L’utilisation  des  programmes  en 
BASIC  GfA  n’est  done  plus  du  tout  d  iff  creme  de  celle  des 
programmes  compiles  on  assemblers.  II  suffit  de  les  diquer  et 
ils  I  an  cent  i’execution  cux-m£mes.  I  .a  grande  difficult^  inherente 
aux  autres  interpret eurs  BASIC  n’est  alors  id  qu*un  jeu  d'enfant  : 
rex  ecu  I  ion  automatique. 

Dans  ce  contexte,  il  faul  a  Hirer  votre  attention  sur  une  instruc¬ 
tion  BASIC  a  I'origine  toute  modest?  qui  est  devenue  unc  vraie 
petite  merveille  :  la  modification  de  Finstruction  SAVE  en 
PSA  Vi'.  PSA  V  E  ne  peut  etre  uiilisee  qu'en  mode  direct  et  a  pour 
fantastique  effet  tie  rendre  ill  is  i  hie  le  listing  du  programme. 
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De  plus,  il  tellement  code  qu'il  faudrait  un  bon  moment  avant 
qifun  'deplombcur"  arrive  a  fa  ire  sauter  les  protections. 

La  tentative  d'editer  un  programme  ainsi  protege  entraine  le  non 
fooctionnement  de  i’ interpreter.  II  doit  alors  etre  initialise  a 
nouveau. 

De  superbes  moments  pour  ics  program  incurs  en  BASIC  !!! 
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2.  Le  BASIC  de  base 


Lc  present  livre  s’adresse  avant  tout  H  eeu x  qwi  possedenl  cleja 
quelques  connaissanccs  en  BASIC.  Cependant,  afin  de  fournir  une 
base  aux  debutants  sou hai tarn  fa  ire  une  carriere  de  program  meur, 
les  principcs  fondamcntaux  du  BASIC  seront  ctudics  ci-apres. 

Ceux  s’y  connaissanl  dcja  en  systcines  de  oombres  et  en  logiquc 
boolean  ne  peuvenl  tranquil  lenient  sautcr  lc  chap  it  re  suivant. 

I.’aritlimetique  booleenne  et  se$  opera  teurs,  le  principe  de 
Porgani  sat  ion  dc  la  mcmoire  d‘un  ordinateur  et  le  systeme  de 
nombres  binaire  et  hexadecimal  representent  la  base  de  tous  les 
kmgages  dc  progr  amnia  lion.  Vous  trouvere/  plus  loin  an  moment 
ou  les  fonctions  BINS,  HEX$  et  (XT'S  seront  etudlees,  quelqises 
informations  cssent  idles  conccrnant  les  differents  systemes  de 
nombrcs.  Mais  d’ici  la,  nous  avons  encore  beaucoup  dc  choses  a 
ttpprendre. 


2.1  ITS  BITS  LT  LES  OCTETS 


L’ ATARI  ST  est  un  ordinateur  16  bits.  Qu'est-ce  que  eela  sign i fie  ? 

l.e  proccsseur  central  du  ST  {Motorola  68000),  quj  s’appdle  aussi 
CPU  (Central  Processing  Unit  -  unite  cent  rale  de  traitement),  est 
capable,  grace  a  $a  construction  complex?,  dc  transmettre  a  son 
environnement  (mcmoire  ou  custom  chips)  pour  chaquc  cycle  de 
travail,  une  unite  d’ information  (bit)  simuhanement  sur  16 
differentes  connexions  electriqucs  {bus). 

Attendez  !  Stop  !  Un  instant  !  II  y  a  deja,  dans  cettc  phrase, 
plusieurs  mots  qui  do i vent  etre  expliques. 

CPU  Central  Processing  Unit;  angl,  :  unite  cent  rale  dc  trai¬ 
tement 
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Cycle  Frequence  de  quartz  (pour  le  ST  8  Mhz  -  8  millions  de 
cycles  par  seconde) 

Bus  Un  ensemble  de  connexions  electriques  ou  le  courant  passe 
ou  ne  passe  pas  (courant  passe  =  un  bit  =  1/  courant  ne 
passe  pas  =  sans  bit  -0). 

Bit  Binary  Digit;  angl.  ;  chiffre  binaire  -  Punitc  elemental  re 
d'  informal  ion 

Memoire  Puces  ayant  pour  lone t ion  de  retenir  des  infor¬ 

mations  entrees 

Custom  Chips  Coprocessors  dechargeant  la  CPU  de  certains  tra- 

vaux,  par  ex.  la  puce  de  son,  le  processeur  du 
clavier,  etc. 

L'ordinatcur  peut  done  Trailer  $imul  tenement  16  bits,  Voila 
Porigine  de  1 'expression  "ordinateur/proccsseur  16  bits". 

I  magi  nez -vous  un  t'il  elect rique  dans  lequo.1  on  fait  passer  du 
courant  4  Paide  <Pun  imerrupicur  (11  s'aglt  d’une  tension  dc  5 
volt  a  bassc  icsistance  ohmique.  done  relalivemeni  sans  danger),  Si 
vous  toucher  le  bout  non  isole  du  Til,  vous  rcccvez  une  dec  barge 
elect  rique.  II  en  esi  exactemeni  de  memo  pour  les  puces  devant 
recueillir  des  informations. 

Grace  4  cetle  impulsion  electrique  le  recepteur  "sail’  que  quelque 
chose  doit  hii  etre  tranSniis.  II  est  programme  scion  rinformation 
qui  arrive  :  soil  dcclcncher,  executor  un  certain  processus*  soit 
s  implement  garder  I' information  (sauvegarder).  Ma is  a  quoi  pent 
servir  une  seute  lignc  si  die  ne  sait  que  transroettre  P infer- 
mat  ion  '‘oui"  (allume)  ou  P  informa  lion  "non''  (ctcint).  Un  inter¬ 
locutor  qui  ne  saurait  dire  que  ’ouP  ou  'non'  deviendralt  tres 
vtte  ennuyant.  On  souhaitcrait  des  renseignemcnts  plus  cone  rets  ! 
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Tour  cela,  il  faut  done  plusieurs  unites  cTinformation  (bits)  qui, 
grace  aiix  differemes  possibility  de  combi  liaisons*  peuvent  repre¬ 
senter  unc  multitude  d’etat  different^. 

Si  Tort  prertd  main  tenant  deux  fils  elect  riques  pouvanl  etre  allumes 
el  eteints  indepen  dairmient,  cela  fair  deja  qua  Ire  differentes 
combinaisons  possibles.  Si  Ton  represente  chaquc  fil  parcouru  de 
courant  par  I  el  chaquc  fil  “vide"  par  0,  on  obtiem  : 

00  =  tons  les  deux  fils  sans  courant 

10  =  fil  l  =  allume  /  fil  2  =  eteint 
01  =  fii  1  -  eteint  /  Til  2  -  all  time 

1 1  =*  tons  les  deux  fils  avec  courant 

Voitft  ft  nouveau  un  petit  pas  vers  la  vraie  communication.  Pour 
etre  encore  phis  claim,  voiei  un  autre  example.  Cette  fois  avec 
quntre  fils  clectriques  : 

0000  =  tous  les  fils  eteints 

lOOt)  -  fil  I  allume  /  2t  3  et  4  eteints 

0100  =  fil  2  all umc  /  1*3  et  4  eteints 

0010  -  fil  3  allume  /  1 ,  2  et  4  eteints 

0001  =  fil  4  allume  /  I,  2  et  3  eleims 

SI  00  =  fil  I  et  2  a  Humes  /  3  ct  4  eteints 

0110  =  fil  2  et  3  allumes  /  1  et  4  eleims 

0011  =  fil  3  et  4  allumes  /  1  ct  2  eteints 

1001  =  fil  I  el  4  allumes  /  2  et  3  elcints 

1010  =  fil  I  el  3  allumes  /  2  et  4  eteints 

0101  -  fil  2  et  4  allumy  /  1  ct  3  elcints 

1110  =  fil  I,  2  et  3  allumes  /  4  eteint 

011  1  =  fil  2*  3  et  4  allumes  /  I  eteint 

101 1  =  fil  I,  3  et  4  allumes  /  2  eteint 

1101  =  fil  I,  2  et  4  allumes  /  3  eteint 

Hll  =  tous  les  fils  allumes 

Porn  Ions  eeux  prefuranl  apprendre  par  1’ image,  void,  page 
suivante,  une  representation  graph  kiue. 
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li 


filo|fli|o|ID?ilTl 


^  ARITHMETIQUE  BINA1RE 


1  *  2A0 

=  1 

-> 

0  **  2^1 

-  0  1 

1  *  2A2 

=  4 

-* 

0  *  2^3 

=  0  l 

1  *  2^4 

=  IS  ? 

1  *  2^5 

-  32 

0  *  2^6 

=  0 

-* 

i  **  2A7 

-  128 

SOMME 


lilt 


sratj 


rrr*c-^KV  ^ 


Comme  vous  pouvez  la  eonstater.  !e  nombre  de  possibiiitcs  da 
combi  unisons  augments  avee  chuquc  t  il  rnjoote. 

1,  HI  allumc  =  2U 

2.  fit  allumc  =  2* 1 

1.  fil  allumc  =  22 

4.  fil  a  Hume  -  23 4 5 6 7 

5.  fil  allumc  -  2* 

6.  fil  allumc  ^  2* 

7.  fil  allumc  =  2G 

8*  fil  allumc  =  2 7 

Le  total  de  t Dates  les  pos^i bil itds  de  combi  naisons  ost  egnl  a  256 
(le  ehiffre  0  inelus) 

Nous  averts  volontairement  termine  cc  listing  avec  puissance  7  ear 
ces  8  fits  et  leurs  256  differentes  possi  bill  les  de  eombinaisons 
represen  tent  unc  unite  de  base  dans  la  logique  d‘un  ordinnteur. 


I 

=  2 
=  4 

=  8 
=  16 
-  .12 
=  64 

-  128 
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Cette  unite  s'appelle  "octet1.  Un  nrdinatcur  aynnt  une  memoir©  vivo 
d'lin  million  d’oetets  pcut  done  recueillir  un  million  de  fois  un 
tel  bloc  d* information  (octet)  de  8  bits.  Un  octet  cst  done  un 
Taisceaux'*  de  8  fils  (voir  ci-dessus). 

Vous  savez  peut-etre  deja  que  TATAR!  ST  dispose  de  256  eanicteres 
different s.  Avec  les  explications  preeedentes,  vous  avez  appris  que 
ce  chiffre  n’est  pas  un  hasard.  Xlais  ce  qui  relev e  encore  moins  du 
hasard,  e’est  que  I*  interpret  eur  OfA  ne  connall  pas  plus  de  256 
instructions.  La  raison  pour  laquclle  0  se  trouve  etre  la  premiere 
puissance  est  purement  mathematique.  Chaque  valeur  elevee  a  la 
puissance  0  a  pour  reSultat  la  valeur  L  Ce  chiffre  1  est  I’unite 
la  plus  petite  de  chaque  svsteme  de  nombres. 


2.2  UARITHMETTQUE  PINA  IRE 

Le  plus  astucieux  dans  tout  cela  e’est  qu’a  chaque  ctat  represent? 
par  le$  8  fils  peut  aussi  Hre  iitlribue  une  valeur.  Voyons  cela  Sur 
un  octe!  quclconque, 

010 1 1 101  =  93 

Com  pi  element  par  '‘hasard'1,,  un  systeme  de  nombres  a  etc.  dcveloppe 
permettant  de  trailer  exclustvement  les  deux  etats  "allurne"  et 
"etcim",  On  a  procede  exactcmcnt  comma  nous  le  connaissons  de 
not  ic  system©  decimal.  Avec  pour  seule  difference  que  la  base  de  la 
puissance  n*est  pas  la  valeur  10,  majs  la  valeur  2. 

Le  chiffre  le  plus  petit  d’un  nombre  binaire  (,rbi“;  grec  ;  deux)  se 
trouve,  comme  pour  un  nombre  decimal,  a  droite  ct  le  plus  grand  a 
gauche. 
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Ainsi,  none  example  plus  haut  aura  pour  resultat  : 


decimal  : 

(  ID  puissance  0  )  *  3 

S 

3 

+ 

(  10  puissance  I  )  *  9 

SS 

90 

resultat 

= 

93 

bimire  : 

(  2  puissance  0  )  *  1 

t 

+ 

(  2  puissance  1  )  *  0 

= 

0 

+ 

(  2  puissance  2  )  *  1 

— 

4 

+ 

(  2  puissance  3  )  *  1 

= 

8 

+ 

(  2  puissance  4  )  *  1 

16 

(  2  puissance  5  )  *  0 

0 

+ 

(  2  puissance  6  )  *  l 

64 

■t 

(  2  puissance  7  )  *  0 

= 

0 

res  ul  tat  =  93 


Pour  tie  plus  u  tuples  informations  voir  Til  NS  ?  HEX$,  OCTS. 


2.3  LES  CODES  ET  LES  OPCODES 


Cette  valeur  pent  ensuite  designer  im  symbole  numcriquc  pour  tin 
niol,  un  caractere  on  line  instruction.  Ln  ce  qui  concern e  les 
c  a  racier  es  ASCII  (ASCII  *=  American  Standard  Code  for  Information 
Interchange  angl.  ;  code  standard  americain  pour  feohange  d'in- 
formations)*  par  example*  la  valeur  65  represcnte  la  lettre  "A", 
la  valeur  66  "B'\  la  valeur  67  '‘C"  etc.  (voir  tableau  ASCII  en 
annexe). 

Supposons  que  pour  P interpreter  BASIC  la  valeur  192  represcnte 
T  instruct  ion  PRINT,  Ainsi,  Pinterpetcur  sail  que  lors  de  la  re¬ 
ception  de  la  valeur  192,  il  faut  alTichcr  sur  fecran  le  caractere 
represcnte  par  le  nombre  qui  suit  1’ instruction. 
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L’ instruction  pourrait  etre  In  suivante  : 

decimal  :  192  66 

binaire  ;  11000000  1 0000 10 

hexadecimal  :  CO  42 

II  y  aurait  alors  affiche  sur  I’eeran  le  caractcrc  "B*.  Tonies  les 
valeurs  aynnt  une  fonction  d1  initialisation,  c’est<L-diie  servant  $ 
declencher  un  certain  processus,  s’appellent  "opcodes'1  (operation 
codes  =  codes  -operat  ions ) .  Ces  codes -operations  ne  sonl  en  fail 
qu'une  instruction  representee  symbol iquement  par  un  nombre,  Le 
processeur,  lui,  ne  comprend  pas  encore  V  anglais  ou  le  franca  is. 
Tout  ce  qui  Tinteresse,  ce  sonl  les  nombres  qui  lui  sonl  transmis 
en  serie  de  bits  et  de  differents  formats,  Fn  programmant  le  pro¬ 
cesseur,  di verses  fond  ions  ont  done  etc  pi edef inies  et  1’inter- 
preteur  pent  Jes  appder  grace  aux  codes-operations, 

l  a  presente  description  ties  processus  &  I’intcrieur  d’un  ordinat cut¬ 
est  sans^  doute  un  peu  simplifiee,  mais  cllc  met  en  evidence  les 
principes  de  base. 


2.4  LES  MOTS  ET  l,ES  MOTS  LONGS 

II  n'est  pas  necessaire  de  prendre  un  grand  elan  pour  sauter  des 
octets  aux  mots.  On  designe  par  ’mots’  toutes  les  unites  d’infor- 
mation  qui  se  composent  de  16  bits  (a  {’oppose  ties  octets  composes 
de  8  bits).  Les  mots  ne  se  I  i  mi  tent  pas  a  representor  seutemenl 
256  etats  differents.  mais  en  permettent  65536  (0  +  2°  +  21  +  2  2  + 

2s  +  24  +  2s  +  26  +  27  h  2e  +  29  +  2 10  +  211  +  21Z  +  2™  +  2U  + 

2IB). 

11  etait  tieja  precise  que  le  68000  travail  la  it  avec  des  d  ounces 
d’tm  format  de  16  bits.  U  pent  done  lire,  trailer  et  ressortir 
sans  problems  des  valeurs  entre  0  el  65535.  Et  encore  plus.  S'il 
n*y  avail  que  la  possibility  d’utili&er  des  valeurs  jusqu’a  65535, 
on  ne  pourrait  memo  pas  s*en  servjr  pour  trailer  la  declaration 
d’ impels.  Mais  pour  un  ST  cel  a  ne.  pose  pas  de  problemc 
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Son  processeur  dispose  d’un  bus  de  32  Tils  de  donnees  dont  on  pcut 
cn  utilizer  3!  pour  la  representation  d€S  valeurs.  Le  dernici  bit 
indique  s*ii  s’agit  d?un  nombre  positif  ou  negatif.  Les  nombres 
ainsi  lit  disables  devraient  suffir  pour  etablir  tomes  les 
declarations  d’impdts  imaginable®. 

2Sl-l  =  2147483647 


Une  serie  de  32  bits  s’appelle  "longword"  (angL  :  mot  long).  Le 
68000  est  programme  de  fa^on  a  pouvoir  fa  ire  la  difference  entre 
les  trois  formats  de  donnees  existants,  La  faille  des  dormers 
transmises  n*a  done  pas  d'importance  pour  lui,  II  foul  si m piemen t 
rajoutcr  quel  format  a  etc  choisi.  Parmi  les  inslruciions  du  BASIC, 
on  trouve  POKE  (ecrire  des  valeurs  iPocids),  DPOKH  (ecrire  des 
doubles  octets,  done  des  mots)  et  LPOKE  (ecrire  des  mots  longs). 


2.5  L  OKGANISATIPN  DU  LA  M EMPIRE 

Outre  le  bus  de  donnees  externe,  le  6S0Q0  dispose  d'un  bus 
d'a dresses.  Ce  bus  a  format  de  24  bits  dont  20  bits  seu lenient  som 
utilises  jusqu’a  present, 

22lM  =  1048575 

Si  vous  avez  la  chance  de  pouvoir  uliliser  un  MEG  A -ST*  e'est-ft- 
dire  un  520ST+,  1040ST  ou  520ST  equips  de  toutes  les  extensions 
possibles,  vous  remarquerez  que  la  memo  ire-ec  ran  si  luce  au  bord 
superieur  de  la  memoire  vive  se  trouve  exuctement  32767  (2ir'-l) 
bits  cn-dessotis  de  Padresse  du  bus.  Enlrez  P  instruction  suivantc 
dans  Pinterpreteur,  puis  comparer  la  valour  obtemie  avec  le 
chiffre  mentionne  ci*dessus. 

Print  Xbios(2)+32767 

Xbios{2)  est  Padresse  inttale  de  la  mOmoire-eeran  dont  la  faille 
est  exactement  de  32767  octets,  Les  32000  premiers  octets  sont 
occupes  par  la  page-ecran  actuellc  et  les  767  octets  restams  sent 
disponibles  pour  Stocker,  par  example,  de  pel  its  programmes- 
machines  ou  des  valeurs. 
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L’ynile  cent  rale  peut  done  appelcr  1048575  octets  diffe  rents  a 
faide  du  bus  d’adresscs*  Ces  octets  se  trouveni  dans  la  memo  ire 
decrite  cKlessus  et  n'ont  ricn  d'autre  ft  fa  ire  que  de  retenir  les 
donnccs  transmises  par  1'unilc  cent  rale.  L’organisation  tie  ta 
memo! re  vive  se  p  resettle  de  la  fagon  suivanlc.  I,1  octet  represen tam 
Eadrcssc  la  plus  petite  se  trouve  an  debut,  tous  les  3  litres  octets 
suivent  Tun  apres  I’auire.  La  in  tint  n  ire  est  done  line  longue  chaine 
composee  dc  differ ents  octets* 

Afin  d eviter  toute  confusion,  il  e$1  important  de  noter  que  la 
memo!  re  n*e$t  pas  tine  chose  mu  I  ( id  i  mens!  nn  nolle,  mais  u  nidi  men  - 
s ion  nolle,  comme  une  ligne  droite.  Une  fois  que  !e  systeme 
d’exploitation  a  donne  une  instruction,  I’unite  cent  rale  docoupe 
dcs  parties  dc$  cellules  memo  ire  contemns  dans  cette  chaine  et  les 
uiilise  selon  les  besoi  ns,  pour  diffe  rentes  fo  net  ions*  Ainsi,  par 
example,  une  partie  du  systeme  d' exploitation  occupc  le  debut  de  la 
memoire.  D’autres  parties  sort  reserves  pour  les  di  Horen  tes 
applications  (comme,  par  exemple.  1'intcrprctcur  BASIC)  ou  sont 
utilisees  comme  memoire-ecran. 


2.6  LE  SYSTEME  HEXADECIMAL 


Rev  e  no  ns  main  tenant  aux  systemes  dc  nombres. 

J'cspere  que  le$  explications  ci-dessus  concernant  les  ch  iff  res 
bins  ires  ont  etc  assez  claircs,  A  quoi  petit  done  servir  le  systeme 
hexadecimal  ? 

Pour  une  representation  binaire  des  octets,  des  mots  ou  des  mots 
longs,  il  fa ud rail  ecrire  ft  oblique  fois  unc  chaine  de  caracteres 
composOe  dc  &,  16  ou  32  uns  et  zeros,  Ceci  est  facilite  par  le 
systeme  hexadecimal.  Ce  systeme  presente  les  m  ernes  caractcris- 
tiques  que  les  mures,  avec  pour  sculc  difference  que  la  base  des 
puissances  n’est  ni  2,  ni  10,  muis  la  valour  16,  Ceci  a  favamage 
de  permettre  la  representation  de  la  mo i tie  d’un  octet  (s1  appelant 
tetnulc  on  nibble),  done  de  4  bits  (valeur  maximum  -  15),  avec  un 
seul  chiffre  hexadecimal.  Vu  que  les  ch  iff  res  conn  us  ne  permanent 
pas  dc  representer  par  un  seul  chiffre  un  nombre  plus  grand  que  9, 
des  lettres  ont  ete  choisies  pour  designer  les  nombres  de  10  a  15. 
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La  Icttre  "A"  est  alors  attribute  au  chiffre  10,  la  lettre  "B''  a 
11,  "C  a  12,  "D11  a  13,  “E*  h  14  et  MP  a  15.  Ainsi,  le  plus  grant! 
nombre  pouvant  6tre  trait©  par  un  ST  en  BASIC  GfA  (c’est-4- 
dire  2S1-1),  si  est  represent©  par  seuiemcnt  8  ch  iff  res  (7FFFFFFF), 
Ceci  a  pour  a  vantage  do  fa  ire  gagner  a  la  fois  do  temps  et  dc  la 
place. 


2.7  LA  LOC1QUE  BOOl.KKNNE 

Mais  les  deux  syslemes  de  chiffres  tie  font  pas  tout.  Pour  pouvoir 
v  raiment  prof  iter  de  I'ordinateur  el  ar  river  a  des  resulrats  iiti- 
lisables,  il  a  fa  I  In  developper  un  mode  de  precede  adaptant  le 
fonctionnement  dc  Pordinatcur  au  raison  nement  de  I’ bom  me.  II 
n’aurait  pas  ete  tres  utile  do  lui  faire  resoudre  seulemem  ties 
probltmes  matheniatiques  bien  quo  ce  soil  son  occupation  prefer©©. 
11  devait  etre  ega lenient  capable  de  prendre,  dans  certain  cas.  des 
decisions  seul.  Sinon,  il  n’aurait  ete  qu’une  calcula trice  de  luxe. 

Un  homme  intelligent  s’tippclant  Boole,  a  invenle  a  ce  prop  os, 
une  arithmetique  nominee  T  arithmetique  boolccnnc”  ou  encore 
Talgebre  de  Boole11.  Son  idee  eta  it  de  transferer  a  Pordinatcur 
!e  principe  de  base  des  decisions  humaines  m  dVtahJir  pour  cela 
des  regies. 

Comment  f homme  prcnd-il  scs  decisions  7  Les  decisions  resuUent 
tou  jours  d*une  ou  pi  us  i  curs  conditions.  Confront©  a  one  situation, 
on  classe  les  exigences  dans  un  schema  diction  preexistant.  I  .a 
decision  de  ce  qu'on  veu t  ou  doit  faire  est  alors  prise  en  fonction 
des  concordances  mais  cgalcment  des  non  concordances  au  system© 
de  valeurs  present. 

Nous  savons  to  us  ce  que  les  mots  "et*  et  "ou"  sign  i  Hen  t, 

i 

Void  deux  examples  : 

S' it  fan  chnud  et  si  far  k  temps,  j'irat  a  la  piscine. 

S  it  fait  froiit  ou  si  je  tiai  pas  le  temps,  je  n’irai  pas  a 
la  piscine. 
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Nous  rclions  des  conditions  differed  tes  pour  decider  de  ce  qu‘il  y 
a  &  faire  ou  ne  pas  fa  ire.  Voilft  la  Ipgique  boolecnne.  Un  ordi- 
nateur  ne  s’appellera  ordinateor  que  s'U  est  capable  dc  prendre 
de  ItJles  decisions.  De  ce  fait,  M.  Boole  s' est  imagine  plusicurs 
modes  de  liaisons  de  types  suivants  : 

AND,  OR,  NOT,  XOR,  IMP,  EQV 

NOT  represente  une  exception.  11  nc  s'agit  pas  ici  d’unc  liaison 
ma is  d'une  inversion  de  Pinf urination  entree. 

Regardons  ma  intend  nt  dc  quelle  fag  on  ces  liaisons  agissent  sur 
Ic  iraitemem  des  informations  entrees. 


AND;  1101  JODI  (octet  I ) 

AND  Oil  ON  01  (octet  2) 


=  01001001  results  t 

Un  bit  rfest  place  a  I'interieur  de  I'octct  resultant  que  s'tl  sc 
trouve  a  la  riidme  position  dans  I'octct  I  FT  dans  1‘oclet  2. 

OR:  MOllOOl  (octet  1) 

OR  OllONOi  (octet  2) 


~  !  1  II  NO  I  rcsultat 

II n  bit  n‘eM  place  a  I’interieur  de  i'octct  resultant  que  s' it  sc 
trouve  a  la  me  me  position  OU  bien  dans  ['octet  1  OU  bicn  dans 
1 'octet  2  OU  bien  dans  les  deux  octets. 

XOR:  NO!  1001  (octet  1) 

XOR  01 10110!  (octet  2) 


101  101 00  resukat 
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Un  bit  n'cst  place  a  rintcrieur  de  roctet  resultant  que  s’i!  se 
trouvc  3  ]a  meme  position  OU  bien  dans  ]’ octet  l  OU  bien  dans 
roctet  2,  MAI5  Is AS  dans  les  deux  octets  (XOR  =  eXclusiv  OR  = 
ou  exclusif). 

IMP:  HO!  1001  (octet  1) 

IMP  OllOllOi  (octet  2} 


-  01 101  III  rcsultat 

Un  bit  n'est  place  a  rintcrieur  de  r  octet  resultant  que  s'il  se 
trouvc  dans  les  deux  octets  ou  s'il  n*est  dans  aucun  des  deux  on 
s' il  ne  se  trouvc  pas  dans  1' octet  l,  irrais  dans  V octet  2.  Ceci 
s’appelle  implication.  Le  resultat  est  seulement  ‘'faux’1  (done  0) 
lOrsqu'un  bit  se  trouvc  a  rinlerieur  de  1’octct  1  mats  pas  dans 
Pocict  2.  Dans  tous  les  aulres  cas  le  resultat  est  "vrai"  (done 
I). 

F.QV;  1101 1001  (octet  I) 

'  EQV  01 1 01 101  (octet  2) 


=  0100101!  rdsullai 

Ceci  est  I1  inverse  tie  XOR.  On  bit  n'est  place  a  I'inteneur  de 
I ‘octet  resultant  que  s'il  se  trouve  ft  rintcrieur  des  deux  octets 
ou  s’il  en  est  absent.  Si  le  bit  ne  se  trouve  qu'a  rinlerieur  d'un 
de$  deux  octets,  le  resultat  est  "faux"  (done  0). 

NOT:  NOT  1101 1001 


001001 10  result  a  l 

Un  bit  n'est  place  a  rintcrieur  de  V octet  resultant  que  s’il  n’y 
cn  n  pns  ti  rinlerieur  de  roctet  d'oiigine.  Le  resultat  est  done 
tou jours  le  negaiif  de  roctet  d’originc. 

Tous  les  exempt  es  ont  la  tail  1 0  d'un  octet  puree  que  e'est  l 'net  el 
(ntais  aussi  le  mot)  que  vous  rencontrerez  le  plus  souvent,  Les 
operations  peuvent,  ccpcndant,  etre  executer  pour  une  la  i  lie 
quelconque. 
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Lc  sujet  trade  ci-dessus  ne  fait  pas  partie  des  choses  les  plus 
simples  du  monde  informal ique.  Fouvoir  utiliser  ces  opera t curs 
logiques  n’esi  eependant  necessaire  qu’a  ceux  qui  cm  I  rain  hit  ion 
de  descendre  aux  plus  profonds  niveau  x  de  Pordinateur.  Si  tel 
n'est  pas  voire  cas,  cela  pent  quand-meme  vous  etre  mile  d'en 
avoir  emend u  pailcr. 


2.3  1ES  CONDITIONS  ET  LES  CONSEQUENCES 

La  raison  pour  laquelle  il  est  mile  de  s^nccuper  un  peu  plus 
profondement  des  deux  opermeurs  'AND*  et  ’OR’  e$t  qu'il  existe 
des  instructions  en  BASIC  utilise!  nt  ces  opera  tears  pour  indiquer 
une  condition. 

Voyons  cela  sur  I'instruction  l  F/  E  LSE  /  IN  D I F, 

Ceci  est  sans  dome  ['instruction  la  plus  employee  pour  definir 
une  condition  doni  depend ra  la  pours uite  du  programme.  Auparavant. 
nous  avons  presenie  deux  conditions  typiques  relevant  de  la  vie 
QuofkliSnne,  ainsi  que  leurs  consequences. 

S' ii  fail  eh  and  et  si  fai  ie  temps,  firm  it  la  piscine. 

S' U  fait  froid  ou  si  je  tint  pa s  ie  temps,  je  nirai  pas  a  la 
piscine . 

Dans  chacun  des  deux  ens,  deux  conditions  sont  posccs  dont  la 
satisfaction  depend  d'unc  circonscance.  A  fin  de  transformer  cela 
en  un  exemple  de  decision  prise  par  le  programme,  nous  rem- 
placons  quclqucs  mots  dans  les  deux  phrases  par  des  symboles. 
Pour  chaque  expression  affirmative  nous  prenons  la  valeur  l  el 
pour  unc  expression  negative.  In  valeur  0. 

Done  : 

fa  ire  «  I 
avoir  =  I 
allcr  =  1 
ne  pas  avoir  =  0 
ne  pas  aller  -  0 
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Inserees  dans  la  structure  d’une  condition  IF,  ces  deux  phrases 
auront  la  forme  suivante  : 


IF  chau <1—1  AND  Lcmimsl 
a  lit,  piscine—  1 

END  IF 


[ F  froid-1  Oit  temps— (J 
B  la  piscine— 0 
KNUIF 

Vous  remarquerez  que  {'utilisation  de  svm  boles  pour  "cui”  ct  ’’non'* 
per  met  deja  de  prendre  des  decisions  assez  compliquees.  On  pern 
aller  encore  plus  loin  gr&ce  A  un  autre  a  vantage  du  BASIC  II  est 
possible  dc  regrouper  a  Finterieur  dcs  ('mien  theses  plusieurs 
conditions  allant  ensemble  et  dc  poser  plusieurs  conditions  alter¬ 
natives. 

Voyons  cela  sur  I'exemple  ci-dessus ; 

...w  si  la  piscine  couverte  est  auverte..,* 

La  phrase  entiere  seiail  alors  la  suivante  : 

S7il  fait  chaud  on  si  la  piscine  couverte  est  cuvette  et  st 
fat  le  temps,  firm  ft  la  piscine. 

La  structure  IF  : 


IF  (chftwrl— l  OR  piscine  couverte— 1 )  AND  t^rnpu—  1 
a  La  piscine—  1 

ENDIF 

Le  facteur  "temps"  fait  reference  aux  deux  alternatives  prece- 
demes.  Si,  par  example*  j*  alia  is  aussi  h  la  piscine  sans  en  avoir 
le  temps,  il  faudrait  meltre  les  para n theses  differeniment  parce 
que  ''temps'1  ne  fait  olors  reference  qu’&  11  chaud"  : 
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IF  (chiutd-1  AND  lcmp»=l)  OR  pi»ciii«  cpuvvrlc-1 
A  la  piscine— 1 

END  II*' 


Si,  dans  Pexcmple  preeedenu  "chnud11  ou  " 
sentaient  les  alternatives,  e’est  matntenant 
H piscine  couverte"  qui  le  font. 


piscine  couvcrtc"  repre- 
"chaud  et  temps"  Ou 


[1  faul  noter  qu’un  IF  se  ter  mine  ton  joins  en  ENDIF  indiquant 
ainsi  a  V inter pretcur  a  quelle  consequence  soul  liees  les  condi¬ 
tions.  II  est  alors  possible  de  forimiler  aussi  une  consequence 
alternative. 


Done,  si  On  dit  que  Ton  f  era  it  quelque  chose  sous  certaines 
conditions,  il  cn  rcsultc  qutau  cas  ou  ces  conditions  ne.  sont  pas 
lemplies,  on  ferait  autre  chose. 


Voyons  cela  k  partir  de  not  re  exemple  : 

S*il  fait  chaud  m  si  la  piscine  convene  est  mverte  et  si 
j'ai  le  temps,  firm  a  la  piscine.  Sintm  jv  n'irrn  pus  a  la 
piscine  et  je  lirai  un  livre. 


La  structure  IF  : 


IF  (chaud— I  OR  piscine  couvecte— 1)  AND  temps=l 
6  La  pi»cme=l 
ELSE 

a  la  pi5Cioe=0 
tire=  1 
ENDIF 

1 /expression  ELSE  represent e  ica  "fame  de  quoi"  ou  "si non".  ELSE 
est  done  1' inversion  complete  de  ta  condition  posee  sous  IF.  Les 
consequences  emre  ELSE  et  ENDIF  ne  sont  va  tables  que  si  aucune 
des  conditions  posces  sous  IF  est  cxacte,  II  cn  rcsultc  done  qu'n 
chaque  foi$  que  le  programme  rencontre  un  test  IF  relle  a  une 
instruction  ELSE,  soil  les  conditions  I  ices  a  IF  soil  cedes  liees 
a  ELSE  deviennent  va tables. 
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Pour  fa  ire  autrement,  on  peut  5  implement  omettre  f  instruct  ion 
ELSE.  Cel  a  sign  if  ic  que  la  non-satisfaction  dcs  conditions  relices 
a  IF  nTa  d'autres  consequences  quo  de  poursuivre  le  programme  a  pres 
P instruction  FNDiF  corresponds  nte. 

Pour  eviter  d’avoir  a  ecrirc  toutes  les  conditions  des  tests  sur 
une  seule  ligne  de  programme  et  pour  pouvoir  definir  plusieurs 
conditions  cn  memo  temps,  il  est  possible  d’ cm  hotter  les  tests  IF. 
Vous  retrouverez  Fexpression  "ernboiter*'  plus  loin,  au  chapitre 
des  structures  de  boucles.  II  existe  done  la  possibility  par  c*.  a 
Pinterieur  des  tests  IF,  d’ insurer  d"a  utre$  tests  permettant  ainsi 
dcs  sous -bra  rich  omen  ts. 

Par  exernple  : 


IP  ch<iud=l  OR  piscine  converter  1 
IP  tu)lipS-~l 

&  3n  piscine— 1 

ELSE 

'  a  la  piscine— 0 

ENDIF 

ELSE 

lire=L 

ENDIP 

l.’e.xemple  ci-dessus  contienl  done  deux  etapes  tie  prise  de  decision. 
Cost  settlement  s*il  fait  chaud  ou  si  la  piscine  couverte  est 
ouverte,  que  Ic  facteur  temps  est  a  prendre  en  consideration.  S‘i! 
ne  fait  pas  chaud  et  si  la  piscine  couverte  n'est  pas  ouverte,  le 
facteur  temps  est  neglige  des  le  debut  ct  la  decision  "lire"  est 
prise. 

II  se  pem  que  certains  d'entre  vous  con  side  rent  comme  inadaptc 
Fcxemplc  "a Her  a  la  piscine  ou  lire1'.  II  a  ete  choisi  surf  out 
pour  dement rcr  qu’il  etait  possible  de  transferer  des  decisions 
"normales",  e'est-a-dire  des  decisions  relevant  du  quotidien  a  la 
logiquo  du  monde  informal ique. 
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2.9  LES  FLAGS 


11  exislc  encore  un  autre  prineipe  de  program  mat  ion  ;  les  "flags" 
(angl.  :  drapeaux).  Les  flags  ont  tme  foaction  trfcs  impoitanic 
lorsque  les  programmes  nfutili$cnt  pas  quc  les  fonctions  et  struc¬ 
tures  de  base,  mais  pen  vent  indiquer  different 3  et:Us  a  inelure 
lors  la  prise  de  decision. 

Voyons  ceci  a  partir  de  notre  example  : 


IF  chaml— 1  OH  piscine  coi*vert*=l 
Flag—  l 
END1F 


IF  Flag- 1  AND  tutnpa=l 

a  In  piscine— 1 
END1F 

U  esi  done  possible  de  determiner  un  dial.  ft  un  end  mil  quelconquc 
du  programme,  done  le  resuhat  ne  prendra  effet  que  plus  tard. 
Cela  pout  etre  envisage  pour  1‘ informat  ion  contenue  dans  "Hag=l" 
a  plusieurs  endroits  du  programme.  Pour  ne  pas  etre  oblige,  a 
ehacun  de  ces  endroits,  de  decider  (et  aussi  de  definir)  s'ii  fail 
chaud  ou  si  la  piscine  couverte  est  ouverte,  la  decision  peui  etre 
prise  le  plus  161  possible.  1/ information  d’unc  decision  positive 
ou  negative  pent  done  etre  mcmoriscc  dans  vine  variable,  elle  meme 
testee  par  la  Suite  it  plusieurs  reprises.  On  sail  peut-fltre  dejii 
aujouixThui  qu'il  fera  ehaud  domain,  mats  on  ne  suit  pas  si  on  aura 
le  temps  d'aller  a  la  piscine  domain.  II  ne  I'aut  done  prendre  que 
la  deuxieme  partie  de  la  decision  lorsque  les  cii  Constances 
imorviennent. 

Dans  noire  example,  le  nom  de  variable  Ting"  est  clioisi  de  fa<;on 
a j  bit ra ire.  Vous  pouvez  done  prendre  un  nom  de  variable  quel- 
conque. 
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2.10  LES  VARIABLES 


Les  variables  cTun  programme  out  la  mfme  function  que  eelles 
que  vous  connaissez  des  mmhematiqucs.  ENcs  sent  urilisees  a 
la  place  des  mconnucs  et  des  expressions  (numeriques  ou  alpha- 
numeriques)  dont  les  valeurs  (ou  aussi  le  volume.  Ic  eontenu)  sent 
connues  seu  lenient  ou  peuvent  changer  constnmment  en  cours  du  pro¬ 
gramme.  Nous  savons  done,  au  moment  de  dev  cl  Op  per  le  programme 
que  qudtjiie  chose  va  remplacer  les  variables,  ma is  nous  ignorons 
encore  de  quoi  i!  s’agit.  Alin  d’eviter  tout  ma  lent  end  u  :  naiurel- 
lenient  nous  savons  a  peu  pres  de  quoi  il  s'agil,  mais  nous  ne 
savons  pas  quel  sera  leur  eontenu  eoncret.  II  faul  done  prendre  la 
decision  sur  le  type  de  variable  A  choisir. 

II  existe  deux  types  de  variables  :  les  variables  mimeriqucs  ou 
de  valeur  et  les  variables  alphanumcriqucs  ou  tic  chain  c  tie  carac- 
leres  (string).  Les  variables  numeriques  ont  pour  function  de 
retenir  les  valeurs  de  ch  iff  res  qui  peuvent  leur  £(re  attribuees 
de  diffeientes  faqons,  au  cours  du  programme. 

Exemple ; 


INPUT  "Longueur  du  c6t<&  a" .A 
INPUT  "Longueur  du  cote  b",B 
C=;SQR{A‘2<  IT  It) 

Vous  a ve/  sti remen t  tous  rencontre  ect  exemple  a  1’eoole. 

A  pres  avoir  entre  deux  instructions,  1’uti  lisa  leur  du  programme 
demand e  quelle  est  la  longueur  des  deux  cotes  d’un  triangle 
rectangle.  A  ces  deux  valeurs  serant  attribuees  les  variables  "A1' 
et  "B".  Ensuite,  la  longueur  de  I'liypotenuse  sera  caieulec  scion 
Ic  theoreme  de  Pylhagore.  Le  requital  de  ce  ealcui  sera  attribue  a 
la  variable  MC".  Tam  que  les  variables  ne  contiennent  pas  d’autres 
valeurs,  les  ancicnnes  valeurs  represen  tent  les  longueurs  des  trois 
cotes  du  triangle  rectangle,  il  est  possible  de  demander  et  dc 
modifier  les  valeurs  en  cours  dc  programme  aulant  de  I'ois  qu'on  le 
desire. 
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II  cxiste  irois  types  de  variables  numeriques. 

Pour  sauvegarder  un  nombre  decimal,  done  un  nombre  reel,  il  suTFii 
de  leur  attribucr  le  nom  tl'une  variable.  Nous  a  vans  tlejci  fail 
connaissanee  de  ce  type  de  variable  dans  Pexcmple  ei-dcssu$*  I  n 
general,  un  tel  nombre  occupe  en  memo  ire,  6  octets  par  variables. 

Le  deuxieme  type  de  variable  est  I' integer.  11  s’agit  de  nombres 
qui  ne  conlicnncnt  pas  de  chiffres  a  pres  la  virgule,  done  de 
nombres  entiers.  Pour  eviter  une  deux  Seme  fois  lout  im  lent  end  u  : 
il  cst  evident  qu'on  peut  cgalcment  attribucr  a  ces  variables  des 
nombres  r^cls.  Settlement,  ceux-ci  ne  sent  pas  memorises  en  tnnl 
que  nombres  reels.  Les  chiffres  situes  a  pres  la  virgule  sont  tout 
simplement  "oublies".  Pour  faire  comprcndre  a  Pimerpreieur  qu’il 
s'agit  d'uno  variable  entiere,  il  fain  utiliser  com  me  suffixe  le 
signe  (par  ex.  Var%).  Ce  type  de  variable  occupe  4  octets  en 
memoi  re. 

l.e  troisie-me  type  esi  la  variable  booleennc.  File  ne  pent  repre¬ 
senter  que  deux  valeurs.  Plus  loin,  quand  vous  vous  occupe rez  des 
differences  instructions  ert  BASIC,  vous  rencontrerez  p  I  us  i  curs 
functions  qui  iFont  cgalcment  pour  resultat  que  deux  valours 
d  iff  creates. 

L’une  dcs  valeurs  est  0,  EMe  represente,  pour  PinterprCteur,  la 
valour  booleenne  "faux11.  1. 'autre  valeur  booleennc  cst  le  nombre 
-1  represents  nt  "vrai". 

Voyons  cela  sur  rexemple  EXIST.  Cette  function  permet  tout 
^implement  de  verifier  si  un  ftebier  cst  exist  am  sur  disquette, 
SMI  cxiste,  la  fonction  EXIST  retour  ne  -1.  Si  ee  n'est  pas  le  cas. 
0  cst  a fl'ic he.  Sen  lenient  deux  valeurs  differences  sont  retournees 
car  il  ne  peut  exister  que  deux  etats.  Cela  nous  permet  de 
deouuvrir  le  vrai  sens  dcs  variables  booloennes.  Pari  out  oil  les 
decisions  prises  ne  peuveni  avoir  que  les  reponses  "ouiH  ou  "non", 
done  "vrai"  ou  "faux”,  ces  valeurs  pen  vent  etre  a  (tr  Unices  a  nne 
variable  booleennc,  Meme  si  vous  attribuez  une  autre  valeur 
queleonque,  rUiterpreteur  ne  saura  faire  la  difference  qu’entre 
"faux1'  (O)  et  "vrai"  (-1), 
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Ceuc  valeur  est  a  lots  memorises  automat  iqucmerrt  comme  pv  roi'L 
done  -I .  Les  variables  presentent  I'a  vantage  de  tvoccuper  on 

rnemoi re  que  deux  octets  par  variable.  Elies  sont  idemificcs  grace 
an  snffixe  *T  (par  ex.  VaH). 

Les  variables  alpha  numeriques  ne  dcsignent  pas  des  valeurs  mais 
des  caracteres  ele  texle.  Striclemcnt  pnrlnnt,  ces  caracteres  son! 

ega lenient  des  valeurs,  telles  que  nous  les  avons  deja  rencontrer 
ci-dcssus  (les  caracteres  ASC71I).  Scu  lenient,  ici,  I*  interpret  eur 
"salt"  qu’il  ne  faut  pas  considerer  les  valeurs  attribuces  comme 

nombres  mais  comme  caracteres  ASCII*  Ceci  a  condition  qu’on  lui 
ait  indiqufc  qu'il  s’agit  ici  d’une  variable  de  chaine  de  carac¬ 
teres.  Pour  eela,  i!  faut  utiliser  le  stiff  ixe  "S'  <le  signe  du 
dollar  -  par  cx.  VarS). 

En  BASIC  GfA,  tine  variable  alphanumerique  peut  contenir  un 
nonibre  de  caracteres  compris  entre  0  et  32767.  Pile  occupc  cn 
rnemoi  re  nut  ant  d*  octets  que  de  caracteres  attribues.  De  plus,  it 
faut  reserver  6  octets  pour  le  pointeur  de  chaqtie  variable 

alphanumerique. 

Pour  pouvoir  memoriser  les  variables  de  chaine  de  caracteres,  on 
utilise  un  descript  eur  indiquant  i’adressc  du  premie*  caraclere 
de  la  chaine  et  la  faille  de  la  variable  (voir  paragraphe  ARRPTR 
plus  loin), 

Exemple  : 

AS=-fiAStC,r 
FEINT  A$ 

PRINT  "Lc  riialne  tie  caruettro  a  une  lonRiieur  de";  LEN(AS), 

"enractecea" 

PRINT  “L'udrcfcuc  do  In  chaine  do  OBt";VAR.PTK(At) 

PRINT  "I.e  tinsicripieiir  pour  A3  se  troiive  a  I’ndrcBSe"; 

areptr(aj) 

PRINT  "k  premier  -octet  (le  la  divine  de  rsract^res  »  la 
valeur"  ;PE£K(VARPTR(A*)J 

PRINT  “Lit  valeur  ,i;PEF:K(VARPTR(AS));’*  represent e  le  caractere“; 

PRINT  CHR3(PEEtC(VARPTR(A$)» 
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1 4i  variable  "AS"  est  d’abord  attribuce  A  la  chaine  de  carae  teres 
"BASIC*  Ensuite,  la  fonction  LF.N  permet  d'obtenir  la  longueur 
dc  la  chaine  dc  caraetcres.  Alin  dc  savoir  oil  cst  place  en  me¬ 
mo  ire  Se  premier  caractere  (octet)  de  la  chaine*  il  est  possible 
de  demandcr  son  adresse  grSce  -h  la  fonction  VARPTR  (ce  qui 
sign  if  ie  pointeur  de  variable)*  La  fonction  PEEK  retour  tie  ensuite 
lc  contenu  dc  l1  octet  qui  rep  resente  Ic  premier  caractere  de 
I’adresse  obtenue  par  VARPTR.  Enfin,  la  fonction  CHR$  affiche  le 
caracterc  corrcspondanl  a  la  valeur  obtenue  grace  ft  PEEK.  II 
s'agit  du  premier  caractere  de  la  chaine  dc  caracteres  en  question. 
Si  vous  rajoutez  I  a  Fadresse  obientie.  par  la  fonction  VARPTR, 
vous  obienez  Taclresse  du  deuxieme  caractere.  I  n  addition  nant  2, 
I'adrcsse  du  troisieme  caracterc*  etc... 

Hxemple  : 

AS^'BASIC*1 

PRINT  "Le  deuxieme  ear  act*  re  a  la  valmir  ASCII;PEEK{VARPTK(A$)  f  1) 


Pour  afficher  le  contenu  entier  de  la  variable,  tape* 
Print  AS. 

Lien  ne  vaui  ses  propres  experiences  ! 


2.11  LA  MATRICK  El  LE  VKCTFLR 


On  dirait  le  liirc  d’un  dr  a  me  de  Shakespeare  l  Pour  ne  pas 
s’ennuyer  et  parce  qu’on  ne  peuc  s’en  passer*  il  ex  isle  encore  une 
subdivision  des  types  de  variables.  EIlc  s’appcllc  "champs"  ou 
"arrays1*  ("array";  angl.  :  tableau). 

Celui  qui,  &  Pecolc*  a  ete  bien  a  l  lent  if,  sail  qu’il  faut  deux 
grandeurs  pour  e(  tidier  une  courbe  dc  fonction.  Dans  la  pluparl 
des  cas,  il  s'agissait  sans  doute  des  grandeurs  hX"  et  "Y".  Le 
calcul  de  la  grandeur  "Yv  s’effectuait  alors  pour  ehaque  grandeur 
"X"  don  nee,  a  partir  d’une  equation  de  fonction. 
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Les  points  d' intersect  ion  de  ces  deux  grandeurs  permettaieni  enfin 
d'obtenir  la  courbe,  Ccs  deux  valeurs  represents  ient,  en  ce  qui 
concernc  la  fonction,  unc  "pa ire  de  coordon  nees".  Afin  de  ne  pas 
eonfondre  les  differentes  valeurs  de  t'ordonnec  allam  de  pair,  il 
Taut  se  eonsiruire  un  champs.  Ce  processus  n’est  rien  d'autre  que 
ce  que  la  plupart  ifentre  vous  connaisscnt  sous  le  ter  me  11  tableau 
de  valeurs".  Un  tel  chumps  bklimensionnel  skippelle  eg  ale  mem 
"mat  rice". 


O.-l  -  .= 


C/D.'fl 

±/B/D 

Z/O/0 

J/E/U 

p5/IVo| 

O/i/O 

1^1/0 

z/lyo 

3/1/u 

5/1 yol 

r  n^7VI| 

r  1  1  .  1  _ 

I.--  r 

TABI.E  DES 
DIMENSIONS 


ItFT  iili  . 

y:  :1. .  P;i  i)  E  r  s  i  o  r  . 


■'-m 

1 

;  4*  : 

m 

1/0 

2/0 

3/0 

4/6 

5/0 

£3/1 

1/1 

2/1 

3/1 

4/1 

5/1 

m 

1/2 

2/2 

3/2 

4/2 

5/2 

2 

3 

4 

5 

6 

7  1 

8 

5 

Un  "vcctcur",  cependant.  est  un  champ  n’ayant  qu'une  seule 
dimension.  La  plupart  du  lamps,  ii  est  utilise  pour  regrouper  et 
classifier  plusieurs  valeurs  appurtenant  au  m£mc  groups,  sous  un 
“litre"  common  (le  nom  de  la  variable).  Vous  trouverez  des  rensei- 
gnements  plus  detail  les  concerns  nt  le  traitement  des  champs  sous 
DIM. 

I!  faut  ici  attirer  votre  attention  sur  une  particularilc.  A  part 
les  variables  boolcennes,  tnus  les  types  de  variables  occupcnt  la 
mcme  place  en  memo  ire,  indifferemmenb  qu’ils  se  trouvent  a  I’inte- 
rieur  d’un  tableau  ou  qu’il  s’agisse  de  variables  individual  les.  La 
variable  booleennc,  par  con t re,  n'occupe  qu’un  seul  bit  lorsqu'elle 
se  trouve  &  1'inlerieur  J'un  tableau. 
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II  esi  possible  de  choisir  comme  nom  de  variable,  une  denomination 
de  n'imporie  quelle  taille.  Ce  nom  peut  contenir  leg  caractercs 

"normaux"  (A  a  Z  /  0  a  9),  Ic  trait  de  soulignement  M _ "  ct  le  point 

V.  ft  faut,  ccpcndam,  que  le  premier  caractere  soit  une  lettre. 

Exemple  : 

N.om  de  variable,! 


2 . 12  LES  STRUCTURES  DE  HOUCI  1.S 

Qu'csi-ce  quune  houcle  ? 

Une  boucle  est  la  par  tie  du  programme  permed  I  ant  qu’un  bloc 
soil  parcel i ru  a  plusieurs  reprises,  11  exist c  qua t  re  differentes 
’'loops"  (loop;  angl.  :  boucle)  en  BASIC  GfA  : 

1.  la  boucle  FOR...NEXT 

2.  la 'boucle  DO...LOGP 

3.  la  boucle  R  EPE  AT...UNTIL 
4  la  boucle  W1 11LE...WEND 

Ktudions  tout  d'abord  les  deux  boucles  condi tionnelles. 

La  boucle  REP  HAT. ..UN  TIL  :  La  boucle  est  parcoiirue  apreS  T  ins¬ 
truction  REPEAT.  Un  bloc  de  programme  de  taillc  quelconque  est 
execute  plusieurs  fois.  1 1  est  ea  racier  istique,  pour  REPEAT... 
UNTIL*  que  la  condition  ne  soit  verifies  qu’en  fin  de  boucle. 
La  condition  d’arr£i  se  irouve  sur  lu  Signe  de  l' instruction 
dc  fin  de  boucle  et  d«;kie  du  nombre  de  fois  que  la  boucle  sera 
parcourue. 

Exemple  : 

REPEAT 
INC  A 
B=SQR{A) 

PRINT  "Rjiciw  carrcc  dc^A;"  =  ";!i 
UNTIL  13=16 
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A  P inter ieur  dc  la  boucle,  un  compteur  e-«st  incrementc  de  I  a 
chaque  fois  qu'eUe  est  parcourue  (INC  A).  Ensuite  la  racine  carree 
en  est  extra ite  et  les  deux  valours  stint  affichees.  Vous  remar- 
queroz  que  la  condition  "B=  1 5"  decide  du  nombre  dc  fois  a  pnreomir 
la  racine,  jusqu’a  ce  que  la  valour  de  la  racine  carree  eorresponde 
a  15. 

Comine  pour  les  tests  de  condition  IF,  il  est  possible  do  lier  les 
conditions  de  REF K AT...U NHL  grace  a  dcs  operatcurs  logiques. 

E  wimple : 

REPEAT 
INC  A 
B=SQR(A) 

PRINT  "Racine  carree  do*‘;A;"  =  ":B 
UNTIL  A-2Q0  OR  B=15 

Dans  Fexemple  ci-dcssus,  il  est  possible  que  le  programme  sortc  de 
la 'boucle,  lorsque  le  compte-ur  atteint  la  valour  200  "OU"  lorsque 
la  racine  carree  aticint  la  valeur  15.  La  presen te  boucle  est 
ton  jours  parcourue  au  mo  ins  une  fois,  car  la  condition  n'est  leslee 
qu’en  fin  de  boucle. 

Il  en  va  differemment  pour  la  boucle  WHILE...  WEND.  File  n’est 
jamais  parcourue  si,  en  v  arrivaiil,  la  condition  est  deja  remplie, 

Exemple : 


A-ll 

WHILE  A<10 
INC  A 

PRINT  SQR(A) 
WEND 


Le  bloc  de  programme  qui  se  trouve  a  1’ inter  ieur  de  la  boucle 
n'est  pas  execute.  Le  debut  de  la  boucle  WHILE  (angl.  :  pendant 
que/ianc  que)  signifie  que  le  bloc  est  jxircouru  tant  que  A  est 
inferieur  a  10. 
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A  Slant  dcja  super  icur  des  le  d<H)Ut,  Ic  programme  continue  juste 
a  pres  l' instruction  dc  fin  de  boucle  WEND.  Si  la  boudc  est 
parcouruc,  il  verifie  a  chaque  fois  que  la  condition  posec  sur  la 
ligne  de  WHILE  soil  remplie.  Si  tel  est  le  cas,  le  bloc  n’est 
plus  execute,  el  le  piogramme  poursuit  juste  apres  WEND. 

II  est  ega  lenient  possible  pour  WHILE. ..WEND  de  tier  plusieurs 
conditions,  grace  aux  opera teurs  logiques. 

Un  type  de  boucle  souvent  utilise,  la  boucle  FOR. ..NEXT,  n’est  pas 
conditionncllc.  Le  parcours  a  I'interieur  de  cette  boucle  n'est 
pits  effectue  en  fonction  d*une  condition,  mais  selon  un  nombre 
fixe  apres  V  instruct  ion  de  debut. 

Exemplc  ; 

FOR  A~l  TO  225 
li-SQll(A} 

PRINT  -RacjtK!  cwrfit  ck",A;"  =  ";R 
NEXT  A 

Une  variable  coinpteur  quelconque  (ici  "A")  est  indiquce  sur  [a 
ligne  FOR.  Cette  variable  est  ensuite  incremented  de  la  valeur  I 
(ici  a  partii  dc  l)  chaque  t'ois  que  la  boucle  est  parcourue, 
jusqu'a  ce  que  la  valeur  finale  (ici  225)  soil  attcinte.  I.e  nom  de 
tn  variable  doit  figurer  sur  la  ligne  de  V  instruct  ion  de  fin  de 
boucle  NEXT,  I*  present*  boucle  detient  encore  quelques  autres 
possibiiites  que  vous  verrez  plus  loin,  lors  de  la  description  de 
^instruction  FOR...NEXT. 

Ijh  boucle  DO..,LOOP  est  une  boucle  non -conditionncllc.  sans 
comptcur.  Ici,  le  bloc  de  programme  qui  se  trouve  entre  DO  ct 
LOOP  est  repet  c  &  Linfini,  II  n’est  pas  possible  de  definir 
iniplicitement  une  condition  d’ interruption. 

Exemplc  : 

DO 

INC  A 
B-SQR(A) 
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PRINT  "Racine  carr£e  de”  ;A;"  =  11  ;B 
LOOP 


It  n'esl  possible  de  sortir  d’une  boucle  DO..LOOP  que  par  une 
action  si  mu  I  lance  sur  les  touches  <T  interruption  de  programme 
<CONTROL>,  <SH1FT>  et  <ALTPkNATE>.  Outre  cela,  il  exists 
la  possibiliie  d’en  sortir,  grace  4  la  condition  d1  interruption 
EXIT  IF  (voir  a  Fen  droit  indique). 

II  est  possible*  pour  tous  les  types  tie  boucles*  de  les  em  bo  iter 
les  uns  dans  les  autres,  e'est-fi-dire  de  mettre,  a  P inter icur 
d’une  boucle*  une  autre*  de  n’importc  quel  type. 

Excmplc  : 

FOR  I«1  TO  10 
FOR  J-l  TO  10 
REPEAT 
INC  K 

'  PRINT  "t  =  3  =  "jJ;"  K  -  hjK 

UNTIL  KMV10 
NEXT  J 
NEXT  I 


II  fa ut  noter  que  lors  d’un  emboitement*  les  instructions  dc  fin 
de  boucle  (NLXT/UNTIL/LOO P/WEND)  sonr  mises  dans  Pordro 
inverse  dcs  instructions  dc  debut  dc  boucle. 


Kxemple  : 


Faux 

REPEAT 

WHILE  A <10 
UNTIL  A=10 
WEND 


Correct 

REPEAT 

WHILE  A <10 
WEND 

UNTIL  A- 30 
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Faux 

FOR  1  =  1  TO  10 
FOR  J=1  TO  10 
NEXT  i 
NEXT  J 


Correct 

port  i=i  to  io 

FOR  J=1  TO  10 
NEXT  J 
NEXT  I 


Si  vous  nc  respectez  pas  cet  ordre,  Pinterprcteur  vous  affiehcra 
un  message  d’erreur  kirs  de  (‘execution  du  programme. 


2.13  LES  OPERATEURS  DE  COMP  AR  A  ISON 


Kn  ctudiant  plus  ham  tes  structures  de  boucles,  des  operateurs  tie 
comparison  onl  etc  utilises  a  plusicurs  reprises.  La  pluparl 
d’entre  vous  les  connaissent  deja,  grace  aux  mathematiques. 


Les  voici  : 


= 

ttgul 

< 

strictcment  infer  tcur 

> 

strie  lenient  superieur 

<> 

resp,  >< 

different  tie 

<- 

resp.  -< 

inferieur  ou  egat 

resp.  => 

super  i  eur  on  egal 

Les  operateurs  de  compaiaison  s'appliquem  a  deux  expressions 
numeriques  ou  a  deux  chaines  de  caractcrcs. 

Example  : 

Pi  i lit  ■AUCVDCD" 
ou 

Print  123-234 

Les  deux  examples  paraisseet  inhabit uels  inais  prennent  un  sens 
iorsque  Ton  sail  qu'une  compa  raison  a  urn  jours  pour  result  at  une 
des  deux  valours  booleenne  (O  ou  -I ). 
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Pour  les  deux  excmplcs,  on  obtiernlra  done  eomine  resullat  zero, 
parce  que  la  chaine  de  caiaeteres  "ABC"  n’est  pas  superieure  a 
la  chaine  de  caracteres  ''BCD’1  et  parce  que  Ea  valeur  234  est 
different^  de  la  valeur  123.  Coniine  nous  le  savom  deja,  la  valeur 
0  represen tc  "faux*1  ou  "pas  vrai\  En  i n versa nt  les  deux  expres¬ 
sions  de  texte  dans  I'exemple  ci-dessus,  on  obi  i  cm  la  valeur 
booleenne  -1  ,  done  "vrai".  Une  application  significative  est  done 
imaginable  en  attribuam  a  nouveau  les  valours  boolecnnes  obtenues 
&  line  telle  variable. 

Vous  vous  demandez  sans  doute  comment  il  est  possible  de  vciiPicr 
si  ties  expressions  de  texte  sont  "strictemani  sup^rieures"  ou 
"strict ement  inferieures"  a  d’autres  chaines  de  caracieres. 

Tour  la  comparaison  de  deux  chaines  de  caracteres,  finterpreieur 
precede  de  la  man i ere  suivante,  ll  compare  les  valeurs  des  codes 
ASCII  rd  a  til's  aux  caracteres  des  deux  chaines,  en  commengam 
d'abord  par  les  deux  premiers,  puis  les  den  denies,  etc... 
L 'expression  dc  lextc  comenant  alors  le  caractere  de  valeur  plus 

eleSVee  est  la  cEiainc  "superieure'.  l.e  meme  precede  est  applique 

pour  savoir  $i  une  chaine  de  caracteres  est  ’inferieure"  a  une 
autre.  Si  les  deux  chaines  out  des  longueurs  differentes  et  si  la 
comparaison  jusqu'a  la  fin  dc  la  plus  petite  chaine  n'a  revele 

aucune  difference,  la  chaine  dc  caracteres  la  plus  longue  est 
"superieure1  et  la  plus  petite  est  "inferieure"  a  1  "autre. 

IE  fuut  cependant  noter  que,  pour  la  comparaison  depressions  de 
texte,  tous  les  caracteres  "normuux*  existent  en  majuscules  (A  a  Z 
==>  ASCII  65-90)  et  en  minuscules  (a  a  a  ==>  ASCII  97-122).  IE 
fa nt  done  d’abord  transformer  entier ement  les  deux  expressions  de 
texte,  soil  en  majuscules  soit  en  minuscules.  Ce  if  est  qifapres 
cette  modification  qu’une  comparaison  va  table  par  ordre  alpha¬ 
bet  ique  peut  dire  effect  uee  (voir  UPPERS).  Si  les  chained  de 
caracteres  comprennent  d'a  litres  caracteres  que  ceux  de  A  a  Z, 
e'est-h-dire  des  ch  iff  res,  des  biancs  ou  la  po  actuation,  les 

caracteres  spot  examines  de  la  mOmc  fagon  com  me  cela  a  etc  decrii 
plus  haul. 
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2.14  LES  OPF.WATF.il RS  AWITIIMET[QlJES 


Ce  que  rordinatcur  sait  fa  ire  1c  micux  et  le  plus  rapidcmenl, 
cVst  le  calcul  Cest  son  plat  favor i.  II  dispose,  pour  cela,  de 
nombrcuscs  ion ct ions  confortables.  Pour  les  utiliser,  il  fnut  con- 
naitre  le  langagc  machine  correspondent.  Mai 5  les  debutants  peuvcnt 
ega  lenient  en  profiler,  car  l’ interpreter  (ou  compilaieur/ 
assembleur)  dispose  de  symboles  indiquant  a  Tordinatciir,  quel 
genre  de  calcul  on  lui  demandc  dc  fa  ire. 


SQR{x) 


* 

DIV  ou  \ 

MOD 

+ 


extraire  une  racine  (des  fonciions 

arithmetiques) 

puissance 

signe  negatif 

multiplication 

division 

division  entiere 

modulo 

addition 

so  extraction 


Le  BASIC  Gf A  dispose  de  plusieurs  fonciions  arithmetiques  prede- 
finies  quo  vous  trouverez  dans  la  lisle  des  instructions  (annexe). 
Bn  outre,  il  esl  possible  de  deftnir  soi-mcmc  des  fonciions  (voir 
DEFFN).  Elies  ont,  pour  toutes  operations  arithmetiques,  la  mcme 
valeur  hierarch iquc  que  les  fonciions  relevant  di*  BASIC. 

Division  cntiere  :  rordinatcur  ne  calculc  que  la  partie  enliere  du 
quotient  (quot lent- resui tat  d'une  division).  La  partie  tronquce 
est  ''oubliee'\  II  est  possible  d' utiliser  pour  cette  operation  ou 
bien  DIV  ou  bien  “\M  (anti -si ash). 

Le  modulo  :  le  modulo  correspond  au  reste  de  la  division  entiere. 
La  partie  enliere  est  alors  "oubliec". 
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Excmple  ; 


37  MOD  11  =  4 

->  11  *  s  as  33 

37  -  33  =  4 

2.15  LES  REG  LES  DE  PRIORITE 


Four  etre  plus  correct,  it  fit  iid  rail  les  appear  les  "regies  de  la 
hierarchic"  ou  les  "regies  de  Pordre".  Les  regies  determinent 
Pordre  dans  lequel  les  differentes  operations  arithmeliques  soni 
trai  tees. 

La  pin  part  d’entre  vous  connaissez  sans  doute,  par  les  mat  he 
mat'iqucs*  dcs  constructions  de  meme  type  que  celle-ci  : 

'  X-SQR( 1 2*3+06-22* i  2H*4 /3))*$I N(  1 3 ) 


Les  for  mules  de  ce  type 

sc  resolvent  duns  Pordre  suivani  : 

l. 

SQR,  TAN,  ATN 

lee  fonctions 

3. 

(  ) 

1l-»  parentheses 

3. 

e"k 

la  puissance 

4 

* 

le  eigne  negatif 

5, 

la  mult  i  plication  /  la  division 

6. 

MOD.  DIV  on  \ 

le  modulo  /  la  division  entiere 

7. 

+  .  - 

['addition  /  la  so  lift  Faction 

Comme  it  est  egaleraent  possible  d’utiliser  de  la  memo  fa^on,  les 
opera teurs  logiques  ou  tie  comparaison,  ceux-ci  sont  inseres  dans 
Pordre  de  la  hierarchies 


8.  <>i  — j  >,  <,  =>,  <—  L*s  epersteura  de  comparaiton 

&.  AND,  OR,  NOT,  XOR,  IMP,  EQV  Lok  opfratenrs  Joggles 
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Exeniple  : 

Print  (12a3+(36-22a I.2)-(-4/3)J*3>I4a3 
ou 

Print  (12A3+(36-22A1.2)-<-4/3))*3  And  14*3 

S*il  ne  sc  trim  vent  a  Tintcrieur  d’unc  expression  arhhmelique 
que  des  opera  teurs  de  meme  rang,  ceux-ci  sent  executes  dc  la 
gauche  vers  la  droitc.  Pour  que  I'ordinateur  ne  suive  pas  cet 
ord re  de  precede,  vous  pouvez  mettre  les  calculs  priori! .a ires 
outre  parentheses. 

Voila  la  petite  introduction  aux  principes  fondumeniuux  de  la 
programmation.  Pour  to  us  ceux  qui  trouvent  cola  un  peu  com- 
pltquc,  its  do i vent  sc  dire  qu’il  y  a  un  commencement  a  tout.  Celui 
qui  n'est  pas  ecoeure  a  Pidee  dcs  mathematiques  pent  ar  river,  avec 
un  peu  de  genie,  a  devenir  un  pro. 


r 


-  53  - 


Le  iivre  du  BASIC  GfA 


-  54  - 


L'  a  h  c  du  GfA 


3.  L’a  b  c  du  GfA 


Com  me  pour  chaque  langue,  il  faut  tout  d'afcord  on  apprendre 
)’a  b  e  pour  pouvoir  la  parler  couraminenL  C'ela  sign  if  ie  une 
mail  rise  des  structures  fundamcMales,  de  fagon  ft  ce  quo  1e 
recepteur  (dans  le  cas  present  P  interpreter)  puissc  comprendre 
Pcmcrteur  (Putilisateur).  HcureuSement,  le  BASIC  est  un 
langage  qui  a  pour  reputation  d4auiomer  presque  route  svntaxe 
imaginable. 


3.1  LA  PROG  R  A  M MAT  ION  STRUCTURES 


Ceux  qui  ont  une  premiere  experience  des  langages  "C'1,  "Mod u la” 
on  ''Pascal"  connaissenl  dejn  les  ca  racier  istiques  de  la  prog  rum¬ 
ination  structured.  Ccux  ay  ant  Phabiuidc  de  programmer  en  BASIC 
class ique  ("code  Spaghetti1'),  tiouveront  sans  doute,  dans  les 
pa  rag  raphes  suivants,  de  nouvelles  idees  leur  faeilitant  consi- 
d&rableitfent  r utilisation  du  BASIC  GfA. 

lout  cPabord,  il  faut  noter  que  Jes  uiilisatcurs  souhaitant  gar  dec 
Lcurs  bonnes  habitudes  de  programmation  en  BASIC  peuveni  1c  fnira. 
Seu lenient,  a  ce  moment  la,  l1  instruction  de  structure  typique 
DO. ..LOOP  nc  peut  guerc  etre  utilisec.  Cette  instruction  n’esl  pas 
condi tion nolle.  Toutes  les  parties  du  programme  a  P inter ieur  d’une 
telle  bouclc  sent  repel  ees  jusqu'a  ce  que,  ou  bien  la  condition 
indi  quite  dans  une  construction  EXIT  IF  soit  reniplie*  ou  bien  une 
instruction  END,  ED  ou  SLOP  soit  in  Mi  see  ou  encore  quo  les  (ouches 
<CONTROL>t  cSI III ;T>.  <ALTERNATG>  soient  enfoncees.  Cela 
sign  ifie  qu'il  faut  bien  con  nail  re  la  construction  de  cede 
boucle  afin  de  pouvoir  1'ormuJer  les  conditions  de  sortie.  Cc  type 
de  boucle  esc  parfaitement  adapte  a  la  repetition  de  gran  des 
parties  du  programme. 

En  voici  un  exemple  ; 

DO 

{JB  P  roc^dure  Ab 

<®  P_rociduru  Be 
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9  P__rQC4dur*  Cel 

EXIT  II1’  condition  finals  ivmplie 
LOOP 

PROCEDURE  Ah 

'  Ton  ten  les  initinlisntions  impor  Unites 
RETURN 
PROCKDURE  Be 

*  Programme  principal  comportanfc  It  last  tie  colicUIon  END 

RETURN 
PROCEDURE  Cd 

1  Modifier  Lions  ulMrienrue  (par  ex.  rculanrcr  POKE  ou 
affichagc  Jc  denned) 

RETURN 

Comme  le  test  de  condition  EXIT  IF  pent  egalcment  £trc  utilise 
pour  d'a  Hires  boucles  (FOR  ...NEXT,  REPEA  T...UNTIL, 
WHILE.. .WEND),  il  fimt  prendre  soin  que  le  EXIT  IF  rclatif 
:»  DO...LOOP  se  trouve  bien  en  dehors  des  aulres  boucies. 

C£ux  qui  trouveront  cela  Irop  complique  pen  vent  continuer  a 
utiliser  dans  kmis  programmes  I’ instruction  GOTO  -  comme  e'est  le 
cas  pour  les  aulres  interpreteurs  BASIC.  Fn  fait,  il  n’existc  que 
deux  choses  qu'on  nc  pcul  plus  utiliser  cn  BASIC  GfA  :  enchatner 
dcs  series  ^instructions  sepitrees  par  des  doubles-points  et 
utiliser  des  numcros  de  lignes.  Le  BASIC  CifA  iTautorise  qtTunc 
SOule  instruction  par  ligne.  De  plus,  gr&ce  a  Pinlerpreleur.  les 
lignes  out  une  structure  oplique  qui  amcliore  considcrabkment  la 
visibilitc  du  programme.  On  se  rejouil  v raiment  de  voir  la  version 
finale  du  programme,  Unite  prop  re  et  Lien  structured. 

Un  autre  aspect  important  est  le  gain  de  temps  considerable  pour  la 
recherche  des  erreurs.  II  est  possible  de  saisir  les  lignes  d* ins¬ 
tructions,  inslantancmcnt,  sans  devoir  .scroller  les  carac teres.  De 
plus,  le  ddcnlage  des  lignes  met  i mined iatement  en  evidence,  par 
exemple,  quelle  I  N  Dll  et  IF  et  quelle  NEXT  et  LOU  vont  ensemble. 
Comme  vous  le  remarquerez  dans  le  programme  graph  ique  plus  loin, 
il  est  meme  possible  de  saisir  en  entier  des  programmes  tres 
complexes. 
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Les  numeros  dc  lignes,  par  contre,  sent  devenus  complelement 
super  fins.  Leur  scule  raison  dtetre  eta  it  le  fait  que,  grace  a  cux, 
les  instructions  de  saut  CiOTO  et  GOSUB  poiwatent  $e  branchcr 
ft  certaincs  lignes  du  programme.  Mais  vu  que  nous  nous  trouvons 
ma intenant  dans  une  nouvelle  ere  du  BASIC,  il  cst  possible 
d'utiliser  pour  eda  les  '‘labels"  (angl.  :  etiquettes).  Ce  soot 
tout  ^implement  des  formulas  facultative®  placees  a  one  postlion 
precise  du  programme  sur  laqudle  sautera  par  la  suite  une  ins¬ 
truction  GOTO.  L/eti queue  doit  tou jours  se  terminer  par  un 
double  point  pour  que  Tinterpreteur  puisse  la  reconnaltre. 

La  suppression  des  numeros  de  lignes  a,  par  ail  leu  rs,  pour  a  vantage 
de  ne  plus  avoir  a  se  soucier  de$  ecarts  entre  les  different® 
numeros  de  lignes,  Lorsque  ces  numeros  faisaient  defaut.  *1  etait 
necessaire*  pour  les  anciens  interpreteurs  BASIC,  d'utiliser  un 
long  programme  de  renumerotation.  En  BASIC  GfA,  par  centre, 
une  nouvelle  ligne  pout  etre  inseree  entre  deux  lignes  deja  exis- 
tantes  sans  aucune  operation  supplemental  re. 

Un  petit  programme  s’appelam  "ST_K ILL. BAS”  est  cfaillcurs  a  joule 
a  r interpreter,  permettant  ainsi  dc  supprimer  tous  les  numeros 
de  lignes  dans  les  anciens  programmes  BASIC  et  de  developper 
un  programme  chargeable.  Les  lignes  qui  ne  correspondent  pas  a 
la  syntaxe  du  BASIC  GfA  sent  a  lots  precedes  d'un 

Le  plus  grand  a  vantage  de  la  program  mat  ion  structures  reside  sans 
doute  dans  les  petites  sous-routines  employees  lors  du  develop- 
pement  du  programme.  Elies  sont  referniees  et  off  rent  ainsi  la  pos- 
sibilite  d'etre  c lassoes  dans  une  grande  bibliotheque  de  programmes 
auxiliaires  et  procedures  generates.  En  principe,  ccla  est  ega le¬ 
nient  possible  pour  les  autres  types  de  program  mat  ion.  Seulemem, 
les  procedures  y  sont  beaucoup  plus  rares.  Ce  qui  rend  les  proce¬ 
dures  encore  plus  conform bles,  c*est  la  posstbilite  (cn  BASIC 
GfA)  d*y  rajoutcr  une  liste  de  parametres  prexque  aussi  longue 
qu‘on  le  souhaite.  11  n’existe  sans  doute  rien  de  plus  effieace. 
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3.2  LES  ELEMENTS  DE  l.A  PROG  R  ANIMATION 

Comme  promis,  la  parti  e  theorique  s'arrtte  ici. 

J’ai  choisi  cTutiliser  un  programme  graph ique*  comme  base  pour  le 
present  livre.  Cest  sans  dome  ce  qui  permet  ie  mieux  de  montrer 
toules  les  possibilitcs  ^applications  des  differentes  instruc¬ 
tions.  A  part  ccla,  j’ai  constate  que  d'autres  types  de  programmes, 
meme  s’Hs  sont  tres  raffing  (comme  par  ex.  le  trai  lenient  dc  textc 
ou  !e  calcul  des  tableaux),  ne  rdevent  pas  autant  d’Lnteret  qu’un 
programme  de  grapheme.  Dos  effets  graph  iques  peuvent  augmenter  de 
fagon  considerable  le  plaisir  du  travail  sur  programmes.  II  tie  faut 
pas  oublier  que  des  effets  de  ’'cirque"  peuvent  servir  a  rend  re  plus 
interessant  meme  les  programmes  duplication  les  plus  plats. 

Dans  les  chapitres  sui vents,  vous  sere/,  done  informes  exclusivement 
sur  la  programmation  appliquee  en  BASIC  GfA  et  sur  V utilisation 
de  different*  effets  graph iques.  It  faut  cependant  noter  qu'tine 
description  complete  du  programme  ne  pent  pas  fit  re  realises  dans 
urf  seul  ouvrage.  Les  parties  du  programme  deja  trailees  de  !a  meme 
fagon  ou  de  fagon  semtolablc  ail  lours,  ne  seront  pas  reprises  si 
dies  n’apportcnt  pas  assez  de  nouvea  utc$. 

Vous  trouverez  un  bref  manuel  d’utilisation  et  une  liste  des 
procedures  de  ce  programme  en  annexe. 

I!  faut  noter  que  le  present  programme  ne  peut  etre  lance  qu*cn 
mode  monochrome. 

En  outre,  il  a  ele  congu  pour  un  ST  avec  une  memoire  de  I  M  octet. 

Vous  trouverez  done  en  annexe  une  liste  de  tomes  les  modifications 
neccssaires  pour  utiliser  le  programme  sur  un  ST  512  K.  octet. 

Le  debutant  en  BASIC  a  pu  apprendre  Its  principcs  fondamentaux 
de  la  program  mat  ion  dans  le  ehapitre  "Le  BASIC  de  base". 


-58  - 


L  a  h  c  du  GfA 


Les  chapitrcs  suivants  essaient  cgalement  d’imroduire,  a  titan  t 
que  possible,  des  connaissances  de  base.  II  faut  cependant  partir 
quelques  fois  d’un  certain  niveau  de  connaissances.  Lorsque  ces 
connaissances  ne  sent  pas  suffisantes,  r esprit  de  combi naison  de 
chucun  doit  favoriser  la  comprehension. 

Les  differentes  instructions  du  BASIC  utilisccs  dans  le  programme 
graph  ique  seront  expliquees  dans  leur  ordre  d’apparition.  Vous  y 
trouverez,  sous  1c  nom  de  1’ instruction,  une  ligne  de  syntaxe. 
A  fin  de  demon  trer  toutes  les  possibilities  d’utilisalion  des  ins¬ 
tructions,  les  parties  optionnelles  (faculta  lives)  se  trOuvont 
entre  crochets  ([ ...J).  Cela  signifie  done  qu'il  it’esi  pas  force- 
mem  necessaire  de  les  utiliser. 

Les  instructions  non  utilisccs  dans  le  programme  seront  etu  dices, 
soil  dans  le  contexte  des  instructions  pa  rentes,  soit  apres  la 
liste  des  instructions. 

La  structure  du  present  livre  ne  per  met  tail  pas  de  classer  les 
chapitres  selon  leur  champ  d’application.  II  est  cependant 
possible  de  irOuver,  dans  le  sommaire,  les  groupes  d*  instruct  ions 
les  plus  importants.  S*il  vous  manque  encore  des  informations,  vous 
pourrez  passer  par  I'annexe  (index  et  liste  d' instructions).  Rile 
dev  rail  vous  pemiettre  de  trouver  les  dem  ieres  explications  et  de 
resoudre  ainsi  les  problcmes  resiams. 
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Et  maintenant  !e$  premieres  Hgnes  de  programme  -  c’esi  parti  ! 

{d^re-kiMlinA 

itProdefa 

^■f)riuich*in«nt 


instructions  GOSUB  mix  differs  fit  rift  parties  du  progrnnunf* 


3.2.1  les  in  struct  Ions  de  structure 


GOSUB 
Syntax?  : 

GOSUB  nom  de  la  procedure 

Ee  sigle  sign i fie  exactement  la  memo  chose  que  V instruction 
GOSUB.  Si  cc  signe,  ou  GOSUB.  precedent  unc  etiquette,  Pinter- 
preteur  se  branch  era  sur  la  procedure  en  question. 


PROCEDURE  Pre-loading 


‘Ctiite  routine  charge  la  couverUire  et  Ies  icfinca  du  menu 


PROCEDURE  /  RETURN 


Syntax?  : 


PROCEDURE  nom  ...  RETURN 

En  BASIC  GfA,  une  "procedure"  est  un  sous  -pro  gramme  con  tenant: 
des  blocs  de  programme  it  appeler  ft  partir  de  plusieurs  positions 
clu  programme  principal.  Ce  ne  sera  it  pas  Ires  elTicace  d’avoii 
tou  jours  £i  reform uler  des  deroulements  de  programme  utilises  a 
plusieurs  reprises.  Cesi  pourquoi  des  sous-prog  rammer  aussi 
gencraux  que  possible,  sont  developpes  et  appeies  aux  positions 
respect  ives. 
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11  csi  indispensable  qu’une  procedure  so  termine  avec  I' instruction 
de  retour  RETURN.  Lorsque  rimcrpretcur  rencontre  cette  ins¬ 
truction,  it  se  branch©  sur  la  ligne  d’appel  ct  poursuit  lc  pro¬ 
gramme  par  la  ligne  suivante, 

ON  BREAK  GOSUB  fin 


OH  BREAK  GOSUB 
Syntaxes : 

ON  BREAK  GOSUB  nom  de  la  procedure 

ON  BREAK  GOSUB  determine  tine  procedure  &  laquelle  so  branch© 
!e  programme,  s’il  a  etc  intorrompu  par  Temploi  simultane  dc$ 
touches  <CONTR0L>,  <SIIIFT>  et  < A LTER NAT H>  ou  par  P ins¬ 
truction  STOP. 


IF  EXISTf\p«;_pro  pie**)-© 


IF  /  ELSE  f  END  IF 
Syntax© : 

IF  condition  ...  [ELSE]  ...  END  IF 

II  s'agit  tout  d’abord  d'un  test  dc  condition.  J /instruction  IF 
pose  unc  condition  c!om  !a  valour  logique  (vrai  ou  faux)  decide, 
par  Et  suite,  du  derou  lumen  t  du  programme.  La  pi u part  ifentre  vous 
ont  sans  doute  appns,  des  autres  interpreteurs  BASIC,  qu’il  ctait 
indispensable  de  fa  ire  suivre  la  question  IF  (si)  par  THEN  (akirs). 
A  pres  THEN  sc  trouvaient  les  operations  a  exec  liter  en  fonction  de 
la  valeur  booleenne  rUsultam  du  test  de  condition.  Cela  signifiait 
jtisqu’a  present  que  la  ehaine  d' instructions  apres  THEN  eta  it 
limitee  par  la  place  disponible  sur  la  meme  ligne.  En  BASIC  GfA, 
par  centre,  les  parlies  de  programme  dependant  d'une  condition 
peuvent  maintenant  ctre  plus  longues.  II  ne  faut  plus  d’ instruction 
THEN  apres  IF. 
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La  longueur  de  la  chaine  d' instructions,  dont  Fexecutron  depend 
d’une  condition,  n’est  delimits  que  par  E  Instruction  situ£e 
a  pros  IF.  II  est  possible  d’inserer  dans  le  test,  F  instruct  ion 
ELSE  (sinon)  suivie  des  parties  de  programme  a  executor,  si  la 
condition  iVest  pas  remplie. 

Exemple  ; 


IP  (condition) 

((iOrouieiJK'iit  du  programme  si  la  condition  est  vnue) 
ELSE 

(d^roulcfntmt  de  programme  ei  la  condition  eet  fanes  e) 
ENDTF__ _ _ _ 


II  est  possible  d’em  better  fes  tests  de  condition,  las  tins  dans  les 
a utres,  autant  que  Ton  veut.  II  faut  cependant  noter  que  les 
instructions  ELSE  ou  ENDIF  ne  se  referent  a  lots  qu'nu  IF  precedent. 


EXIST' 

Svntaxc  : 

EX  ISTF'chcmm  et/cu  nom  de  fichier1') 

L’instruction  EXIST  permet  de  savoir  si  un  fichier,  du  nom  indique 
entre  parentheses,  existc  sur  la  disquelte  specifier  Elle  rctourne 
soil  0  (absent)  soit  -I  (exlstant).  II  cst  possible  dxaltribuer 
CCtte  valeur  a  unc  variable  (A^EXIST(nom  de  fichier))  ou  de  Puti- 
liser,  comme  dans  Pcxctnplc  present,  directement  a  rinterieur  tTun 
test. 

La  structure  hierarch ique  du  chcmin  est  la  suivante  : 

Lecteu  r  de  d  isquet te  \  reper to i  re\ sous-repertoi  re\  nom  de 
fichier  .extension 

par  ex. :  B:\UTILITY\OU  rTUTS\FICIIIER.DOC 
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Le  fichier  "FICHIER.DOC  est  alors  recherche  sur  la  disquette  B 
dans  te  sous-repertoire  du  repertoire, 

D' enures  possibility  : 

B:\UTIUTYV  * 

recherche  du  premier  fichier  apparaissant  seulemcnt  dans  le 
repertoire. 

B:\UTILlTY\OUTPUTS\*.  DOC 

recherche  du  premier  fichier  ay  ant  1’ extension  .DOC,  sou  I  c  mem 
dans  le  sous-repertoire, 

\*.DOC 

recherche  du  premier  fichier  ayant  1’ extension  .DOC,.  sur  le  disque 
utilise  aetuellcment. 

\F1????? 

recherche  de  tous  les  fichiers  d’tm  nom  de  sept  left  res  commen^ant 
par  FI,  sur  la  disquette  utilise  act  uel  lament. 

A:\FI7W7.DOC 

recherche  de  tous  les  fichiers  d'un  nom  de  sept  letlics  commen^am 
par  FI  et  ayant  J 'extension  .DOC,  sur  le  disque  A. 


i  p*  * 

\  r  * 

recherche  de  tous  les  fichiers  comment  nt  par  F,  sur  b  disquette 
acUtcUemenl  utitisee. 

It  serait  trop  long  d'indiqucr  ici  toutes  Its  possibilitcs  d'une 
structure  de  chemin.  Fartes  done  vos  pro  pres  essais  ! 

GOTO  Enter.  1 


'Si  done  la  eouverturo  li’a  j>*m  trouvMj  .uute  I*  procesiauB  do 
'charged  Let  it  tt  va  &  I'fctiqiuitte  BEnler.lH 
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GOTO  etiquette 


Syntaxe : 

GOTO  nom  dc  I'etiquette  dc  saut 

Cest  unc  des  instructions  ies  plus  util  usees  par  les  in  terpre  tours 
BASIC  cratlitionnels.  Cola  ne  sera  plus  le  eus  pour  te  BASIC  (if A. 
En  effet,  GOTO  nc  fait  que  brancher  le  programme  de  la  iigne,  ou 
f  interpreter  reneon t re  1’ instruction,  sur  la  ligne  reperee  par 
r etiquette  indtquee,  L’ctiquettc  pout  contenir  n’importe  quels 
carac  teres*  Com  me  pour  Ies  noms  de  procedures,  il  est  possible  que 
f  etiquette  commence  aussi  par  un  cb  iff  re.  EUe  doit  se  terminer 
par  un  double-point. 

Example : 

1  .label; 

Entrer  dans  une  boucle  FOR. ..NEXT  ou  dans  one  procedure  et  en 
sortir  par  un  saui,  n’est  pas  autorise.  Un  message  d'erreur  est 
alors  affiche  par  fediteur. 

END1F 


fKlIjdt  mouse 

'Couverlure  ft  irouvGe, 

'Klein!  s  1ft  souris,  si  non  le  niapf|ire  >1*  In  nouns  laiMtrft  un  vilftin 
'trou  sur  1 'image. 

BLOAD  "prajx».pic"»XHIOS(2) 

'Charge  In  couverturc  en  tuemoirc-ucrftn 
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3,2 ,2  Lcs  operations  de  lilacs 


II  LOAD 


Syntaxe : 

BLOAO  "chemin  et/ou  nom  de  fichicr*[*adresse  finale] 

L’instruction  BLOAD  recharge  en  me  moire  principals  lies  blocs  de 
donnees  qui  ont  etc  sauvegardes  sur  disquette  grace  a  BSAYE,  Un 
paramctre  indiquc  alors  Fadrcsse  du  stockage  en  memoire,  La 
longueur  du  bloc  a  etc  definie  a  I’akle  de  BSAVE.  Si  le  bloc  doit 
cl  re  recharge  grace  a  BSAVE.  a  Fadresse  d’avant  la  sauvegarde, 
I’adresse  finale  treat  disparaitre. 

Avant  le  chargement.  il  faut  prendre  soin  qu’il  y  ait  sufTisammem 
dc  place-memo  ire  dtsponible  a  Fadrcsse  indiquee,  a  fin  que  toutes 
ies  donnees  puissent  etre  stock  ees  sans  avoir  a  ecrire  sur  des 
zones  de  memoire  importance;.  En  outre*  le  fichier  charge  esi 
notnmei .  La  hierarchic  de  chemins  deja  decrite  cst  egalement  valable 
pour  BLOAD. 

Dans  le  cas  present,  une  image  esi  a  charger  sous  Fad r esse  de 
debut  de  la  memoire-ecran  (Fappel  XB1QS  cl  le  numcro  de  lonctiori 
2  donne  ceue  adresse)- 


^tShowmotw 


'RMLuinc  1ft  MUria, 


Enter.  I: 

DIM  M.iconS{28) 

'ki  un  nombre  <1  e  2!>  elements  eat  determine  pour  un  liiliwni  tie 
'chaitios  de  rei'i-i'Clerw  untdsrncnsionnelle  s'appplaiU  Ce 

’tnhl&Mi  doit  conte-nir  7$  |X>ur  $:mve  girder  J^b  donnees  dvu 

’icones  du  menu 
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DM 
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Syntax*; : 

DIM  Var(indicejr,VarS(indtce)A,',ar%(ifs^rce)t,.,j 

La  fond  ion  DIM  cree  ties  tableaux  a  line  ou  plusieurs  dimensions. 
Pour  les  tableaux  a  plusieurs  dimensions,  Ic  n ombre  maximal  tf ele¬ 
ments  est  limite  a  65535.  Ceux  a  une  dimension  ne  sent  limites  quo 
par  la  place-memoire  disponibte.  II  est  possible  tie  choisir  des 
variables  quelconques>  nunieriques,  alpha  mimeriques  ou  booleonnes. 
pour  determiner  les  dimensions. 

L' organisation  dun  t ah  knit  a  ptudcun  dimensions  : 

Prenons  un  placard.  Ce  placard  est  divise  cn  deux.  I'nc  moitie 
droite  et  une  moilie  gauche.  Dans  chaque  mo i tie,  on  irouvc  dcs 
tiroirs.' Supposons  qu’il  v  nit  deux  tiroirs  dans  chaque  moitie.  Cos 
tiroirs  soul  alors  subdivises  cn  pi  us  lours  ensiers.  11  y  en  a  trois 
dans  chacun.  II  s’agil  done  d’un  placard  contcnant  12  casiers.  Les 
dimensions  so.nt  determ  inces  de  la  fa^on  suivrmte  : 

Dim  PLACARDS!  1,1,2) 

Peut-ctre  SOfcz-vomS  c  tonne  do  ne  pas  lire  (2,2,3).  Cola  rosy  he 
du  fait  que  les  tableaux  cnmptcnl  a  partir  de  0.  Ainsi,  dans  noire 
excmplc,  tl  est  suppose  qu  il  y  ail  encore,  sous  le  plus  petit 
nombre  posit  if.  Pelement  0.  Le  nombre  indique  sign  if  ie  :  determine 
la  dimension  jusqu'a  element  X. 

Done  i  (0+1,0+1.04  1+2)  =  (U,2) 

1 1  faut  maintenant  men  re  pi  us  tours  c  hoses  dans  ce  placard.  11 
peul  s’agir  de  valours  ou,  com  me  dans  le  cas  present,  de  ea  rac  teres 
ou  chaines  de  carac  teres.  Supposons  qu’a  la  moitie  gauche  du  pla¬ 
card  soit  attrihue  le  ter  me  “out  i  Is”  et  a  la  moitie  droite  le  ter  me 
•Jivres'\ 
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Les  tiroirs  clu  cote  out i Is  a  u  rent  ma  intenant  les  etiquettes  : 

!.  tiroir  -  pinces 
2,  tiroir  *  toumevis 

Les  liioirs  du  cote  i i v res  auront  les  etiquettes  : 

1.  tiroir  =  polars 

2.  tiroir  -  nature 

Main  tenant  on  pent  donner  ties  noms  aux  trois  easier*  des  tiroirs, 

l>ans  le  tiroir  "pinces'1  :  easier  1  =  tena tiles  /  easier  2  =  pince 
etau  /  easier  .3  =  pince  u  ni  vers  ell  e 

Dans  le  tiroir  "toumevis"  :  easier  I  -  petit  toumevis  /  easier  2 
=  toumevis  nioycn  /  easier  1  -  grand  tournevis 

Dans  le  tiroir  "polars"  :  easier  1  =  polars  anglais  /  easier  2  = 
polars  franca  is  /  easier  3  =  polars  americains 

Dans  le  tiroir  "nature"  :  caster  1  =  flours  /  easier  2  =  animaux  / 
easier  3  -  montagnes 

Peut-etre  cela  vous  sent  bio  un  peu  exagere,  mats  if  y  a  quand  menie 
unc  raison.  Grace  aux  ''indices’  (il  s’agit  cn  fait  des  noms  tks 
tiroirs  et  casicrs)  il  e$i  possible  d'acceder  it  chuque  easier. 
I  magi  nons  main  tenant,  au  lieu  des  flours,  in  res  etc...,  ties 
cellules  de  memo  ires  a  l’interieur  d’un  ordinateur.  Grace  aux 
indices,  on  peul,  a  tout  moment,  avoir  des  informations  stir  Ic 
Content!  de  ces  cellules. 

Ceci  a  d'autant  plus  d' importance,  qu'il  s'agit  des  informations 
pmivant  etre  regroupees  dans  ccrtaincs  "families".  Afirt  de  con¬ 
ns  itre,  par  cxcmplc,  le  contenu  du  easier  "fleurs’L  il  faudrait 
I’appeler  par  Pinst  ruction  Print  PLACAR  l>S(  1,1,0)  ou 
AJ=PLACARDS(1,L0).  "I.ivres^  represente  la  mo i tie  droite  du 
placard,  done  I 'element  I  (la  auntie  gauche  etnnt  I’ element  0)  de 
la  premiere  dimension. 
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"Nature"  represeme  le  deuxieme  ttroir  (infer ieur)  de  ee  cote,  done 
1' element  1  (le  tiroir  supcricur  de  ce  cdte  ctant  1* element  0)  de 
la  deuxieme  dimension.  " Fleurs"  represente  le  premier  easier  de  ce 
tiroir,  done  1‘ clement  0  ("anSmaux"  ctant  [’element  I  ;  *'montagnes,t 
etant  f  element  2}  de  la  troisieme  dimension. 

11  serai  i  possible  de  continuer  ce  jeu  avee  beau  coup  plus  de 
dimensions.  Notre  exemple  sert  surtout  a  illustrer  le  principe  de 
subdivision  d’un  tableau  en  plusieurs  dimensions. 


DIM  ? 


Syntaxe : 

DlM?(nom  de  tableauQ) 

"Dim7(  variable  de  tabtcauQ)"  rctourne  1c  nombre  d'etemems  d’un 
tableau,  indict  ue  par  une  variable.  11  est  possible  efobtenir  ce 
nombre  de  differences  fa^ons  : 

Exemple  : 


DIM 

A%=DlM?(table&u%Q) 

PRINT  k% 

If  DIM?(iabloau9fi0)>0 

PRINT  "Le  tableau  contient  ilenientu" 

ENDIF 

PRINT  r>IM7[trtble;iii%0l _ 


II  sera  afttehe  sur  1'ecran  : 

60 

Le  tableau  contient  :C0  4lement« 

m 

Car  ;  3  *  4  *  5  =  60 
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Si  I’ instruction  DIM?(Var())  a  etc  appelee  ft  I’aidc  d*une  variable 
dont  les  dimensions  n’ont  pas  ete  definies,  !a  valour  0  e$t 
rctourn&c. 


ERASE 
Syntaxe : 

ERASE  nom  de  tableauQ 

Lvi nst ruction  ERASE  permet  d’effacer  un  tableau  de  variables  et 
ses  dimensions,  defin is  auparavant  ft  Taidc  de  l1  instruction  DIM 
(ERASE  A_rraynanie()),  Ceci  peut  servir  a  deux  choses  differentes. 
Freni  i  element,  1' instruct  ion  ERASE  pout  etre  it  van  tageuse  lorsqu’il 
rests  peu  de  place  dispersible  en  memo! re  principle  ct  chaque  octet 
encore  libre  devient  alors  important.  A  fin  dTeviter  le  message 
d’erreur  "Memo ire  pletne",  il  est  conseille  d’effacer  immediate  ment 
tous  les  tableaux  qui  ne  seront  plus  utilises  par  la  suite.  Cel  a 
libcrc  de  la  place-memo  ire  et  le  programme  peut  ensuite  ft  nouveau 
y  acceder. 

Deuxiemement,  l1  instruction  ERASE  peut  etre  interessante  lorsque 
des  tableaux  sent  utilises  pour  de$  procedures  generates  (utili¬ 
ties).  Comme  !cs  dimensions  des  utilities  ne  peu  vent  etre  definies 
ft  rimerieur  du  programme  principal,  il  Caul  les  determiner  ft 
f’inlerieur  de  la  procedure  elle-mGme.  Une  Tots,  le  t rat  lenient  de 
cette  procedure  termine,  le  tableau  est  efface  pour  perrnettre  une 
nouvelle  definition  des  dimensions  lors  de  Tappet  suivnnt. 

DEFMOUSE  2 
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3.2.4  l,c.s  sonris  ct  les  sprites 

DEF  MOUSE 
Syntaxe  : 

DEF  MOUSE  numero  de  la  souris  /  DLFMOUSE  DcfinevarS 

L'instruclion  DEFMOUSE  determine  la  representation  du  curseur  de 
la  sonris : 

0  Fieche 

1  Double  paren these  (X  allonge) 

2  AfoeiUe  diiigcnte 

3  Main  avec  index  pointe 

4  Main  ouverte 

5  Reticule  fin 

6  Ridicule  epais 

7  Reticule  blanc  avec  contour 

Grace  a  une  chaine  de  parametres,  vous  pouvez  redefinir  vous-meme 
!a  forme  de  la  souris. 

Fxcmple  :  OFF MOU  S  K  Don  nees _ souris.  I  $ 

II  faut  silors  prendre  soin  que  loutes  les  donates  soient  irultquees 
cn  tant  que  valcurs  sur  deux  octets  (mot=  0-65535),  II  est 
conseille  d’udliscr  la  function  MKI$  pour  convertir  les  valeurs 
decimates  en  valeurs  hcxad^cimalcs  car  etlc  transformc  simulta- 
nement  les  valcurs  cn  chaines  de  caracteres  sur  deux  octets. 
On  dispose  d’une  matrice  de  16x16  points  pour  dessiner  la  sonris. 

La  chaine  doit  etre  composee  de  la  manic  re  suivante  : 

Le  premier  mot  determine  la  coordonnce  x  du  point  d1  action. 

Le  deuxieme  ia  coordonnec  y. 

Le  troisieme  est  tou jours  egal  k  I. 

Le  quatrieme  mot  determine  la  couleur  du  masque  (le  fond  du  dessin 
de  la  sonris)  (0  -  blanc  /  1  =  noir). 

Le  ctnquienie,  la  couleur  du  curseur  (dessin  de  la  souris),  0  ou  1. 
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Les  mots  6  a  21  contiennent  le  motif  btnaire  du  masque. 
Les  mots  22  A  37  le  motif  binnire  du  dessin  de  la  souris. 

Hxemple  : 


Dim  Ligne_tnasque${15 ),L»gfK:_formc$(l5) 

Restore  Souris. masque  datas 

For  1%-Q  To  15 
Read  D.n&itl% 

Ligin  e  asq  u  e$  ( 1  %) — M  k  i  4  ( D .  al  rn%) 

Maeq ue  souris 4 ~M as  q  us  _s  ouris$-t-  Lign  c  _ maaq ue  3 (I % } 
Next  1% 

Rufitore  Souris,  for  mo_eliit  an 
For  |%=G  To  16 
Road  D.idf% 

Ligne^  foTriieS(I%)— Mki$(D.»tf%) 
Souri3_forina$=Sourb_fomic$  I  Ligne^forme4(I%) 

Next  1% 

Souris^ donneea.1 3  Mki4(CCC35)+  Mki${l)  +  Mki$(0)  + 

\faBque_  souris  3  *  Souris  forrnc4 
Dt  (mouse  Sauris_doniuica .  1  $ 

Deffil!  1,2,6 

Pbox  100,1  DO, 200, 20U 

Repeal 

Mouse  X,Y,K 
If  Point(X,Y)~0 

Color  1 
Else 

Color  0 
Entlif 
Plot  XfY 
Until  K~1 
Solimjdoitnecii: 

Souris  .maaq  ue  d  at  as : 

Data  112 .448 ,608,1 022,2047.4095,81 91,8100,1 0380 
Data  10370,32762,32736.65472 ,66280, 6461 2,01440 
Son  ri*-foHHe_tl  ah  aa : 

Data  32,80,166,332,068.1317,2634,3220,5410 
Data  4688,8608,8384 ,21248,1 94 56,6 1 4  40,491 52 
Bdit 
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L*cxcmptc  affiche  un  crayon  que  Pon  peut  utiliser  pour  dessiner 
sur  Pec  ran.  Ce  crayon  reste  egalement  visible  sur  fond  noir.  De 
plus,  il  dessine  en  blnnc  sur  fond  noir  et  cn  noir  sur  fond  Wane. 

Les  valeurs  de  chaquc  ligne  de  Pecran  sont  d’abord  attributes  a  un 
tableau  contenant  16  elements  (=16  mots),  puis  regroupces  sous 
une  scule  chatne  de  caracteres.  Lnsuite,  la  chaine  principaie  est 
constitute  de  37  mots. 

Dans  noire  excmple,  Je  point  d’ action  a  pour  valeurs  X=l/Y=65535. 
Cela  signifie  qu’il  se  Irouve  dans  le  coin  infer  ieur  gauche  de 
Pecran  (  X=l/Y=l  ==>  coin  superieur  gauche;  X=65535/Y-l  ==> 
coin  superieur  droit;  X=G5535/Y=65535  ==>  coin  inferieur  droit), 
I ^  coulcur  du  masque  a  pour  valour  0  (=blanc)  el  la  couleur  dc  la 
forme,  la  valeur  1  (=notr). 

Le  programme  graph i quo  eontient  un  editeur  de  motifs  de  remplis- 
sage,  retournant  les  valours  du  motif  editc.  11  est  done  possible 
d’utiliser  cet  editeur  pour  afficher  le  curseur  de  la  souris  car 
le  motif'de  remplissage  esi  egalement  compose  de  16  x  16  points. 

11  faut  noter  que  Pinterpreteur  affiche  tou  jours  la  souris-fleche, 
si  une  boite  de  selection  de  fichiers  ou  une  bolte  d'alarme  son! 
appelees  ou  si  le  programme  est  term  in  e.  C’est  pourquoi  OLE  MOUSE 
doit  alOrs  etre  utilisec  pour  afficher  la  forme  de  la  souris  que 
Pon  a  soi-mSmc  definie.  Dans  not  re  petit  exemple,  vous  avez  deja 
rencontre  une  multitude  d* instructions  qui  seront  euidiees  do  fa^on 
plus  detaillee  ullerieurement  ; 


SPRITE 
Syntaxe  : 

SPRITE  VarS[,Ax,Ayl 

II  est  possible  de  definir  ou  tTaetiver  des  sprites  (angl  :  lutins) 
sur  r  ATARI  ST.  Le  BASIC  GfA  a  saist  cette  occasion  ct  off  re 
l1  instruction  corresponduntc. 
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Lcs  sprites  ne  representent  cn  principe  rien  d’autre  que  le  curseur 
de  la  souris  avec,  pour  seule  difference,  que  le  curseur  est  dirige 
par  les  mouvements  de  la  souris. 

L'i  instruction  SPRITE  permet  de  definir  un  ou  plusieurs  sprites  et 
de  Ie(s)  deplacer  sur  I’ecnin.  L'organisatian  d*un  sprite  ressemble 
a  cell©  du  curseur  de  la  souris  (voir  DEFMOU5E).  Sa  forme  est 
egalcment  definie  sur  un  tableau  de  16  x  16  points  et  une  chaine  de 
caracteres  est  indiquee  pour  regrouper  lcs  valours  du  sprite  dans 
dcs  chaines  MKI$, 

La  chaine  de  carac teres  d'un  sprite  est  composcc  de  la  manicrc 
suivanle  : 

I.e  premier  mot  determine  la  coordonnee  x  du  point  d’action. 

Le  dcuxicroc  mot  determine  la  coordonnee  y, 

Le  troisieme  mot  peut  contenir  soit  0  (normal)  soil  1  (XOR). 
Lequatrieme  mot  determine  la  coulcur  du  masque  (Deplane  /  l  =  noir). 
Le  cinquicme  mot  la  couleur  du  curseur  (0=b1anc  /  l=noir). 

Lcs  mots  6  a  37  contienncnt  alternativement  les  motifs  binaircs  du 
masque  et  du  sprite. 

Cette  chaine.  ainsi  que  les  coordonnees  de  la  position  souhaitee  du 
sprite,  son!  indiquees  aprcs  I'instruction  SPRITE.  II  faut  notcr 
que  les  coordonnees  relevant  du  point  {faction  souhaite  du  sprite. 

Example  : 


DIM  8(32) 

Aa$— MKI$(l)>MKIS(l6)+MKI$(l)+  MKI$(€)  +  MKI$(1) 
RESTORE  S.pritcdutap. forma 
FOR  1=2  TO  32  STEF  2 
READ  B(I) 

NEXT  I 

RESTORE  S.pritectatna.  masque 
FOR  1=1  TO  31  STEP  2 
READ  B(I) 

next  i 

POT  1=1  TO  32 

A;4=Ajv*+MKtJ(B(t)) 

NEXT  t _ 


« 
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FOE  t«50  TO  60  STEP  2 
FOR  3=100  TO  539 
SPRITE  AciS.3,1 
PLOT  J-1,1 
NEXT  3 
NEXT  I 
U-INP(2) 

SPRITE  As4 
EDIT 

S.pritedatna.nfuuqije: 

DATA  1 12,243 ,5084022,2047,4095 ,8101,8190, 16380 
DATA  16376,3275  2,32736,654  72 ,66280,045 12,  C1440 
S .  pr  itcd  atas  .forme ; 

DATA  32,80, 168, 332.C5S,  1317,2634,3220,5416 
DATA  4688 ,8384 , 2 1 248, 1 9436,6 14 40,491 6 2 


Pour  simplifier  les  dieses,  nous  nvons  choisi  les  memes  donnees  que 
cedes  utilisees  pour  Is  definition  du  curseur  de  la  souris. 

Dans  le'  present  exemple,  le  sprite  est  deplace  constamment.  Mais  il 
est  egalement  possible  de  le  positionner  sur  Peers n  ou  de  I’ef- 
faccr  si  nccessairo.  II  est  affiche  comme  dccrit  ci-dcssus.  Pour 
1’ef facer,  il  soffit  d'appeler  a  nouveau  1‘inst  ruction  SPRITE, 
suivic  de  la  chainc  dcs  caracieres  qui  conticnt  les  donnees  du 
sprite  a  effacer,  mais  non  ses  coordonnces. 


3.2.5  Ec  lancement  ci  Varret  du  programme 

EDIT 
Syniaxc : 

EDIT 

En  fait,  EDIT  est  identique  a  V  instruct  ion  END  qui  terininc  Pcxe- 
cution  d’un  programme  a  la  position  ou  i’interpreteur  la  rencontre. 
En  BASIC  CfA  cependam,  Pinstruction  END  affiche  one  boite 
d'alarme  supplemental  re,  demandant  $i  le  programme  doit  v  raiment 
Sire  termine. 
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L’interpreteui  ne  retourne  a  rediteur  que  lorsqu’il  y  a  cu  vali¬ 
dation  par  Ecmploi  du  bouton  en  question,  L’ instruction  EDIT 
permet  de  ne  pas  passer  par  cctte  boitc  do  fin  dc  programme  et 
de  retoui  ner  directemcnt  a  rediteur. 


END 


Syntaxc : 

END 

Voir  rinstruetion  EDIT. 

Les  deux  instructions  d*  interruption  terminent  dgfiniiivement 
l’execution  (Tun  programme.  If  ne  peut  alors  plus  6tre  poursuivi 
par  rinstruetion  CONT.  En  outre,  tom  les  fichiers  encore  ouverts 
sont  fermes  apres  l’emploi  de  I’une  des  deux  instructions. 


STOP 
Svntaxe  : 

STOP 

L1  instruction  STOP  permet  d'intcriompre  Y execution  d’un  pro¬ 
gramme  a  nTmporle  quel  endroit.  Bile  ne  ferine  pas  les  fichiers  et 
on  peut,  ensuite,  relancer  le  programme  la  ou  il  a  etc  interrompu 
grace  a  I' instruct  ion  CONI'  en  mode  direct. 


COST 
Syntaxc  : 

CONT 

Voir  aus$i  Tinstruction  $TOJ*, 


-  76  - 


&  a  h  c  du  C/A 


Une  foLs  1c  programme  imcrrompu  par  STOP.  Pi  nst  ruction  CON  I 
ne  peut  plus  6tre  utilise©  aprcs  avoir  modi  fie  le  programme  grace 
a  Pinstruction  CLEAR  on  apres  avoir  mtroduit  de  nouvdlcs 
variables. 


QUIT  /  SYSTEM 
Syntax© : 

QUIT 

SYSTEM 

Les  deux  instructions  $om  emiercmcm  identiques.  On  a  quc 
Pcmbarias  du  clioix.  Elies  sont  utilisces  sans  aticun  paramelre.  Si 
rinterpretcur  rencontre  une  des  deux  instructions,  it  terminc  le 
programme  ct,  apres  une  demand©  de  validation,  il  rend  la  main  au 
desktop  du  GEM. 


r 


CLEAR 


Syntaxe : 

CLEAR 

L'insiruciion  CLEAR  per  met  d’effacer  de  fa^on  irreversible  tons 
les  tableaux  et  variables  silucs  |  un  endroit  precis  du  programme. 
Leur  contcnu  nc  potirra  alors  plus  etre  reaffiche,  Les  dimensions 
des  tableaux  sont  egatenieni  effncecs.  CLEAR  ifest  pas  nceessain.1 
cn  debut  de  programme  car  I’ecran  et  toutes  les  variables  peuvent 
alors  etre  effaces  grace  a  P instruction  RUN. 
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RUN 
Syntaxe  : 

RUN 

L'instruction  RUN  lance  I'cxccution  du  programme  BASIC  aetuel  a 
partir  de  la  premiere  lig,ne.  L'ecran  el  toutes  les  variables  sent 
a  lots  effaces.  II  esi  possible  que  RUN  sc  trouve  a  rinlcrieur  du 
programme  ou  qu’dle  soil  entree  en  mode  direct. 


NEW 


Syntaxe : 

NEW 

L'instruction  NEW  efface,  ft  n'iniporie  quelle  zonc-memoirc,  toutes 
les  variables  et  le  programme  qui  sc  trouve  en  memoirc  principale. 
11  est  egalemcnt  possible  dc  donner  l'instruction  en  mode  direct. 


RESTORE  11  text* 


JLis  les  proch  nines  ligties-DATA  (tic. ms  tie  fielders -ic6  lies)  A  partir 
’<k  ]  "etiquette  "11  lexte" 


RESTORE 
Syntaxe  : 

RESTORE  [nom  de  I'etiquetteJ 

Si  aucune  etiquette  n'est  iiuliquec,  I'cmploi  de  lT  instruction 
RESTORE  ennaine  des  sauts  au  debut  de  toutes  les  valours  DATA 
con  tenues  dans  le  programme. 
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De  plus,  1' instruct  ion  RESTORE  'etiquette*  permct  de  jx>sitionncr 
le  poimcur-DATA  au  debut  du  bloc  DATA  situc  apres  1* etiquette 
et  de  lire  ensuile  les  DATA  souhaitees  a  partir  de  cet  endroit. 
II  faut  alnrs  qu’il  existe  autani  de  valeurs  DATA  que  de  valcurs 
demandees.  Si  cela  n'esi  pas  le  cas,  un  message  d'erreur  est 
affiche. 


K.xis^lvXlST("\tmcoft__lacir) 

’tci,  (]  csl*  tlpin«idf*  i  [’aide  d*  EXIST  p.3  in  premiere  dee  icones  du 
'roc  mi  uur  dtsqitcblc  sc  trouvc  dnns  le  report  oLrc  mtUqoO-  Comine 
’celn  ©tail  deja  mcnticnnc,  il  cst  ptKjsible  d*  Stocker  lfi  vaVelir 
'rctuurnCc  (-1  on  fi)  dona  tine  variable. 

IF  E.xis=U 


‘Sirvon  resneiH  le  curscur  fltehe  et  e&ute  le  processus  dll 
*<hhrgemftnb, 

DEFxfoUSE  0 
GOTO  Enter. 2 
ENDIF 

(r^D  .S3ze(*\micc>n_l .  i  cn") 

*Le&  fichiera  d'icones  one  ete  trcmyrB  Vn  fi  la.  sous- roil  line 
'‘’D.ttise11  ct  ret  on  me  le  format  cn  octets  des  chain  cb  de  caractirc* 
‘des  ic  f-nes. 


COSUB  turn  de  procedure  (liste  de  porametres ) 

PROCEDURE  nom  ( liste  de  variables  locales} 

Syntaxe : 

GOSUD  nom  dc  procedure  [(lisle  de  parametres)] 

Procedure  nom  [(lisle  de  variables  locales)] 

Le  BASIC  GfA  penitet  une  variete  de  GOSUB.  Cest  la,  sans  doute, 
une  des  choses  les  plus  geniales  de  cet  imerpr&eur  BASIC. 
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II  est  possible  dc  transmetire  a  une  procedure,  une  lisle  de 
parametres  de  n'importe  quelle  longueur.  Ces  parametres  corres¬ 
pondent  alors  a  une  liste  de  variables  qui  suit  le  nom  de  la 
procedure  (par  ex.  PROCEDURE  1  Tcst(Var,Var$)), 

Kotre  cxemple  rnontre  que  celte  liste  de  variables  peut  contenir 
aussi  bien  des  chi  fries  que  dcs  lettres.  Var  el  Var$  son  I  des 
variables  locales,  e’est-Mire  qu'elles  appaitiennent  k  une 
certainc  procedure  at  nc  paw  vent  etre  utilisees  ou  demandees  qu'a 
I'interieur  de  celle-ci.  Si  vous  utilise!  les  memes  noms  pour  dcs 
variables  a  Texterieur  de  celte  procedure,  rinterpreteur  est 
capable  de  faire  la  difference  entre  ics  variables  ’internes'  et 
'externes'. 

Par  aillcurs.  les  noms  de  procedures  peuvent  egalemcnt  eommenccr 
par  un  cliiffre,  a  1’ inverse  des  noms  de  variables. 


Example  : 


'Var.l$="Glob*3" 

X5S-444 

A^=147 

B$="Var-Texr 

PRINT  "Contonu  variables  eituies  a  I’intarieur  de  la 
procedure 

22  r  TEXT*JA9oJBS) 

PRINT 

PRINT  "Coutcnu  de*  variables  si  hi  tea  &  Pexttrieur  de  la 
procedure  :■ 

PRINT  X%'  Y%’,Aa%'*Bbt-Cc%"Ddil’Vw.l%,,Vnr.lS”A% 

u=inp(2) 

EDIT 

PROCEDURE  l_teat(V«r.l%lVar.l$(V#ir.2%lVnr.2$) 
LOCAL  X% 

INC  Y% 

X%=1G 

Aft5S=IOO-rVar.X^ 

Bbt='==:>  -Vftr.13 
Cc?6^Var.S5SrX9t 

Dd*~Vttr.2S+"  <==*'-♦■  Str  if  A  a.9fi) _ 
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IF  Y9?<1G 

(®l_tefll(22,"TEXT"  ,A%  tBt) 

PRINT  "Vtu-iabte  Y%  :  **;Y% 

ENDiF 

PRINT  X%»’Y%,,A*%MBb4MCt%,'D<lf”Vat.l%t,Var.l$MA% 
RETURN  _ _ 


Prcncz  votre  temps  pour  etudier  cet  exemple.  II  est  cli Fricile 
d+expliquer  la  structure  complexe  des  variables  locales  et  globales 
ou  eelle  d*un  appd  rdcursif,  k  partir  d’un  href  exemple,  De  toute 
fngon,  Pexcmple  met  en  evidence  que  I'interpreteur  fait  la  dif¬ 
ference  exit  re  des  variables  globales  (valables  pour  !e  programme 
enlier)  et  des  variables  locales  (valables  pour  la  procedure  en 
question). 

En  outre*  ii  ressorl  qu’il  est  possible  de  transmit  I  re  aussi  bicn 
des  variables  que  des  valeurs  on  des  expressions  dc  texte.  Par 
ailleurs.  vous  pouvez  declarer  locales,  les  variables  situees  a 
I'interieur  d’une  procedure  qui,  par  la  suite,  ne  seront  utilises 
qu’a  Tititerieur  de  cette  procedure  (commc  pour  les  variables  de 
pararoetres).  Si  vous  souhaitez  done  met  Ire  en  place,  a  I’interieur 
d’une  procedure,  des  operations  arithmeliques  ou  alphanumeriques 
contenant  des  variables  locales,  il  est  ncctssaire  d’attribuer  des 
variables  globales  a  ces  operations,  a  van!  de  sortir  de  la  pro¬ 
cedure.  Cela  permet  aussi  d’obtemr  ou  d’utiliser  leur  contenu  ii 
I'exterieur  de  la  procedure. 


LOCAL 
Syntaxe : 

LOCAL  V ar[ .V ar$ *V ar% „..] 

Comine  c’ eta  it  deju  le  cas  plus  haul,  des  variables  a  i’interieur 
de  procedures  peuvent  etre  dcclarees  "variables  locales"  (voir 
GOSUB/PROCEDURE).  L’inslruction  ’LOOM..  Varl,  Var2,  Var3, 
Vai  4’  permet  menie  de  declarer  locale,  une  liste  de  variables. 
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!cnflag%—  1 


'Rolicti*  que  do*  leones  ont  ete  chargees. 


FOR  TO  25 


TJoucIc  permit tnnt  He  lire  lea  noma  et  de  charger  lea  ftchiera 
’tics  tcOiles  de  menu. 


FOR  /  TO  /  DOWNTO  /  STEP  /  NEXT 
Syntaxe : 

FOR  Var  =  valeur  initiate  [DownJTO  valeur  finale  [Step  longueur 
des  pas  ...  NEXT  Var 

L’instruction  FOR...NEXT  met  eit  place  une  boucle  de  repetition. 
Une  variable  numerique  doit  etre  indiquee  pour  y  af  fee  ter  la 
valeur  du  compteur.  Ensuile,  sonl  specifiees,  la  valeur  i nit  tale, 
pour  le  compteur  apres  le  signe  egal,  et  la  valeur  finale  apies 
TO.  Eorsque  le  compteur  atieint  cette  dernierc  valeur,  1c  pro¬ 
gramme  sort  de  la  boucle  apres  la  suivante  instruction  NEXT. 
STEP  permet  d’indiqucr  la  largeur  des  pets  du  compteur. 

NEXT  est  Pi mt ruction  de  sortie  de  boucle.  routes  les  lignes  de 
programmes  figurant  entre  FOR  et  NEXT  sont  rcpetccs  jusqu’a  ce 
que  la  valeur  finale  soil  attain te.  Ensuitc,  le  programme  esl 
poursuivi  stir  la  lignc,  apres  Pinslruction  NEXT, 

En  BASIC  GfA,  la  boucle  FOR. ..NEXT  permet  one  variete 
particulieic.  II  est  possible  d'iiiverser  le  cumptage,  sans  £tre 
oblige  dTililiser  Pinstruction  ’STEP  -{largeur  de  pas)*. 

Cela  se  presen te  de  la  f  11900  suivante  : 

FOR  valeur  inttialc  DOWNTO  valeur  finale 
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La  boucle  compte  alors  a  rebours  par  pas  de  I.  II  (vest  cependant 
pas  possible  de  definir  la  largeur  dcs  pas  avee  V  instruct  ion 
ST  HP.  Die  reste  done  ton  jours  de  1.  Pour  utiliser  d’autres 
largcurs  de  pas,  il  faut  recourir  a  la  representation  tradition- 
nolle ; 

FOR  valeur  initialc  TO  valcur  finale  STEP  largeur  de  pas 

II  est  conseille  d'utiliser.  pour  les  variables  de  compteur  (et 
pour  les  Quires  variables,  globales,  d'ailleurs)  des  entiers  (ici  : 
J%  -  le  sign e  %  declare  entiere  cette  variable).  Ceci  diminue 
sensiblement  la  vitesse  d*  execution  dcs  houcles.  En  outre,  les 
variables  enlieres  n’oecupent,  en  general,  que  les  deux  tiers  dc  la 
place  memoirs  utilisee  par  une  variable  a  virgulc  Hot  tan  te.  11 
faut  reserver  6  octets  pour  le  stockage  d’une  variable  &  virgule 
flottante,  t  and  is  qu’une  variable  entiere  n'occupe  que  4  octets. 

Pour  tous  ceux  qui  ne  le  savcnt  pas  encore  :  une  variable  entiere 
est  une  variable  numcrique  ne  contenant  quc  dcs  valours  cnlieres- 
Cela  signifie  que,  mcme  dans  le  cas  de  nonibres  reeks,  les  ch  iff  res 
places  apres  la  virgulc  ne  sent  pas  pris  en  compte  et  que  la  valeur 
est  tronquee  au  nombre  entier  inferieur  (voir  aussi  IN  I'), 

Excmple : 


Var.l  -  63.440 
Vor.2%  =  Var.l 
PRINT  Vaf  l'JVat.2% 


Rcsultat  :  63.449  63 


Void  encore  une  autre  caractcrislique  du  BASIC  GfA.  Le  signe 
"  *  "  de  I*  instruct  ion  REM  (remarque)  peui  etre  utilise  pour 
indiquer  un  blanc,  entre  ou  apres  des  variables  ou  textes,  im primes 
a  I’aide  de  PRINT.  Ceci  n’est  possible  que  si  11  ’  "  ne  se  trouve 
en  debut  dc  ligne.  Le  nombre  dc  blancs  correspond  alors  au  nombre 
dc  signes  qui  sont  mis.  Cette  possibility  est  tres  utile  pour 
for  mater  le  texte  lors  de  $a  sortie. 
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M  fcon8(I%)=SPACES(bal»iii^5) 


'Quand  rinat  ruction  BLOAD  «cra  utilise,  la  chaine  de 
’caract^ree  flcrti  rernplio  par  dei  blanca  pour  avoir  plus  <l«  place 
’dispcniblc, 

SPACES 
Syntaxe : 

SPA  CE$(  nombre  des  caractcres  blancs) 

L’insiruciion  SPACES  permet  de  rempiir  une  ligne  de  texte  ou 
une  variable  de  chaTne  par  un  nombre  de  b lanes  indique  {CIIRS{32)> 
do  encore  tTinscrcr  des  blancs. 

Kxemple :  [Expression's*  ABC  4-  SPACESf l(Jl4  ‘'XViS" 


STRINGS 
Syntaxe : 

STR 1 N  GS(  nombre,'’  texte1' ) 

STR  I N  GS  ( n  o m br e ,e* p ress r on  de  chaine) 

Sl  RlNGSfnom bre.valcur  ASCII) 

V instruction  STR  1NGS( nombre,*1  ”)  prod u it  le  rnSme  elTel  que 
SPACES  et  off  re  encore  une  possibility  supplementaire.  On  peut 
rajoutcr  au  nombre  indique  un  am  re  para  met  re,  e’estna-dire  une 
expression  de  texle  qui  est  enehaJnec  autant  de  fois  que  r indique 
le  nombre. 

Pour  les  caracteres  isoles,  il  est  possible  d’indiquer  egalement 
leur  valeur  ASCII. 


/-  ah  c  du  Of  A 


Fxemple  : 

a$=stiung${4,"okay 

B$-STRJNG${7.45) 

PRINT  AS'^HS 

chi  : 

PRINT  STniNO${4!,,OKAY  *'),,,STRINO$(7J4B) 

_ _ 1 

Lcs  deux  lots  sont  aiTiclies  : 
OKAY  OKAY  OKAY  OKAY 

ou  : 


Ai-*’=— >  “lSTRINO  8(  10, "X" )  i  *  <==' 
PRINT  Ai 

II  est  affichc  : 

==>  XXXXXXXXXX  <-= 


UPPERS 
Svntaxe  : 

UPPERSCtexte") 

LJPPKK$(expres$ion  de  chains  de  caracteres) 

LJPPER$(Var$) 

Un  textc,  une  expression  de  ehalne  de  car  act  ores  ou  variable  de 
chaine  sont  affectes  a  cette  function,  qui  recherche  ennui te  les 
minuscules  dans  leur  coruenu.  Les  let  t  res  minuscules  sont  a  tors 
lransformees  en  majuscules  (an&l.  :  upper  case). 
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Exemple  : 


PRINT  UPPER*  ("U  grand  Jivrc  <U»  BASIC  C>fA") 
AS"” A  qui  se  t^ve  matin,  Pieu  aide  et  pr&ta  In  main' 

PRINT  UPPER$(A$) 

B*=UPPER*(V  ATARI  520  9T+”) 

_  PfUKXJBA _ 


READ  Iconlcmd* 


'Bis  les  different^  n^ms  fie  fichier 


READ  /  DATA 
Syntax© : 

READ  VarI,Var$,Var%] 

Yalcurs  DATA  et/ou  ["]listc  de  tcxtep] 

L'inslruction  READ  permet  de  lire  les  valours  contenues  dans  une 
instruction  DATA  et  les  affectent  aux  variables  indiquees. 

Comme  pour  RESTORE,  il  est  possible  dc  positionner  un  pointcur 
sur  une  etiquette.  READ  permet  de  lire  alors  less  valeurs-DATA 
situees  apres  I’etiquette.  Si  Tinstruction  RESTORE  n'a  pas  ele 
utilise©,  le  nombre  de  lignes-DATA  lues  les  ones  apres  les  autres, 
a  parti  r  du  debut  de  programme,  depend  dtr  nombre  d’  instruct  ions 
READ.  Si  le  nombre  de  lignes-DATA  est  inferieur  a  celui  des 
instructions  READ,  un  message  d’erreur  est  affiche. 

IJne  autre  caracteristique  du  BASIC  GfA  est  qu’il  n’est  pas  neces- 
saire  de  mettre  les  lextesDATA  entre  guillemets.  Cel  a  n*a  aucune 
importance  pour  IMnierpreteur  de  renconirer,  lors  d'une  ins¬ 
truction  atphanumcrique  READ,  des  domnees  numciiques.  Dc  plus, 
les  btanes  inseres  avant  ou  apres  les  textes-DATA  sont  pris  en 
compte. 
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Excmplc  : 


RESTORE  D_ata* 

FOR  I%*1  TO  9 
READ  T_wctd»fca$ 

PRINT  TcxtdaUl;"  “ 

NEXT  1% 

D_atas: 

DATA  i,EE,I  O,  Oh  ay  .Deux  X  V'\ 
U=INP(2) 

EDIT 


11  en  va  differemment  pour  Ies  instructions  READ  numeriques 
qui  doivent  obligatoirement  rencontrer  dcs  DATA  numeriques.  Par 
coni  re,  ces  valeurs-DATA  peuvent  etre  indtquees  en  ecriture 
binaire,  hexadecimale  ou  cctale. 

I!  cst  impossible  d’affectcr  dcs  variable  a  dcs  DATA  (voir  aussi 
RESTORE).  Si  le  programme  ne  contient  aucune  instruction  READ, 
les  lignes  DATA  peuvent  comporter  un  texte  quelconque.  Comme 
pour  REM,  ce  texie  n’est  alors  pas  pris  en  compte  par  le  pro¬ 
gramme. 


REM 
Syntaxc : 

R  E  M  text  e  de  com  men  la  ire 

Pour  ameliorer  la  comprehension  d’un  programme  par  un  common - 
taire,  il  est  possible  dTnserer,  a  Pint6ricur  de  ce  programme, 
n’importe  quel  texte  explicatif.  L' instruction  REM  n'est  pas 
executee  par  Pinterpreteur,  mats  le  texte  de  commentaire  apparait 
sur  le  listing. 

11  est  conseille  d'ut  Miser  abondam  merit  cette  possibility,  Pour  Ies 
plus  longs  programmes,  elle  facilite  la  recherche  dc  certaines 
parties.  En  outre,  vos  petites  remarques  illustrent  le  develop- 
pement  du  programme  pour  d’autres  milisateurs. 
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BLOAD  IccnloacJS^  *M CM” , V AE15 TR(M.iccntfI%)) 

'Charge  tee  fjchiera  (donn6ea  dea  kOo*n)  &  la  position  prepare. 

Le  present  exemple  met  en  evidence  qu’il  est  possible  d’utiliser 
des  variables  seules  ou  de  les  combiner  pour  indiquer  le  nom  d'uit 
fichier. 


VARPTR 

Syntaxc : 

VARPTR(Var) 

VARPTR(YarS) 

VARPTR(Var%) 

V  A  R  PTR(  Va  r  tabl(ind  ices)) 

L*  instruct  ion  VARPTR  determine  I'adresse  initiate  d?une  variable* 

r 

Exemple  : 


AS ="  BASIC" 

G  nrbag*%=FTi.E{  0 ) 

A_dre&0  = V  AR  PTIi  (AS) 

PRINT  CH R${ PEEK { A^drwif  eSfi ) ) •, CHRS (PEEK (  A_dre®Bo%  +  l)j 


Sortie  :  BA 


FRE 
Syntaxe : 

F  R  E(  va  leu  r  d  u  mm  y ) 

L’ instruct  ion  PR  E  permet  de  ca  (cuter  la  tailte,  en  octets,  de  la 
place  encore  disponible  en  memoire  principale.  IE  faut  indiquer 
aprcs  cette  instruction,  une  valour  dummy  quelconquc,  qui  n*esi 
pas  prise  en  compte  par  le  programme. 
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Avant  reniploi  de$  fonctions  VARPTR  et  ARRPTR  (voir  plus  loin), 
ii  est  conseiilc  d’ei’fcctucr  une  garbage-collection’  parce  que 
P  interpreter  s’inquiete  constammcnt  de  la  place  memo  ire  dis- 
ponible.  Pour  ceia,  il  faut  appelcr  une  fonction  interne  collectant 
ct  effa^ant  d’abord  la  place  non  utiiisee  en  memoire  principal©  et 
mtlachant  ensuite  la  place-memo  ire  voisine.  Une  fonction  vra  intent 
trcs  utile 

Cependant,  on  ne  peut  exiger  d’un  programmer  qu*il  sache  tou- 
jours  quand  a  eu  lieu  pour  la  derniere  fois  un  id  "  r  a  massage  de 
pou belle*1  et  quand  sera  cffcctue  le  prochain.  Supposons  que  cela  se 
passe  juste  apres  avoir  obtenu  l’adresse  de  debut  d’une  variable, 
grace  &  VARPTR,  et  avant  d’uttliser  la  variable  prevue  pour 
Padresse  (dans  not  re  excmple  entre  "  A  _dresse%= V  a  rptr(  A  $ )"  et 
"Print*’).  Le  con  ten  u  de  r"A_clresse%M  ne  correspondrait  alors 
plus  a  la  no u veils  adresse  initial©  de  la  variable  ’’AS'*,  ce  qui 
poitrrait  emrainer  de  graves  consequences.  Pour  controlcr  done  un 
tel  ’garbage  collection’,  il  suffil  d’appeler  P  instruct  ion  FRE(X), 
La  valcur  ’X’  est  alors  une  expression  numerique  quelconque. 
Norma  lament,  FRE(X)  permet  de  calculer,  en  octet,  la  taille  de  la 
place-mcmoirc  act  uel  lenient  dispersible,  Ceci  est  precede  par  un 
’garbage-collection*  interne.  Vous  pouvez  done  etre  sftr  qu’apres 
avoir  appele  FRE(X),  Fadresse  initiate,  indiquee  pour  la  variable 
do  noire  cxemple  ci-dessus,  soil  Padresse  de  debut  act  uel  I  a  Pour 
en  fctre  absolument  sOr,  it  est  possible  d’inserer  Finstruction 
VARPTR  sur  la  ligne  de  sortie  PRINT. 

Fxemple ; 


as^-basict 

PRINT  Cimj(PEEK(yARPTR(Ai)));Cim*(PEEK(VAIlPTR(AS)t  1}) 
Sortie :  BA 
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3.2.6  La  structure  des  variables  et  des  tableaux 

ARRPTR 
Syntaxe : 

ARRPTR(Var) 

ARRPTR(VarS) 

ARRPTR(Var%) 

II  s'agit  encore  une  fats  (et  non  pour  la  Uerniere)  dune 
canicteristique  du  BASIC  GfA.  LT instruction  ARRPTR  permet 
d'obienir  Padresse  de  debut  du.  descriptor.  Cette  adresse  donne 
des  renseignements  sur  des  variables  de  tableau  ou  de  chaine  de 
earac  ceres.  La  possibility  d’effeetuer  un  ’garbage-collection' 
exige,  pour  ce  genre  de  variables  (dont  la  longueur  peut  varicr), 
une  information  concernant  Padresse  sous  laquelle  sont  stockees 
les  donnees  en  question.  Voila  pourquoi  il  est  necessaire  d’ins- 
taller  une  telle  unite  d’ informal  ion*  quelque  part  &  V inter ieur 
dif  la  memoirs.  Cette  unite  s’appelle  descripteur.  Le  descripteur 
indique  a  tout  moment  I’adresse  et  la  place -memoire  occupce  par 
une  variable,  Les  chaines  de  ca ractcres  et  le$  tableaux  sont  alors 
traites  sepa  remen  t, 

Le  descripteur  de  tableau  (ARRPTR  -  angl.  :  arravpointer)  d’une 
chaine  alphanumerique,  contient  I'adresse.  de  debut  (ou  plutot  cello 
du  premier  carnctcrc)  sur  l os  qua  t  re  premiers  octets.  Les  deux 
octets  suivants  indiquent  la  taille  de  la  chaine.  A  la  fin  de  la 
chaine  memorise^  on  trouve  le  'back trailer’  (trailer;  angl.  ; 
queue,  remorque).  II  contient  la  memo  adresse  que  cclle  que  Ron 
peut  obtenir  a  I’aide  de  ARRPTR.  Les  contenus  du  descripteur  el 
du  back  trailer  se  referent  done  mutuellement.  Ceci  assure  que  le 
processus  do  rangement  constant  du  ’ garbage -collect ion'  ne  "perde1*, 
meme  pas  "except  ionnellement”,  un  seul  caractcre.  Les  vrais 
poubelliers  (on  poubelliores)  diraient  peul-elre  :  "‘Cela  pout 
ar river  a  tout  le  monde.  Ce  n’est  pas  si  grave  !"  lei,  par  contre, 
cela  nc  doit  pas  arriver.  Chaque  octet  perdu  pour  ran  en  trainer  des 
consequences  fatales. 
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L'organisanon  schematique  d’un  dcscriptcur  et  colic  de  la  chaine 
de  caracteres  contenant  le  backtrailer  est  ainsi  : 

Le  nom  de  la  chaine  est  "BASIC", 

L’ instruction  ARRFTR  determine  le  premier  octet  du  dcscripieur. 

octl  oct2  ocia  oct4  oclS  oct6 


*  . . . . 1 

descvjptcur:  |  |  |  |  |  |  | 


|<=  ndrcwo  chaine  =>  |  <—  laiiRueur  —> 

=  adressis  do  chaine 

premier  carattere  (ici  5  oct) 

(id  i  B  ) 


cell  ocl2  oct3  ocfc4  octS  oct6  <x,t7  oel&  oct9  octlO 

| - - — ■ - - - - — - - - - - - *  | 

l  B  'I  A  |  S  |  I  |  C  |  |  \  |  |  | 

|  <3=  Conte  mi  de  In  chaine  =>  |<=:?t->|<=  backtrailer  => 

contenant  Padrease  du 
dvseripteur 

Le  point  ^’i  nterrogation  repreeente  Un  octet  de  re mp Use  age 
place  au  cas  oil  lii  tailie  de  la  chaine  uerail  Impair  e.  Vu 
quo  le  backtrailer  un  mot  long  (4  oct)  et  que  lea  mot* 
et  lea  mota  longs  me  pen  vent  vtre  lus  qu‘a  partir  d’une 
adressc  poire  (voir  aussi  PEKK,  DPEEK,  LPEEK),  il  fruit 
iFsi&jmrw,  par  un  octet  de  rempliesago,  que  le  hack  trail  or 
suit  un  nembre  pair  d 'peseta, 

Les  contenus  sont  a lors  obtenus  en  lisant  les  mots  et  les  mots 
lonjis  a  I’aidc  dc  LPEEK  et  PPEEK. 

Excmplc  : 


AS-’GfA* 

PRINT  "Ad reus e  du  dflscnpttuir 
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PRINT  ARRPTR(AS) 

PRINT  "Adressv  <lu  d£but  de  la  chain e  :*■' 

PR.TNT  LPEKK[  ARRPTR  [AS)) 

PRINT  *  Control  :  ,M 

PRINT  %,ARPTft{AS) 

PRINT  "Longueur  de  la  chatn*  ;IM 
PRINT  DPEEK(ARRPTR.(A$)*  4) 

PRINT  "Clitiine  de  caracteres 
PRINT  CURS ( PEEK (V ARFTR ( A$)  ) } ; 

PRINT  CHRS(PEEK(VARPTR(AS)+ ) )); 

PRINT  CHRS  ( PEEK  (V  A  RPTH  ( A $)  *  2 ) ) 

PRINT  ’’Octet  de  remptisaage 
PRINT  PEEK[VARPTR(A$)t3) 

PRINT  "Bacfctr*U«r 

PRINT  LPEEK(VARPTR(AS)-»  4) 

EDIT _ _ „ _ 

Et  ma  intenant  le  descrip  tear  de  vrais  tableaux. 

Vbus  dies  bien  assis  ?  Ce  qui  va  suivre  maintenant  n'est  pas  quei- 
que  chose  de  leger  pour  finir  la  jour  nee.  Votre  sommeil  profond 
pourrait  en  Ctre  la  victime. 

Bon,  pluisanterie  a  part. 

Tont  d’abord,  nous  el ud ions  L' instruction  ARRPTR  pour  les  tableaux 
de  chaines  de  caracteres.  I.es  quatre  premiers  octets  du  descripteur 
de  tableau  comiennem  Padresse  de  debut  du  tableau.  Les  deux 
octets  suivants  indiquent  le  nonibre  dc  dimensions  du  tableau. 

Exemple : 


DIM  table»u$(  2,3,1} 

PRINT  "  Adresee  d«  tableau  :  " ;LPEEK( ARRPTEft  obJcauS  (}}) 

PRINT  " Ncmbrc  6c  fUmrtininm;  :DFEEKf A  RftPTRf  tableau* f}  1  4) _ 

La  premiere  instruction  PRINT  donne  une  adresse  qui  peut  varier 
d’un  cas  a  1’autre.  La  deuxieme  instruction  PRINT  retourne  le 
nombre  3S  car  trois  dimensions  ont  etc  delerminees  (2,3,1). 
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Cela  est  assez  logiquc.  Seulement,  Fadresse  du  tableau  ne  corres¬ 
pond  pas  ici,  a  F ad r esse  du  premier  octet  du  premier  element  de 
la  premiere  dimension*  mats  a  un  autre  descriptcur  contenant  des 
renseignements  sur  les  differentes  dimensions.  La  taille  de  ce 
descriptcur  depend  des  dimensions  p revues  par  F instruction  DIM. 

Au  debut  du  tableau  se  trouve,  sur  respect  ivement  quntre  octets, 
le  n ombre  d1  elements  compris  dans  chaque  dimension.  Et  cela  a 
reculons  :  on  commence  par  la  derniere  dimension(l).  Si  done  3 
dimensions  ont  ete  indiquees,  le  premier  secteur  du  descripteur  DIM 
est  de  12  octets  de  long.  Si  4  dimensions  ont  ete  determinees,  if  a 
une  longueur  de  16  octats  de  long  et  si,  par  exemple,  2  dimensions 
ont  ete  indiquees,  il  conticnt  8  octets  etc..  On  peut  alors  trouver 
le  nombre  d’elemcnls  de  la  dimension  en  question  avec  la  formule 
"adresse  du  descripteur  DIM  +  (nombre  de  dimensions  *  4)  - 
(F indie#  de  la  dimension  *  4},r. 

Far  rapport  h  notre  exemple  ci-dessus,  cela  sign* fie  ; 


D_imctescript.$5^LPEEK(ARRPTR(TablS(j}) 

DJmnombrc?6=DPBEK(ARRPTR(TftbltO)+4) 

FOE  TO  D_jmnombr<*$£ 

D_lmdeap^^D_tmdcEcrlpc.%  »  (4“D  imnOmbr€$4)-(4+l%] 
PRINT  "Nombre  dr4]4mvnt«  de  la  dimension  ; 
iLPE!K(DJmaec|>%) 

NEXT  I %  _ 


La  sortie  : 


Nombre  d'el4mentfi  de  la  dimension  i  :  3 
Nombffc  d'oUknents  de  la  dimension  2  4 

Nombre  d 'el 4m cuts  de  la  dimension  S  :  2 

Comme  nous  Favons  dej&  dit  plus  baut,  le  nombre  de  subdivisions 
des  dimensions  est  toujours  supericur  de  1  &  Findication  DIM, 
parce  que  Find  ice  commence  6  partir  de  Pelennent  0  de  la  dimension 
cn  question.  La  petite  routine  ci-dessus  pour  rail  rcsoudre  cc 
probleme.  Cependant,  il  faudra  encore  faire  la  difference  entre  les 
descripteuis  de  tableaux  de  ebaines  de  caracteres  et  ceux  de 
tableaux  numeriques. 
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Bn  ce  qui  concern©  les  tableaux  de  chaines  de  caracteres,  le 
premier  secteur  (dont  la  longueur  depend  du  n ombre  des  dimensions) 
est  suivi  par  une  liste  de  descriptors,  identiques  a  la  ehaine 
normal©  VARPTR.  Bon,  cate  fois-ci,  en  avanl  !  (heureusemem). 
Comme  vous  le  savez,  la  ehaine  VARHTR  contient  6  octets  dout  les 
quatre  premiers  indiquenl  Padrcsse  de  la  ehaine  de  caracteres  et 
les  deux  octets  suivants,  sa  longueur. 

Par  centre,  ici,  nous  ne  retrouvons  pas  un  scu!  descriptor  mais 
autant  de  deseripteurs  qu’il  y  a  de  subdivisions  dans  la  premiere 
dimension. 

Pour  la  definition  de  dimensions  (voir  plus  haul),  il  s’a&irail 
done  de  trois  descripteurs.  II  est  possible  d'obtenir  ces  descrip- 
teurs  avec  la  formule  "adresse  DIM  du  dcscripteur  +  (nombre  des 
dimensions  *  4)  +  (les  indices  de  la  premiere  dimension  *  6)H, 


D  _Jiatlt96cri  pt LPIi  KK{  ARK  I’TR  (Tabl$( ) )  ) 

^  D  m  m f>mbr e  %—  D  P  E  EK(  ARRP  TR(Tabi$  ( } )  4  -4) 

"  D_imd*ep.0M»LPEEK(D_iiwiefiCiipt.9t+(4'rD  Jnmombre&M) 
S  t  n  ngptr^j = D  \  maestri  pt , %  +  (4*  D  ^imnombr ) 

FOE  1%  =  C  TO  D  Jmc3eep.0$£ 

PRINT  "AdreftM  de  la  chalno  “jW&d/O/O  ’ 
,,;LPEEK(S„tringptr%+ 

PRINT  'Longueur  da  In  cliaijie  ";IS£;"/0/0  : 

11  ;DPEEK(S_trirgptr%+ •*+<!%*(>)) 

NEXT  1% 


La  sortie  depend  ici  du  cas  correspondant 

Ce  qui  semble  sans  doute  un  peu  bizarre  est  le  fait  que  les 
descripteurs  dc  chaines  de  tableau  contiennent.  sur  les  quatre 
premiers  octets,  des  adresse  qui  se  trouvent  environ  50  K  octets 
en  dess c us  de  Tadresse  de  I’ecran.  Les  tableaux  sent  places 
d’arriere  en  avant  (encore  quelque  chose  pour  les  gaucliers).  Cest= 
and  ire,  le  premier  octet  de  la  ehaine  de  caracteres  en  question  se 
trouve  en  haut  de  la  memoire  et  les  autres  s’ajoutent  les  uns  a  pres 
les  autres,  d'arriere  en  avant. 
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Pour  une  meilleure  comprehension,  vous  trouverez  ci-apres  un  petir 
programme.  Certains  d’entre  vous  penseront  sans  doute  que  le 
programme  suivant  est  un  peu  exagcrc.  Via  is  : 

“Les  autrances  met tau  en  evidence 


T'ScnalUext(l) 
DIM  A$(4,3,?) 
A$(0,010}=,,Ah 
V$(l,niO}="BG,t 
A*(  2.0,0)="  DEF* 
A${  8,0,0)="  G  HU" 


A$(4,0,0)-"KLMNO* 

D_eucripadr%=ARRPTR(A$()) 

A__rray  »dr% = LF  EEK  (  D  __e*crs  padr  % ) 

PRINT  STRING^ 3<V-*) 

PRINT  ”  Deficripteur  de  tableau  w  .  "jD  eflcrlp&dr% 


PRINT  STRING${39,"-”) 

PRINT  11  Adrewe  de  tableau  *’  :  ^LPEGK(D_«cripiiclr95) 

PRINT  STRINGS^,'") 

^RlNT  *  Ncrobre  de  dimensions  "  :  “;DPEEK(P_e¥cripadr%  *  4) 

PRINT  STRING  S{3S,n-n) 

?R!NT  n  Nurnbrt'  d'elemenla  de  dimension  1:  “;LPEEK(A_rrayndr%+S) 
PRINT  K  Nombrc  dVdt'MentcL  dc  dimension  2:  DLPEEK(A  rrnyad:r$&  i  4) 
PRINT  K  Nornbre  d 'Element a  de  dimension  " ;LPEEK(A__rrxyjidr%) 

PRINT  STRINGS  (SO,"-*} 

PRINT  "  O/0/O  *  Adrceae  du  descripleur  -  DA_rfftyadr%-*-  12 

PRINT  11  1/0/0  -  Adrease  du  descriptor  :  ";A  rrftyridt,%+  18 


PRINT  "  2/O/G  -  Adrcuc  du  deecripleur 
PRINT  M  S/0/0  *  Adrssse  du  deecriptenr 
PRINT  "  4/Q/O  -  Arircsse  du  dcscripteur 
PRINT  STRING  $(39,"-*’) 

PRINT  "  0/0/0  -  AdretLse  VARPTft 
PRINT  "  1/0/0  -  Adresse  VARPTH 
PRINT  "  2/0/0  -  Adtosee  VARPTft 
PRINT  11  3/0/0  -  Ad r esse  VARPTH 
PRINT  "  4/0/0  -  Adresee  VARPTR 
PRINT  STRING 

PRINT  h  O/O/O  Adr.Deflcripfceur  0/0/0 
PRINT  1  .A/q/o  Adr.Psftgripteur  1/0/0 


:  ";A__rrByadr%+ 24 
:  "iA^rrtiyadrjfo+SO 
:  ”;A_rrftyadr%+  36 


M;VAftPTR  (A  $(0,0,0)) 
";VARPTR  (A$(  1,0,0)) 
";VARPTR  (A$  (2,0,0)) 
VARPTR  (A$(3r0,0)) 
VARPTR  (A$(4,0/])) 


:  "  ;LP E  KK(  A  rray ad  t%  +  12) 
:  DLPEEK(A  rrayadrMfrlS) 
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RINT  "  2/0/0  Adr-Pcatrlptcur  2/0/0 
HINT  "  3/0/0  Adr.Deaeripteur  3/0/0 
PRINT  *  4/0/0  Adr.Dcecriptcur  4/0/0 

1»R1NT  STRlNGlfS©,*-") 

>RINT  •  Tsillc  dc  )»  chain®  0/0/0 
'HINT  *  T&ilU  <\f  la  chalne  1/0/0 
PRINT  "  Tall l*  de  la  ehatne  2/0/0 
PRINT  "  Tattle  de  la  chain*  3/0/0 
PRINT  "  Taitlc  dc  t*  chain*  4/0/0 
PRINT  STRING $(39 ■*) 

S_TRIN  G  .03=CHR$  ( PEEK(LPEEK(A 
tttlNT  "  STRING  0/0/0 
FOR  I%^0  TO  1 


■’;LPEEK{A_j*rayadr96+24) 
"  ;LPEEK  (A_rrayadr%+ 30) 
"jLPEEK(A_rrayadr%  f  36) 

fl;DPKBK(A„rrayadr5o*  16) 
"  ;DPEBK(A_rrayadr%+  22) 
K  ;DPEEK(  A_rray  »dr%+ 28) 
-;BPEEK(  A_rrayadf^l  34) 
”  ;D  PE  EK  ( A_rray  ad  r%+  40) 

rr»yadr%+ 12))) 

:  ”t$Jt ring, 04 


S_triii(f.  1 2— Spring .  l$+  CHR>(PEEK(LPEEK(A  ^rray  MB)  i- 1%)) 

NEXT 

PRINT  K  Chame  1/0/0  :  ^S_tring.  1$ 

FOR.  I%-0  TO  2 


S_tring.2i-S  iring  2t+OHR2tPEKKjLPEEK(A_Trayadr%+24)  +  l96)) 


NEXT  196 

pAINT  "  Cbaine  2/0/0  :  ’*;S_trmg  2$ 

FOR  196=0  TO  3 

S  tring.3$=s  tring.3|+  CHR2(PEEK{LPEEK{A_rrayadt96+  30) +  1%)) 

NEXT  1% 

PRINT  “  Cbaine  3/0/0  :  ";S_tring.3S 

FOR  I%“0  TO  4 

S_ering*4$=£__tnng.4|+  Cim$(PEEK(LPEEK(A_rrayadr%+3G)+ 1%)) 
NEXT  1% 

PRINT  *  Chain*  4/0/0  :  ";S_trifig  4$ 

fEINT  STRING  S(39 
HINT  "  Back  trailer  0/0/0  sc  rtfirc  A  : 
f* ;  LP  E  EK(  LP  EEK  ( A_rray  urtr%+ 12)+  2) 

PRINT  "  Back  trailer  1/0/0  se  rifere  A  : 

1  ;LPEEK{LPEEK(A_rrayadr96+ 18)+  2) 

PRINT  *  Back  trailer  2/0/0  sc  rtftre  A  : 


';LPEEK(LPEEK(A_rrayadr%+  24)+ 4) 
PRINT  "  B  Bek  trailer  3/0/0  sc  refer*  4  : 
,;l,PEEK(LPEEK{A_rr*y»di,96+  30)+  4) 
PRINT  *  Backtrailer  4/0/0  se  reftre  a  : 
"  ;LPEEK{LPEEK(A_rray*dr%+  3G)~  6) 
ferlnt  Stri0g4(S9/^ _ 
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L__QfnjufeLiT  .3^0%=  Len(  A$  ($,0,0)} 

If  L_ong'ucur.3_0%  Mod  2<>0 
Inc  L  ongueur.-l  t>% 

Endif 

Ot .3_D!%~  V arpt r  ( Aj f  3,(1  ,ft] )  +  t,^onguaur.3 _ 0% 

Prl«t  "  3/0/0  -  Bficktroiler  ee  c^ftre  A  :  ,1*I,pe£k(Bt.3_ 0%) 

Print  *  (Obtenir  A  1'aidc  de  LEN)  fc 
Print  Siring} ( 3&,”  -** ) ; CHr$ (27)  ,*H" 
r^Inp(2) 
jftiSmallteittfZ) 

:  dit     

Vous  trouverez  1'affichagc  sur  ecrrm  de  ce  listing  dans  le  chapiire 
"Le  menu  de  Pediteur'1. 


2/0/0  Adresse  descripteur  2/0/0  £  366S3S 
3/0/0  Adresse  descripteur  3/0/0  : 366628 
4/0/0  Adresse  descripteur  4/0/0  1966618 

Tai lie  de  la  chaine  0/0/0  :1 
Tai lie  de  la  chaine  i/0/0  :2 
Tai lie  de  la  diaine  2/0/0  !3 
Tai 1 le  de  la  diaine  3/6/0  i4 
Taille  de  la  diaine  4/0/0  :5 


String  0/0/0  :A 

Chaine  1/0/0  :BC 

Chaine  2/0/0  ;DEF 

Chaine  3/0/0  :6HIJ 

Chaine  4/0/0  iKLMNO 


Back trailer  0/0/0  sc  ref ere  a  : 158216 
Backtrailer  1/0/0  se  ref ere  a  J 158222 
Backtrailer  2/0/0  se  refere  a  : 158228 
Backtrailer  3/0/0  se  refere  a  : 158234 
backtrailer  4/0/0  se  refere  a  J15824B 


3/0/0  -  Backtrailer  se  refere  a  : 158234 
CDbtenir  a  I'aide  de  LEK) 
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Le  present  petit  listing  corn  lent  deux  diffcrents  appets  de  pro¬ 
cedure.  I]  en  results  d*abord  tin  FONT  COLOR  8*8  qui 
reprcndra  ensuite  si  taille  noi  male  HIRES  E*I6.  Ceci  prescnte 
Havant  age  de  pouvoir  fa  ire  figurer  la  total  ite  de  Taffichage  sur 
une  seule  page-ecran  {eomme  vous  allez  le  voir  en  testa nl  Ie  pro¬ 
gramme).  Si  vous  utiliscz  le  present  listing  tout  seul,  n'oubliez 
pEtr  d'incorporer  la  procedure  "Small text".  U  s’agit  da i Hears  de 
la  meme  fonction  de  commutation  que  celle  utilisce  dans  le  menu  de 
I’editeur  tors  tie  "Texte  16/Texte  8".  En  outre,  vous  trOuverez. 
sur  la  quatrieme  ligne  avant  la  fin,  une  instruction  du  TOS 
(CHRS(27);"H")  remelt  ant  le  curseur  de  texte  a  la  position  HOME 
(coin  super i  cur  gauche  de  I’ecran),  a  pres  avoir  termine  la  dernier c 
ligne  PRINT,  Cette  suppression  du  scrolling  est  egaicment  possible 
a  Paidc  d’un  point-virgule  ajoute  a  V  instruct  ion  PRINT  (pour  de 
plus  am  pics  informations,  voir  paragraphe  PRINT). 

Quant  aux  tableaux  numeriques,  il  est  possible  d'obtenir  les 
renseignemcnts  cor  respond  ants  (y  oompris  les  nomhres  d’ elements 
dcs  differcnics  dimensions),  de  la  memc  maniere  que  pour  les 
tableaux  de  chalncs  de  car  act  ores,  let,  ccpendant,  le  sectcur 
retournttnt  des  renseignements  sur  le  nombre  d’clcments  est  suivi 
par  les  dements  en  question  ou  pi utot  par  leurs  co menus. 

A  fin  de  connaitre  les  gcam  en  octets  de  ces  va  leurs,  nous  rap- 
pelons  Torganisation  des  variables  en  BASIC  GfA. 

11  existe  quaere  diffcrents  types  de  variables  en  BASIC  GfA  : 

Les  variables  reelles 

sans  suffixe  distinct  if;  place  memoire  6  octets 


Les  variables  ettiieres 

suffixe  %;  place  memoire  4  octets 

Les  variables  hooleenties 
suffixe  !;  place  memoire  2  octets 

Les  variables  chatnes  de  car  act  ires 

suffixe  $;  place  memoire  1  octet  par  camel  ere 
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Les  Hombres  reefs  (a  virgule  l'lottante)  peuveni  £tre  represented 
par  une  precision  dc  11  ch  iff  res  significatifs.  Pour  ime  repre¬ 
sentation  exponent ielle,  1‘exposam  ne  pent  depasser  la  valcur 
154  (par  ex.  1 .3399E+ 154), 

Les  valeitrs  emierex  (suppression  des  eh  iff  res  a  pres  la  virgule) 
peuvent  representer  cles  n  ombres  entiers  allant  do  -231 
(-2147483648)  a  231-l  (+2147483647), 

Las  variables  hoofccmivs  ne  peuvent  prendre  que  les  deux  valeurs  0 
(faux)  et  -4  (  =>  different  deO  =  vrai). 

Les  variables  dc  chatties  de  caracteres  peuvent  contort  ir  nu  maximum 
32767  caraciercs,  car,  dans  le  descripteur  d’une  variable  alpha- 
numerique,  seuls  deux  octets  (5  et  6)  sent  utilises  pour  indiquer 
hi  longueur. 


3.2.7  l.cs  miiiiipitlations  dc  la  memolre 


POKE  /  DPOKE  /  LPOKE 
Syntaxe : 

POKE  adresse,valeur  d’oetet 
DPOKE  adresse  pai  re,  valcur  tie  mol 
LPOKE  adresse  pa  ire,  vateur  de  mot  long 

Com  me  la  pi  u  pa  it  d’entre  vous  le  savent  dej;\,  le  BASIC  per  met  on 
ueces  direct  aux  eellules-memoircs.  II  est  possible,  suit  de  lire 
le  contain  (PEEK,  DPCEK,  LPEEK),  soil  d'cerire  dans  la  cellulc- 
niemoire  les  valeurs  souhaiiees.  Par  rapport  aux  autres  inter¬ 
pret  eurs  BASIC,  Templet  dc  T instruction  POKE  n  etc  elargi  en 
BASIC  GI’A,  Ainsi,  il  est  possible  d'ecrire  dans  les  cellules- 
niemoires,  en  plus  des  valeurs  doctets,  des  mots  ei  des  mots  longs 
contenant  des  entiers  (sans  une  longue  procedure  de  conversion). 
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Le  format  d’oetei  —  POKE  =>  modifie  (a  valeur  d'un  octet  isole 
comenant  des  valeurs  comprises  erstre  -256  et  255. 

Le  format  dc  mot  -  DPOKE  =>  modifie  la  valeur  de  deux  octets 
consecutifs  con  tenant  des  valeurs  comprises  cntrc  -65536  et  65535. 

Le  format  de  mot  long  »  LPOKE  =>  modifie  ta  valeur  de  quatre  octets 
consecutifs  contenant  des  valeurs  comprises  entre  -2147483648  et 
2147483647. 

A  la  difference  des  ordinatcurs  8  bits,  le  ST  cst  capable  de 
traitor,  sans  conversion,  des  valeurs  jusqu'a  2SI-1  (mots  longs). 
En  general,  le  ST  travaille  avec  des  mots,  ce  qui  rend  le 
traitement  d'un  octet  isole  a  I'aide  de  POKE,  plus  long  que  la 
manipulation  d'un  mot.  Pour  s’assurer  que  les  differents  formats  nc 
soient  pas  confondus  a  I'imerieur  du  systeme,  les  mots  et  les  mots 
longs  ne  pen  vent  el  re  ecrits  ou  lus  qu*a  partir  d'un  nombre  pair 
d’oetets.  Lc  traitement  des  valeurs  d' octets  isoles  est  cependant 
possible  a  n'importe  quel  endroit.  En  faiaint  cehi,  il  fmu  prendre 
so  in  seulement  qu’une  place-memoire  de  4  octets  (variables  en- 
tieres)  ou  de  6  octets  (variables  a  virgule  flottantc)  soil  p revue. 

Vous  n’obtiendrca  peut-6ire  pas,  dans  Pcxemple  suivani,  le 
rcsultat  prevu,  22, 


A%=1U 

POKE  VARFTR(A9S),2£ 
PRINT  A9S 


mais  une  valeur  de  22*256*256*256+1 1  i  =  369098863.  Ceci  pent 
Sire  explique  par  le  fait  que  A%  est  un  nombre  entier  de  4  octets. 
A  I’aide  de  ’Poke  Yarptr(A%),22\  vous  no  modifier  done  pas  le 
nombre  lui-m£me,  mais  seulement  son  premier  octet.  Le  nombre  III, 
affecte  au  debut  a  la  variable  A%.  occupe  seulement  la  place  d’un 
seui  octet,  e’est-a-dire  celle  du  dernier  des  quatre  octets 
exists  nts.  Les  trois  precedents  octets  de  ce  mot  long  coni  ion  non  t 
des  zeros. 
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SI  vous  sou  ha  it  ez  done  ne  changer  le  nombre  que  sur  un  octet,  il 
est  possible  de  poker  la  nouvcllc  valcur  dans  VARPTR(A%)+3, 
si  elle  est  inferieurc  a  256.  Si  la  nouvelle  valeur  se  trouve  entre 
256  et  65536,  il  faut  la  poker  dans  VARPTR(A%)+2,  ccltc  fois  a 
I’aide  de  DPOKE.  VARP‘1  R(A%)  n'est  util'iscc  que  si  la  valeur  a 
le  format  d’un  mot  long,  c'est-a-dlre  si  die  est  super  ieu  re  $ 
65535.  Il  lam  alors  a  fleeter  cette  valeur  grace  a  P instruct  ion 
LPOKE. 

La  place  a  P  inter  ieur  des  variables  de  chains  de  caract£res  defi- 
nies,  off  re  encore  d^autre  possibilrtes.  Vo  us  pouvez  y  affecter, 
en  economisant  de  la  place-mc  moire,  des  valours  il’octets  on  de 
mots,  sans  etre  oblige  de  definir  a  chaque  fois  line  variable  qui 
"gaspi  lie'*  4  octets.  Cela  peut  devenir  ires  intcressunt  lors 
d*i  mportantes  operations  de  tableau.  Ceci  n’est  cependant  pas 
possible  pour  les  valeurs  it  virgule  floe  [ante,  qui  doivent  f>trc 
trui tees  separement.  C’est  pnurquoi  ce  type  de  variables  occupe 
aussi  une  place  memoire  de  6  octets, 

Cela  peut  Otre  trc$  utile  d’etudier  &  fond  ce  qui  a  ete  dccrit  ci- 
dessus.  Faites  quelques  essais.  Mais  assurez-vous,  en  definissant 
d'ahord  ccrlaines  variables  (voir  plus  haul),  que  vous  ne  pokez  pas 
dans  des  zones  importances  du  systeme  ou  de  rinterpicleur.  Soyez 
prudent  quant  a  tome  manipulation  dc  la  memoiie  ! 


SPOKE  /  SDPOKE  /  S LPOKE 

SPOKE  ad les&c* valcur  d’ octet 
SDPOKE  adresse  pa  ire,  valeur  de  mot 
SLPOKE  adresse  pa  ire,  valeur  de  mot  long 

Ces  instructions  permcltcnt  cgalcment  dc  mampulcr  la  memoire, 
En  BASIC  GfA,  ees  manipulations  peuvent  etre  classees  en  deux 
domaines  :  les  manipulations  des  zones -memoi  res  a  acces  general  e< 
les  manipulations  des  zones-memoires  du  super viseur.  Le  mode 
super  viseur  sert  &  proteger  certains  zones-memoires  contre  un 
acccs  non  autorise,  afin  de  conserver  les  functions  dc  base  du 
systcmc. 
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Si  Ton  modifie  ees  fonctions  de  base  grace  &  SPOKE,  SDPOKE  ou 
SI. POKE  (S^super)  et  si  apres,  on  ne  se  retrouve  plus  dans  les 
fo  net  ions  ainsi  initialisees,  seu!  un  nouveau  lancement  du  systeme 
aiders  a  $*en  sortir,  H  ne  faut  done  appliquer  les  super  pokes  que 
si  Ton  s'y  connait  bicn  dam  le  systeme  et  que  Pon  est  alors 
capable  de  mail  riser  les  consequence  de  son  pokage. 


PEEK  /  DPEEK  /  I. PEEK 

Syntaxe : 

PEEK(adresse) 

DPEEK(adresse  paire) 

LPEEKfadrcsse  pa  ire) 

Les  instructions  PEEK  sont  complements  ires  des  instructions 
POKE.  Com  me  cela  fut  le  cas  pour  les  POKEs,  il  faut  fairs  la 
difference  entre  les  PEEKs  d'oetet,  les  PEEKs  de  mot  ct  les 
PEEK  de  mot  long.  L1  instruction  PEEK  retourne  le  contcnu  de 
Padresse  indiquee  entre  parentheses.  DPEEK  et  (.PEEK  ne  pen  vent 
etre  utilisees  que  pour  les  adresses  pa  ires. 

Exemple  : 


Ai~* " 

POKE  VARPTR(At),34 
PRINT  PEEK ( VARPTR (AS) ) 

POKE  VARPTR(A$)pPB8K(VAF?PTR{A3})+  1 
PRINT  PEEK( VARPTRf  A$) ) 

EDIT 

Ce  petit  programme  crcc  unc  variable  alphanumcrique  d'un  octet, 
affecte,  grace  a  POKE,  la  valeur  34  h  la  ceilule-memoire,  lit 
ensuite  le  contenu  de  cette  cellule-memoire,  augmente  de  I  la 
valeur  et  reecrit  la  nouvelle  valeur  dans  la  cellule-memoire. 
Enfin,  la  valeur  35  est  affichee. 
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L’ instruct  ion  PEEK  ne  tntvaiHe  qtTen  mode  super  viseur.  II  est 
done  possible  d'obtenir  &  tout  moment  des  rensoignements  sur 
cliaquc  cellulc-mcmoire  , 

NEXT  1% 

'Retoiimc  ft  I ‘instruct  ion  FOR  cn  question  juequ’ft  ce  que  la  valeur 
'finale  eolt  atteinte. 


Defmousc  0 
Enter.2: 

RETURN 

4Fi«  (la  la  procedure  do  charge  men  t.  Rcfcournc  ft  la  llgno  d’appcl 
‘du  programme  et  continue  a  pnrtir  de  la  ligne  de  programme 
'uuivantc. 


-  103 


Le  litre  dit  BASIC  GfA 


I.'  ah  €  da  CfA 


Procedure  Grftfmcmi 

’Si  voua  apiHiycz  uur  Lu,  touche  <ESC>  pend  nr.  I  1' execution  dtt 
■programme,  le  menu  principal  apparait.  La  parti t  do  programme  «n 
'question  commence  ici. 

(5'G.etflip 

'll  est  determine  d' abort!  quelle  page-ecran  graphique  eat 
'affichcc  actiicllcmen*.  E))e  est  ftlore  conservec  dans  sa  version 
'actucllc  (vuir  Procedure  G.etflip). 

CRAPHMODE  1 

’Commc,  entretempe,  lea  diffSrcnteu  functions  da  base  one  4t6 
'modifiece,  il  eat  ncccaaairc  dc  lea  remrttre  en  mode  normal. 

*Le  mode  graph) quo  "Replace**  ret  aloes  mis  eu  place. 


3.2.K  Premiere  pn rtie  graph iijue 

GRAPH  MODE 
Syntaxe  : 

GRAPHMODE  mode  do  representation 

It  v  a  qua  l  re  differents  modes  graphiques  pour  unites  les  repre¬ 
sentations  graph iques,  sauf  pour  les  operations  <1e  resolution  PUT  : 

CRAP!IMOI>i:  I  =  Replace 

L'clemenl  graph ique  utilise  (PBOX,  LINE  etc.)  cst  ropreserue 
tempi i.  Tout  ce  qui  se  trouve  au-dessous  est  done  superpose  et 
rem  place, 

nouveau  point  =  masque  do  cotileur  du  nouveau  point  AND 
nouveau  point 
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GRAPHMODE  2  =  Transparent 

Les  pixels  ne  som  allumcs  qu’a  Fendroit  ou  des  couleurs  (ici  : 
noir)  soni  affectccs  an  nouvel  element  graphique.  L&  ou  il  n'y  a 
pas  de  con  leu  rs  a  representer  (ici  :  blanc),  Pancien  fond  est 
conserve.  La  nouvelle  surface  est  alors  iranspa rente.  Pour  une  Pbox 
blanche  au  contour  noir,  sent  le  cadre  noir  est  done  visible. 

==>  nouveau  point  =  (masque  de  couleur  du  nouveau  point  AND 
nouveau  point)  OH  (couleur  de  Pancien  point  AND  NOT 
nouveau  point) 

GRAPHMODE  3  =  XOR  (==>  OIJ  excliistf) 

II  rfest  pas  facile  d’expliquer  ce  mode.  On  pourrait  presque  l*ap- 
peler  "intelligent"  car  il  "se  sou  v  lent"  des  pixels  allumAs  du 
premier  element  graphique  avant  qu'un  deuxieme  y  soil  superpose, 
et  les  efface,  settlement  spies.  Les  pixels  ne  sent  allumcs  quo  la 
ou  il  n’y  ert  avail  pas  encore.  Si  on  met  deux  elements  graph iques 
du  rnSntc  genre,  exact  cm  eat  au  mftme  end  roil,  ce  mode  efface  lc 
premier  par  le  deuxieme*  sans  detruire  le  fond  precedent.  11  est 
done  possible  dV>btemr  airtsi  ite  bons  effois. 

=■=>  nouveau  point  =  nouveau  point  XOR  couleur  de  Pancien  point 

CRAPIIMODE  4  -  Refers  transparent 

Ce  mode  est  identique  au  mode  2,  avee  pour  scule  difference  que  les 
couleurs  sont  i oversees.  Par  exeruple,  lout  ce  qui  est  def ini  en 
blanc  dans  le  nouvel  element  graphique.  est  represente  cn  noir  el 
vice  versa.  Si,  done,  deux  elements  graph  iques  idem  iques  elaiem 
representes,  une  fois  en  mode  2  ct  une  fois  en  mode  4,  le  deuxieme 
element  sera  it  le  negntif  exact  du  premier. 

==>  nouveau  point  =  (couleur  de  Pancien  point  AND  nouveau 
point)  OR  (mosque  de  couleur  du  nouveau  point  AND  NOT  nouveau 
point) 

Vous  pouvez  tester  les  effets  des  differents  modes  a  Paide  d'un 
petit  programme  exemple.  Appuvez,  pendant  Pexecution  du  pro¬ 
gramme,  alternativement  sur  la  touche  gauche,  la  touche  droite  ou 
les  deux  touches  de  la  souris.  Si  vous  n'enfomcez  aucune  touche,  le 
mode  ’Replace'  esr  mis  en  place.  Le  programme  est  inierroropu  cn 
appuyant  sur  n'importe  quelle  touche  du  clavier. 
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DEFFILL  1,2,1 

repeat 
MOUSE  X.Y,K 
GRAPHMODE  1 
IF  K“1 

GRAPHMODE  2 
ENDUP 
IF  K-2 

GRAPHMODE  3 
ENDIF 
IF  K-S 

GRAPHMODE  4 
ENDIF 

prox  x( y.x+k+bo.y+so 

PBOX  X,  Y,X+-  E0,Y +■  50 
UNTIL  DEN(INKEYI) 

EDIT  _ _ 


COLOR  I 


*mcU  vn  placo  la  coulcur  noir,  com i no  ccultur  dti  ligno. 


CQl.OR 


Syntaxe : 


COLOR  regislre  de  couleurs 

L’instruction  COLOR  deteimine  le  rcgistre  de  couleurs  pour  les 
instructions  LINE.  PLOT,  DRAW.  CIRCLE  et  BOX,  Ert  mode 
monochrome,  il  ne  s’agit  que  des  registres  0  (blanc)  et  I  (noir). 
En  moyenne  resolution,  par  centre,  on  dispose  de  4  registres  ct 
en  bassc  resolution,  de  16.  II  est  possible  dc  defirtir  leur  con- 
ten  u  grfice  ii  V  instruct  ion  de  fixation  dcs  parts  de  couleurs 
(^combinaison  RGB) 

SETCOLOR  registre,  part  du  rouge,  du  vert,  du  bleu 
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SETCOLOR 
Syntaxe : 

SKTCO LO R  resist re.ro uge, v er t .bleu 
SETCOLOR  regisirt\valcui  de  con  leu  r 

Com  me  nous  favons  explique  plus  haul,  rl  e$t  possible  de  dufinir 
le  ton  de  la  coulcur  ( combi  nai  son  RGB)  des  different*  registres 
de  couleurs  (HIRES  =  0-1;  M1DRHS  =  0-3;  LOWRHS  =  0-15).  II 
n’est  alors  pas  possible  d’obtenir  des  tons  gris  par  unc  modifi¬ 
cation  dee  registres  en  modes  HIRES.  Noir  (reg.l)  resle  noir  et 
blanc  (reg.O)  reste  blanc. 

L’ instruct  ion  SHTCOLOR  1,7.7 ,0  donne  done  7  parts  de  rouge, 
7  parts  de  veit  et  0  pari  de  bleu  (=jaune).  II  est  possible  de 
defimr  ainsi  512  couleurs  differentes  (3  couleurs,  8  tons  chacune 
=  8x8x8  =  512  couleurs),  II  peut  etre  mile,  quelquc  fois,  de 
ne  pas  entrer  trois  para  metres  independants,  mais  une  valour 
globale  de  combination,  Pour  la  fonct ion  SETCOLOR,  ceei  est 
possible  de  deux  famous  differentes, 

Lors  de  1' instruction  SETCOLOR,  rintcrprctcur  fail  la  difference 
entre  uti  seui  ou  plusieurs  parametres  de  coulcur.  Si  un  scul  para- 
metre  a  etc  affecte,  la  combinaison  de  couleurs  est  la  suivante : 

Si  Pon  souhaite  obtenir  irois  pans  dc  bleu,  deux  parts  de  rouge 
et  5  parts  de  vert,  la  valeur  peut  ctre  ca  leu  Ice  en  multipliant  la 
pan  de  rouge  par  256.  la  port  de  vert  par  16  et  la  part  de  bleu 
par  L  Dans  1’excmple  present,  il  faudrait  done  indiquer  la  valeur 
595  pour  obtenir  la  combi  nai  son  de  eotileur  sou  ha  i  tee. 

Done  ; 

S etc olor  miinero  de  registre.595 

II  est  possible  de  simplifier  ce  calcul  en  uti  lisa  nt  des  nombres 
hexadccimaux : 
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SET COLOR  1&H253 


ou 


DU 


A=&1I263 
5ETCOLOR  1.A 


r 


“2" 

A=VAL(A*) 

IsivTCOAOKj.A 


Le  dernier  exemple  est  une  varicte  inventec,  qui  peut  pouftam 
dcveoir  nceessairc.  Kile  montre  comment  plusieurs  expressions  de 
texte  peuvent  etre  con  vert  ies  en  un  n  ombre,  grace  a  V  instruction 
VAL. 

Les  trots  registres  suivants  ont  unc  importance  particulierc  : 

registre  0  =  coulcur  du  fond 

registre  1  -  couleur  du  texte  imprime 

registre  3  =  couleur  du  texte  de  Pcditeur  BASIC 

Malheurcusement,  il  n'est  pas  possible  d’appliqucr  ici  le  cercle  de 
couleur  goetheen,  parce  que  les  trois  couleurs  fonda  men  tales, 
rouge,  bleu  et  jaune  oe  sont  pas  combiners.  Pour  bien  choisir  la 
couleur,  il  faudrait  soustralre  du  filtre  vert,  la  couleur  bleue. 
Ccpendant,  nous  expliquons  brievement  le  cercle  de  coulcur 
goetheen  ci-sipres  : 


ROUGE 


ORANGE 


VIOLET 


BLEU 


JAUNE 


VERT 
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[[  y  a  trois  differed tes  couleurs  fondamentales  :  rouge,  bleu  et 
jaune.  La  combinaison  1  a  I  de  deux  de  ces  couleurs  donne  la 
couleur  com  piemen  tai  re  (inverse)  de  celle  qui  manque. 

Combinaison  l  a  1  de  rouge  et  bleu  donne  violet  (=  complement  de 
jaune) 

Combinaison  1  a  1  de  rouge  et  jaune  donne  orange  (-  complement  de 
bleu) 

Combinaison  !  a  1  de  bleu  et  jaune  donne  vert  (-  complement  dc 
rouge) 

Combinaison  I  a  I  a  I  dc  rouge,  bleu  et  jaune  donne  blanc. 

Sans  aucune  de$  couleurs  fondamentales  on  obticni  la  *non  couleur* 
rvoir. 

Si  le  nombre  de$  parts  est  modifie,  on  ohtient  d’autres  tons 
femdus. 

Exemple  : 

Combinaison  2  a  1  de  bleu  et  jaune  donne  bleu  turquoise 

Combinaison  2  ft  I  dc  bleu  et  rouge  donne  violet 

Combinaison  2  a  l  de  rouge  et  jaune  donne  einabre 
Combinaison  2  a  I  de  rouge  et  bleu  donne  mauve 

Combinaison  2  a  1  de  jaune  et  bleu  donne  vert  rilleul 

Combinaison  2  a  1  de  jaune  et  rouge  donne  orange 
etc... 


DEFLWE  1,1. 0,0 


*met  en  "norm. tics"  lea  definitions  dc  types  dc  llgne. 
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DEFUNK 


Syntaxe : 

DEFUN  E  1 1  y  pel  J 1  a  rgeu  r  ]  J  t  y pe  d’ ext  remite  m  debut!  {type 

d'extremite  a  la  fin] 

L’ instruct!  on  DEFI.INE  per  met  qua  t  re  diffcrents  par  a  met  res  de 
representation  de  Iigncs,  utilises  avec  BOX,  CIRCLI*tLINE,  RBOX, 
ELLIPSE  et  DRAW.  Le  premier  para  metre  indique  le  type  de  trait, 
te  deuxieme  la  largeur  du  trait,  le  troisieme  le  type  d’extremite 
au  debut  et  le  quatrieme  le  type  d'extremite  a  la  fin. 

Type  de  trait  : 

1  =  trait  confirm 

2  =  trait  1 1  rets  petits  ecarts 

3  =  trail  points 

4  =  trail  point -ti  ret  (par  ex.  pour  la  representation  des  axes) 

5  =  trail  tirets  grands  ecarts 

6  =  trait  ti  ret -point -point 

-I  a  -32767  =  type  de  trait  defini  par  soi-m£mc 

Le  type  de  trait  que  1’on  definit  soi-meme  contiem  15  bits.  En 
commengaiit  a  compter  par  la  droife,  chaqiie  bit  posit  ionne  est 
represente  par  un  point  et  chaque  pit  absent  par  un  blanc. 

Lxemple  : 

La  combinaison  I  101 101 11  SCI  101  a  pour  rcsultat  la  valour  28141. 

Fn  commen^ant  par  le  chiffre  situe  t\  droite.  cela  donne  : 

Bit  0  posit ionne  - 

Bit  1  absent  = 

Bit  2  posit  ionne  = 

Bit  3  posit  ionne  «= 

Bit  4  absent 

Bit  5  posit  ionne  = 

Bit  6  positionne  = 


2CI  s 


22 

23 


2s 

26 


i 

0 

4 

8 

0 

32 

64 
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Bit  7 

positionne 

= 

27  = 

126 

Bit  8 

positionne 

= 

26 

256 

Bit  9 

absent 

0 

Bit  10 

positionne 

^=r 

TlO  = 

■tr 

1024 

Bit  11 

positionne 

“ 

2n  = 

2048 

Bit  12 

absent 

- 

0 

Bit  13 

positionne 

2ia  = 

8192 

Bit  14 

positionne 

— 

2 14  - 

16384 

La  somme  de  lous  les  bits  posit  ionncs  :  28141 


Ce  nombre  doit  figurer  comme  valeur  negative  dans  le  premier 
parametre  DLFUNE,  pour  Qu'un  type  de  trait,  corresponds  nt  au 
motif  binaire  indique,  puisse  cire  obtcnu.  La  ligne  contiendra 
alors  un  multiple  de  ees  15  bits. 

I.e  deuxiemo  para  me  l  re  indique  la  Inrgeur  du  trail.  II  est  possible 
d’obtenir  au  maximum  une  largeur  de  40  points  graph  iq  lies.  II  faut 
no  ter  que  la  ktrgeur  augments  par  pas  de  deux.  La  valeur  2  entrains 
dobc  la  memo  largeur  que  la  valeur  1  et  la  valeur  16  la  meme 
largeur  que  la  valeur  13,  etc.. 

Le  trotsieme  et  quatrieme  pa  ram  et  re  indiquem  le  1  y  d'extremite  a 
utilise?  rcspcctivemem,  au  debut  et  a  la  fin  de  la  ligne. 

II  s'agil  de  trois  types  difiercnls  : 


Valeur  0  =  point u 
Valeur  l  =  fleche 
Valeur  2  =  ai  rondi 


<£Clippr*c{2) 

Loire  temps,  un  "Clipping  rectangle",  e'est-o  dire  une  partie  de  la 
page-ecran,  peut  avoir  etc  defini.  Sui  le  herd  de  ce  rectangle,  les 
elements  graph  iques  doivent  etre  decoupes  {sauf  lots  d’une  ins¬ 
truction  de  resolution  Put).  Cette  partie  de  I*  reran  doit  alors 
el  re  elargie  pour  que  le  menu  puisse  apparaitre  dans  sa  totalise. 
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Pour  etudier  le  "Clipping  rectangle’1,  il  eat  conscillc  de  cliqucr 
d'abord  V  opt  ion  SPHC1  du  menu,  puis  Ics  options  de  so  us -menu 
"Set  clipping'1  et  "Clipping  allume1’,  II  vous  esi  demande  alors  dc 
definir  la  purlie  de  lu  page-eeran.  A  pres  Pa  voir  definie,  choi~ 
sissez  n'importe  quel  element  graph ique  (sauf  SELF)  du  menu 
cP  initialisation  (appuyer  sur  <TAB>)  et  faites  vos  dess  ins,  Vous 
verrez  qu'tl  esi  impossible  dc  dcssiner  en  dehors  de  la  partie  de 
Tec  ran  definie.  Cette  effei  est  dO  a  une  fonction  sous  GEM  qui 
sera  eiudice  plus  loin. 


IF  1 

'll  est  demands  si  le  menu  principal  a  deji  upptU, 


FOR  !%-0  TO  39  STEF  4 

'St  oui,  let  images  conteruies  en  UpmenuoJ  et  Dwnmcnod 

'dispa  raise ent  vers  k<  haul  cm  iv  bat  du  1  tcran.  flrfice  & 

'cells  boude. 

* 

PUT  0,-37+ T%,Upmenuc$,3 
PIJ T  0,396-1% .Dwmnenuef  .3 

’Leu  deux  purlieu  de  menu,  snUYegardees  Ion*  dn  premier  appal 
■<iu  menu  principal,  soul  al©M  rcmiHCB  sur  In.  pag«-6r.ran  par 
'pas  de  quAlre,  soil  &  partir  du  bord  atiperieur,  soil  a  part i r 
'dn  bord  inferiemr  de  I'^cran.  Apris  le  premier  pat,  n'eul 
*alora  afficlid  que  1/10  de  la  bamle-ineiiu,  apr+s  Je  deuxierne 
"pas  2 /10,  aprfcfl  le  fcr©isi*me  pas  3/10  etc...,  jusqu'a  ce  qttc, 
'aprte  10  pas,  La  band® -menu  soit  nfficbce  en  enti^r, 

'Aprcs  cbnqtiv  pas,  L'tmacc  pricfrLcnle  est  euperpoeec  par  La 
’imuvdle  image  afllcMe.  Vu  que  lea  cocrdonnccs  de  PUT  se 
’referent  toujours  au  coin  «mj>£ri«iir  gauche  de  Fimagc 
’sauvtignrtWe,  il  fiiut  commencer  par  des  valeurs  negatives  pour 
’le  menu  supfimur. 
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GET  /  PUT 

Syntaxe  : 

GET  X SG,YSG, X I D. Y 1 D ,memoireS 
PUT  X  SO ,  YSG ,  memo j  re$| ,  mode] 

XSG:  coordosinee  X  superieure  gauche 
YSG:  coord  on  nee  Y  super!  cure  gauche 
XID:  coordonnee  X  inter! cure  droitc 
YID:  coordonnee  Y  inferieure  droite 

Les  indications  des  coordonnees  correspondent  tou  jours  au  sommet 
superieur  gauche  de  Pecran. 

U1  instruction  GET  pennet  de  memo  riser  les  images.  L*  instruct  ion 
PUT  est  la  function  complements  ire.  Grace  ft  GET  (A  ne  pas 
confondre  avec  P  instruct  ion  GET#  qui  permet  de  lire  des  series 
de  hits  de  fielders  sur  disqucltc},  il  cst  possible  de  placer  en 
mAnoire  des  parties  de  Lecran  qui  peuvent  ensuite  etre  affichees  ft 
Paidc  de  ('instruction  PUP  (ne  pas  confondre  non  plus  avec 
PUT#  qui  permet  d’ecrire  des  series  de  bits  sur  disqueite). 
GET  affecte  te  motif  b  inn  ire  de  la  pariie  c  hoi  sic.  ft  one  chaine 
dc  caracleres  alphnnumerique.  11  est  possible  dc  modifier  cette 
pseudo-chaine  a  Paide  des  fonctions  et  operations  de  texte.  Les 
coordonnees  des  sommets  dc  P  instruct  ion  PUT  sent  faculta  lives 
Hindis  que  les  coordonnees  du  sommet  infer  ieur  droit  resultent  de 
la  panic  de  Pec  ran  memonsee  grftee  ft  GET.  II  est  possible  dc 
transferer  les  coordonnees  du  sommet  de  PUT  en  dehors  dc  Pec  ran. 
11  en  res  uke  qu'on  ne  peut  voir  que  des  morccaux  de  cette  partie 
ou  meme  rien  du  tout.  Vous  allez  rencontrer  cet  elTet  ft  pi  us  ieur  s 
reprises,  lors  de  ('utilisation  du  programme  graph ique. 

Lorsque  vous  utilise?  Hast  ruction  GUI.  les  sommets  indiques 
do!  vent  sc  trouver  ft  Pinter  ieur  de  la  page-eeran.  Si  ccla  n’est 
pas  le  cas,  Pimcipretcur  n’executerft  pus  P  instruction.  Ceei 
pourrait  avoir  des  effets  sur  les  2ones  me  moire  voisinanl  ta 
memo  ire  ecran  T  entniinam  ainsi  le  plan  tag  c  du  systems. 
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II  faut  noter  quo  le  mode  tie  Pinst ruction  PUT  rcssemble  an  mode 
tie  representation  de  GRAPIIMODE.  avee  pour  scute  difference  qu'il 
existe  un  ehoix  plus  grand  en  ce  qui  concerne  les  operations  de 


resolution. 

Mode 

0; 

ef facer  t'ancien  fond 

Mode 

li 

nouveile  image  AND  fond 

Mode 

2: 

nouveile  image  AND  NOT  fond 

Mode 

3: 

nouveile  image  (rempla^ant  le  fond) 

Mode 

4: 

(NOT  nouveile  image)  AND  fond 

Mode 

5: 

fond  (rien  ne  se  passe) 

Mode 

6: 

nouveile  image  XOR  fond 

Mode 

7: 

nouveile  image  OR  fond 

Mode 

B: 

NOT  (nouveile  image  OR  fond) 

Mode 

9: 

NOT  (nouveile  image  XOR  fond) 

Mode 

10: 

NOT  fond  (fond  in  vers) 

Mode 

M: 

nouveile  image  OR  (NOT  fond) 

Mode 

12: 

NOT  nouveile  image  (image  inverse  transparent) 

Mode 

13: 

(NOT  nouveile  image)  OR  fond 

Mode 

14: 

NOT  (nouveile  image  AND  fond) 

Mode 

15: 

1  (=noir) 

Le  mode  de  resolution  3  correspond  au  mode  grapluque  1. 

Le  mode  de  resolution  7  correspond  au  mode  graph ique  2. 

Le  mode  de  resolution  6  correspond  m  mode  graph  ique  3. 

Le  mode  de  resolution  12  correspond  au  mode  graphique  4. 

Vous  pouvez  tester  les  effets  des  modes  differents  a  faide  du 
petit  programme  exempted  Si  vous  n’appuyez  pas  stir  tine  touche*  la 
nouveile  image  ne  sera  dess i nee  qu’une  seule  fois,  par  execution,  a 
Tendroit  ou  se  trouve  la  souris.  Si  vous  enfoncez  la  touche  gauche 
dc  ta  souris*  elle  sera  dessinee  deux  fois  de  suite  au  mOme 
endroit.  Si  vous  appuyez  sur  la  touche  drolte  de  la  souris*  le  mode 
suivant  cst  mis  en  place. 


DEPFIIX  ,3*2 
FBOX  0,0,639,300 
GET  10,10, 80,50, 

FOR  I“0  TO  15 

PRINT  AT(20,6) ;nhrfodc  dc  resolution  ;  *';! 
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REPEAT 

MOUSE  X,Y,K 
PUT  X.Y.FfM 
IF  K=1 
PUT  XrY,Frt.I 
ENDIF 
UNTIL  K—2 
P80.X  0,0(63&,3£>& 
NEXT  I 
EDIT 


It  est  conseillc  d’cviter  P  indication  d'une  valeur  negative  en 
mode  de  resolution.  Cftci  ne  plait  pas  du  tout  a  I'inlerpreteur  et 
il  vous  en  remercie  par  de  man  vaises  fonciions. 

Lex  caracict  t  si  iques  generates  de  ia  memoire  ccran  : 

L’eeran  monochrome  est  const  it  ue  d*un  tableau  dc  400  lignes, 
con  tenant  80  octets  chacune.  Les  lignes  sont  enchainecs  les  unes 
apYes  les  a  litres. 

Le  premier  octet  de  Pecran  (il  s’agit  d’ailleurs  dc  Padresse 
obtenuc  par  XBIOS(2)  est  const  hue  des  huit  premiers  pixels  situcs 
sur  la  premiere  ligne  en  haul.  Le  deuxieme  octet  se  trouve  &  droite 
du  premier  etc.  ...  jusqu’a  Poctet  80  qu*  se  trouve  sur  te  lx>rd 
droit  de  la  premiere  ligne.  L'octet  81  se  trouve  de  nouveau  sur  le 
bord  gauche  de  Pecran  en  deuxieme  ligne,  suivi  a  droite  par 
Poctet  82  etc..  De  cetie  man iei e,  Pecran  se.  compose  en  (argeur, 
d’une  resolution  de  640  points  graph  iques  (80  octets  &  8  bits 
chacun  «=  640)  et  en  hauteur,  de  400  points  (400  lignes). 

Les  ecrans  de  moyenne  et  basse  resolutions  ont  la  mcme  structure 
avec  pour  seule-  difference  qu’il  faut,  pour  definir  les  couleurs, 
des  octets  supplemental  res.  Cest  pourquoi  un  eCran  ST  contenant 
640  x  400  points  graph  iques  ne  peut  representer  en  haute  resolution 
que  deux  couleurs  differentes.  La  place  memoire  prevue  pour 
Pecran  (400  lignes  ft  80  octets  chacune  -  32000  octets)  est  alors 
entierement  occupee  par  le  choix  des  couleurs  (noir  =  le  bit  est 
1  /  blanc  =  le  bit  est  0). 
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La  solution  de  ce  probleme  consists  a  avoir  plus  de  place  dlspo- 
nible  cn  memo  ire.  Pour  les  grands  ordinateurs,  par  example,  ii  est 
parfaitemenl  possible  d’obtenir  i  00.000  couleurs  difforentes  avec 
une  resolution  de  ixsaucoup  plus  quo  J000  x  1000  points  graph  iques 
(voir  les  cffets  grapbiques  de  Pordinateur  a  la  tele). 

NEXT  1% 

ENDIF 


IF  Momhartflnu^-^O 


'Lc  menu  principal  .ippfete  pour  la  premiere  fois. 

COLOR  1 
DEFLINE  0,1 .0,0 
DEFFILL  .0.0 

’ll  fuil  <d ’abort!  fnire  les  choix  n^eesaaires. 


DEFFILL 
Syntaxe : 

DEFFILL  [couleur  ][ 4  mode],!  mot  if]] 

DEFFILL  [couleur],DefinevarS 

L’ instruction  DEFFILL  permet  de  specifier  trois  parametres  qui 
deter minem  le  mot  if  de  reniplissage  actual, 

Para  met  re  I:  couleur  du  motif  de  remplissage 

Para  met  re  2;  mode  de  remplissage 

0  rempli  avec  la  couleur  du  fond 

1  rempli  avec  la  couleur  de  Fob  jet 

2  point! lie  avec  la  couleur  de  Pobjet 

3  hitch ure  avec  la  couleur  de  t'objet 

4  motif  de  remplissage  redefini  par  soi-meme. 
Si  Ton  n’a  redefini  par  soi-meme  aucun  motif 
de  remplissage.  le  siglc  ATARI  cst  affiche. 
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Para  metre  3: 


ciioix  entre  les  differents  motifs  de  remplissage. 

It  est  possible  de  choisir  entre  36  motifs 
differents  sans  tenir  compte  de$  deux  modes  de 
rem  Image  plein. 

II  s’agit  des  motifs  1  a  24  en  mode  2. 

Des  motifs  tail  en  mode  3. 

Du  sigle  ATARI  ou  du  dernier  motif  defini  par  soi- 
meme  en  mode  4, 
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£n  effcctuant  dcs  modifications  grace  a  I1  instruction 

DEFFILL  (couleur  de  remplissage),  R.motifS 

il  esi  possible  d’obienir  son  propre  motif  de  remplissage.  Comine 
cela  fut  le  cas  pour  la  definition  de  la  souris,  une  chaine  dc 
caracteres  crime  longueur  de  32  octets  est  mise  en  place*  Le  motif 
de  remplissage  consiste  egalement  en  16  x  16  points.  II  n’est  pas 
neccssairc  ici  de  definir  un  masque  ou  on  point  d’action.  C'est 
pourquoi  il  ne  faut  transmettre  que  1 6  mots  oontemnt,  dans 
Fordre,  les  motifs  hi  na  ires  des  d  iff  creates  lignes  sur  lesquelles 
se  trouvent  les  motifs  de  remplissage.  Ccci  est  possible  grace  a  la 
fonciion  MK  IS, 

Fxemple  : 


DIM  Rm.ligiic%(l6) 

Hm.J»Kiie%{l)  =&ximmuimiu 
Rm.]lgne%(a)  =&XlOOOOOOCOOOCOQOC 
'  Rm%n«%(3)  -isXl OOOCC011OOCOOOO 

-&X1O000C10010GO00O 
Rin%ms%(S)  «  &  X 1 OCOO 1 OOOOl  OOOOO 
=&Xl®CG 1000000 10000 
Rm.Iign*%(7)  ^&XiOOlOOOllO0OlCOfJ 
=&X 101000 11110001(10 
Rm  lign«%[9)  -&X1OOIOO0IIO0O1GO0 
Rni.ligii#%(l0)=tXlOOOlOOCOOOlOOOO 
Rm.ligne%(n5=-feXiDOOmOOOO  100000 
Rm.iigne5S(l2)=&X  1  OOOOOiOC  1000000 
Rm.tigno%(l3)-tX  iOCOCOOl  10000000 
Rm.Uff  ne%(  14J = &X101 11 1111111 1110 
Rm.ligne%(  15)~  feXIOOl  1 1 1 1 1 11 1 1 000 
Rm.ligne%{  1 6)  ~£X  1000000000000000 
FOR  I%=1  TO  1C 

NEXT  1% 

DEFFILL  I.B-inatifS 
PBOX  100,100, 200, 200 
U=INP(2) 

EDIT  
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M  est  cgaiemeni  possible  d’obtcnir  des  motifs  definis  par  un 
ediieur,  <|ui  calcule  done  les  dilferentes  valours. 
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3.2.9  f  c  format  des  itomhrcs  ct  dcs  d ounces 

bi.ms  /  iir.xs  /  ocr$  /  tC n  /  &x  / 

SyrUaxe  : 

l3lNS$(vaicur)  /  &Xrtombre  binaire 
liEXS( valour)  /  &Hnonibre  hexadecimal 
OCTS(va)eur)  /  &Onombrc  octal 


lei,  les  differenies  lignes  oni  une  structure  aulre  quo  colic  de  la 
definition  du  type  de  trail.  Encore  unc  fois,  le  BASIC  GfA  p  or  met 
unc  petite  subtil  ilc  ires  efficacc,  Mnis  eiiidions  cfahord  les 
differetHs  syst  ernes  dr  nombres. 


Lai  differ  oil  s  syst  etnas  de  n  ombres 

T1  y  a  quatre  differents  systeme  de  nombres  informal iques  ; 

le  systeme  decimal 
-  le  systeme  hexadecimal 
le  svsUMne  binaire 
le  systeme  octal 

Le  systeme  habitueL  c'est-n-dirc  le  systeme  ileciiiial.  a  pour  base 
le  nombre  10  (deei  =  10  -  par  ex.  I  decimetre  =  10  centimetres). 
La  valour  d'un  nombre  esi  toujour;.  oblemie  a  partir  de  cvlte  have. 
Ainsi,  les  untffe  result  ent  de  10  puissance  0  (=  I),  les  dbtaines 
de  10  puissance  I  (=  10),  les  oenmines  tlv  10  puissance  deux  (= 
100)  etc. 

Dans  les  nut  res  systemes  dc  nombres,  cel  cmploi  de  la  puissance  est 
cxactemenl  le  m(mc,  a  la  seule  difference  que  d'a  litres  nombres  stint 
pr is  pom  base.  Ainsi,  le  systeme  hexadecimal  (hexa  (6)  t  tied  (10) 
«=>  hexadeci  (16))  n  pour  base  le  nombre  16,  Ic  systeme  binaire  (bi 
=  2)  le  nombre  2  ct  le  system?  octal  focta  ^  K)  le  nombre  8  On 
com  pr  end  done  main  tenant  in  valeui  modeste  des  di  iff  res  binaires  el 
la  valeur  elevce  dcs  ch  iff  res  hexadeoiimtix. 


L"  a  h  c  tht  G/4 


ck,  <== 

chiffre  S: 

chiffrc  2; 

chiffrc  1: 

dermal 

:  10  pLiiMiiuCi  2  = 

100  ; 

10  puasAMitc  I  — 

10  ; 

10  puid^ajice  O  = 

1 

Ii3i3  tare 

;  2  piiiKii^ncc  S  = 

-«  ; 

2  pLU£fliiHC£  |  s 

2  : 

2  puirt  met:  0  “ 

t 

liexud^citsmL 

:  18  puktanec  2  = 

250  ; 

IS  ptiitiaanct  1  = 

16  ; 

18  pui.±iaii£c  0  =x 

1 

ottd 

:  B  puttiti.ftnce  2  — 

04  , 

8  puimiaiict!  1  — 

a  i 

S  pL|iit=iiicc  0  — 

1 

1 1  fam  pTendre  en  compte  une  particularite  cles  nombres  hexa- 
decimaux.  Comme  le  nombre  i  6  m  pen  l  t*c  re  rcpresenle  en  ch  iff  res 
aiabes,  on  a  imagine  un  true. 

i.es  nombres  hexadecimaux  de  0  a  9  sent  represented  de  fa  memo 
fa^on  quo  dans  le  sysleme  decimal.  Les  nombres  de  10  a  15.  par 
con  Ire,  sent  represent  es  par  des  lettres  (A- 10;  B-il;  C=I2; 
D=I3;  Its*  14;  F-15).  Voila  la  raison  pour  hquelle  on  irouve  des 
left  res  dans  les  nombres  hexadecimaux. 

■r 

Le  nombre  decimal  1037  so  compose  de  la  fa<?oii  suivanie  ; 

(HI  puraaiKe  <J)  x  7  —  7 

-i  (tfl  puissance  1)  k  3  =  30 

(le  (rtieteme  cliifOe  v* l  jiu(,  done  .  O) 

i  (lO  puissance  3)  x  1  =  iflflf 


totui  :  1037 

Le  nombre  blnairc  10001  l  a  pour  valeur  (les  ch  iff  res  de  la  droile 
vers  la  gauche,  comme  pour  1c  systemc  decimal) 

(2  pnifis  since  0)x  1  s  I 

+  (2  pul^imce  1)  x  1  =  2 

(le  trciisiein*  ehiffru  «il  mil,  done  ;  U) 

(Le  qu;ttri£me  chiffrc  eat  rml,  done  :  0) 

(Le  tiitqiuimie  chiffrc  cj?S.  mil,  done  :  0) 

4-  (2  puhsance  5)  x  1  =  32 


totjJ  ;  35 
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La  mgme  chose  pour  1c  nombre  hexadecimal  F3B0  : 


(Le  premier  chiffre  e&l  mil,  done  :  H) 


(16  puhuacvce  1}  x  11  =  176 

+  (16  puissance  2)  x  3  =  2816 

+  (16  puissance  3}  x  IS  =  614-10 


lota!  :  64-132 


lit  finalemeru  pour  le  nombre  octal  10537  : 


(S  pui&zanct!  0)  x  7  — 

7 

+  (8  puinsuicc  1}  x  8  = 

24 

+  (8  puiaaancc  2)  x  5  = 

320 

(le  quatriime  chiffre  «hL  mil,  done  :  0) 

+  (8  puissance  4j  x  1  = 

4096 

total  ; 

4447 

El  maintenam  nous  alio  ns  inverser  la  conversion 
Le  nombre  decimal  1352  en  format  binairc  : 


13SZ  :  2 

- 

676 

R^ate  Q 

676  :  2 

- 

358 

Reate  o 

_ 1 

335  :  2 

IS 

169 

He&Le  € 

1  1 

169  :  2 

84 

1 

1  1  1 

64  :  2 

3 

42 

Pc  etc  Q 

1 

t  1  ! 

42  :  2 

= 

21 

ResU  0 

1 

1 

1  1  1 

Z\  i  2 

= 

10 

Hrgtc  1 

1  1 

1 

1  1  1 

10  :  2 

S 

Rests  0 

1 

!  1 

1 

1  1  1 

5  :  2 

= 

2 

Regfce  1 

! 

1 

!  1 

1 

1  1  1 

2  j  2 

3 

1 

Rc-fiCC  0 

1 

! 

1 

!  1 

1 

1  :  2 

S 

6 

[test*  1 

1 

1 

1 

1 

1  I 

1 

1  1  1 

0  :  2 

= 

0 

Eteale  0 

1  1 

1 

1 

1 

1  1 

1 

1  1  1 

1  1 

1 

1 

1 

i  I 

1 

1  1  1 

Le  nombre  biitnire 

eat  tc  suivimt 

t  0 

1 

0 

i 

0  o 

i 

0  0  0 

11  esi  possible  de  convert  ir,  scion  le  me  me  schema,  les  nombres 
dOcimnux  en  nombres  ties  a  wires  sysidmes. 
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En  voiia  encore  un  exemple  pour  les  nombres  herauttciraaux  : 
Le  n ombre  decimal  35117  en  nombre  hexadecimal  : 


35117  :  16  -  2194  =»  2194  *  16  -  35104  =>  Diff.  -  13  CO  1 


?m  : 

16  = 

137  => 

137  * 

16  = 

2192  =>  Diff.  = 

z  ay 

137  i 

16  - 

e  » 

6  * 

16  m 

120  »  Diff.  * 

9  (91 

1 

S  : 

16  - 

0 

e  * 

16  - 

0  *>  Dill.  = 

6  <e> 

1  1 

0  : 

16  = 

0  3> 

o  * 

16  » 

0  ■>  Diff.  » 

0 

1  1  i 

1  I  1  I 

Le  nombre  hexadecimal  est  le  suivanl  ;  ®  9  2  D 


Voila  en  ce  qui  coneerne  les  bases.  Pour  un  langage  aussi 

confortable  que  le  BASIC,  i!  rfest  plus  nccessairc  de  calculcr  ies 
nombres  de  cette  fa$on,  Mais  cela  peut  quand  mcmc  filre  utile 
quelqucs  fois  de  savoir  !e  fa  ire. 

Lc  system e  hexadecimal  a  ele  developpe  pour  urte  raison  partt- 
culiere.  Cest  que  le  contenu  de  quatre  bits  (tetrade)  peut  fire 

represent^  avec  un  nombre  hexadecimal. 

Un  nombre  sur  qua! re  bits  (1111)  peu(  avoir  au  maximum  la  valour 
15  (2°+21h22+2s)*  Cost  exacicment  cone  valour  qui  peut  etre 

representcc  par  un  nombre  hexadecimal  (F).  Un  octet  (£i  bits)  est 
done  regroupc  en  deux  tetrades  (2x4=8),  un  mot  (16  bits)  en  quatre 
tetrades  (4x4=16)  et  mol  long  (32  bits)  en  huil  tetrodes  (8x4=32). 

Et  ma  Intenant  une  particularity  Com  me  vous  le  savez  peut-£tro,  il 
est  possible,  pour  Ies  nouveau x  interpreteurs  BASIC,  d’indiquer 

directement  des  nombres  hexadecimau  x  en  mettant  le  caractere  11 H1' 
devam  le  nombre, 

Fn  BASIC  GfA,  il  es!  cgalcment  possible  d'indiquer  direciemeni 
des  nombres  octaux  (caracteres  :  "&0")  et  hi na ires  (caractercs  : 
"&X).  C'est  ce  qui  s' est  passe  dans  notre  exemple  plus  haut. 
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Une  autre  possibility  esi  de  convertir  les  diffcrcnts  types  de 
nombrcs  en  un  autre  systemc  de  nombrcs.  Ccci  est  realise  grftce  a 
des  fonctinns  de  chalnes  de  caracteres  : 

Bin$  convert  it  le  nombre  indique  en  format  binaire 

llex$  converts  t  !e  nonibre  indiqueen  format  hexadecimal 

Oct$  convertit  le  nombre  indique  en  format  octal 

Lcs  nouvcUes  expressions  peuvent  etre  affichees  par  rinstruction 
PRINT,  a  f fee  tees  a  une  variable  de  chaine  de  caracleres  mi  rajou- 
lees  a  une  expression  de  chains  de  caracteres. 

Nous  vous  consei lions  d’etudier  a  fond  Pexemple  suivani  |X)ur  ne 
pas  avoir  de  pioblemcs,  dans  raven  ir,  avec  les  conversions  de 
nombres. 


Ajifc-moiinin" 

D.bS="PSlA” 

A;m?S  ~  VALf&X"  +  A  .m3) 

B  bb%— V  ALf'&H  ”  +  B.t$) 
Ctc96»VAl.("AO*+ C.cS) 
AftS~BTNS(AB&%) 
Bfc$=IIEX3{Bbb96) 

Cel = OCT3  (Ccc%) 

PRINT  A.ftS  B.bS  C^S 
PRINT  Ana%’Dbb%'Ccc% 
PRINT  AuS,Bl>$*Cc$ 
PRINT  BINS (6223) 
PRINT  IIEX3{6223) 
PRINT  OCTS(6223) 
PRINT  &XH  100101 
PRINT  &IIF51C 
PRINT  &<M437 
U=1NP(2) 

EDIT 
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MKI$  /  MKL$  /  AfKSS  /  A tRF$  /  MKD$ 

Syntaxc  ; 

MK  !S(  valour) 

MKL$(vnlcur) 

MKSS(valeur) 

MKH$(  valour) 

MKD$(  valour) 

Cos  functions  dc  chaincs  alphanumeriqucs  per  met  tent  de  con  vert  ir 
des  valours  numeriques  en  une  expression  de  chain?  dc  caractercs 
avant  la  valour  ct  le  format  souhaites.  L.a  structure  des  variables 
pout  varier  sensiblement  scion  to  sys tonic,  I'intorprctcur  on  le 
compila tour,  I  .a  structure  des  variables  cn  BASIC  CfA  a  deja  etc 
ctudice  pour  I’ instruction  ARRPTR.  Nous  avoirs  vu  que,  deja  pour 
le  BASIC  CfA,  tc  format  des  nomhres  pent  varier,  A  fin  de  ne  pas 
el  re  oblige  d'effectuer  de  longues  operations  de  calcul,  pour 
con  vert  ir  les  different^  valcurs  tf  octets  dans  le  Format  ncces- 
saire,  11  esl  possible  d'utiliser  les  cnnfortables  I  o  notions 
suivantes  : 


MkiS 

convcrtit  un  Integer  de  I <5  bits  (2  octets)  en  one  expression  dc 
cbm  no  alphanumcriquc  tie  2  octets. 

Mklt 

convert  it  un  Integer  de  32  bits  {4  octets)  on  line  expression  de 
chalne  alphainiinenque  de  4  octets. 

Mks$ 

convertit  une  valour  quclconque  on  une  expression  de  chalne 
alphanumerique  compatible  an  BASIC  ATARI 

MkfS 

convertit  une  valour  quclconque  en  une  expression  de  chalne 
alphanumerique  de  6  octets  en  format  d’un  nonihre  reeL 
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MkdS 

convert it  one  valour  queiconque  en  une  expression  tie  chaine 
alphanumeric  tie  de  8  octets  compatible  au  MBASIC 

Les  valeurs  ain$j  CO  over  ties  peuvent  maintenant  etre  traitces  octet 
par  octet 

Bxemple  : 


AS-MK  14(3407631 23) 

FOR  1%‘H TO  3 

PRINT  PEEK(VARPTR(A$)  1 1%)"; 
NEXT  1% 


Vous  trouverez  un  autre  exempie  dans  le  chapitre  CVI,  CVL, 
CVS,  CVF,  CVD. 

CVI  /  CVI  /  CVS  /  CVF  /  CVD 
Syntaxc  : 

CV  ({expression  de  chaine)  /  CVIOtexte")  /  CVI(VARS) 

CVL(  express  ion  d#  chaine)  /  CVLC'iexie*)  /  CVI,(VAR$) 

CVS( expression  de  chaine)  /  CVS("texte")  /  CVS(VARS) 

CVF( expression  de  chaine)  /  CViTtextc")  /  CVh(VARS) 

CVD( expression  de  chaine)  /  CVDTtextO  /  CVD(VARS) 

II  s*agil  ici  des  functions  complements  ires  aux  fonetiom  de  con¬ 
version  dec  rites  plus  haul, 

l.es  longueurs  des  ch nines  indiquees  sent  convert!  os  en  valeurs  nu- 
meriques,  scion  les  fonctions  correspondantes  et  en  tenant  eomptu 
du  format  souhaitc. 

Excmplc  : 


A=126422X2S7 

A1S-MKI$(A) 

A2S“MKL$(A) 

A3$=MKfiJtA) 
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A4$— MKFS(A) 

AS$~MKD$(A) 

A.1=CVI(A13) 

A.2”CVL(A?t) 

A.S=CVS(A3$) 

A.4=CVF(A4$) 

A.5=CVIJ(AS$J 

PRINT  "Vdciir  de  d*but  :  *;A 

PRINT  "Formal.,  de#  chains  :  ,t;Al*"A2*"A3r"A4*,>A5* 
PRINT  “Reconversion  :  ";AJ,'A.2J’A.3,,A.4"A.S 
PRINT  MKP$( RANDOM (1000000)4 Rnd) 

PRINT  CVFrDASlC.'n 


INP 

Syntaxc : 

INP(numcro  de  port) 

Vo  us  a  vex  rencontre  cede  iast  ruction  &  piusieurs  reprises,  a 
Timerieur  des  programmes -exempt  cs.  INF  pout  6trc  utiliscc  pour 
inierrompre  le  programme  et  pour  attend  re  Temple  i  d’une  touche. 
Mi  is  sa  vraie  fonction  est  de  lire  un  octet  isole,  soil  sur  un 
fichicr,  soit  sur  un  peripherique, 

Lc  numcro  d’un  canal  de  donnees  on  le  imniero  pour  identifier 
les  different  ports  cst  indique  entre  parentheses.  II  faut  faire 
attention  en  employant  la  presente  instruction.  Lorsqu*elle  attend 
un  octet,  il  n’est  pas  possible  dc  la  I’airc  changer,  memo  a  Taidc 
de  <CONTROL>,<Sl  11  FT>.<  ALTERNATE:*.  Si  elle  a  etc  appelee 
et  s*il  n’y  a  pas  d’oetet  sur  le  peripherique  indique,  il  ne  resie 
qu*a  appuyor  sur  la  touche  RESET. 

Les  ports  out  les  identifications  suivantes  ; 

0  LST:  (imprimante) 

1  AUX:(pori  auxiliaire) 

2  CON:  (port  de  console  =  clavier) 

3  MID:  (port  MIDI) 

4  IKE:  (proccssem  du  clavier) 

5  VID:  (port  video  -  moniteur) 
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Excmplc  : 

X-lnp(2)  attend  Peitfoncement  cTune  touche  et  sauvegarde  sa 

valcur  ASCII  sous  "X". 

X=Inp(3)  attend  im  octet  an  port  MIDI  et  sail  vega  rdc  sa 

valcur  sous  "X'\  (MIDI  -  Musical  Instruments 
Digital  Interface) 

Print  Inp(#I)  rctourne  la  valcur  ASCII  tin  curactere  sui  lequel  se 

trouve  actuellement  le  point  cur  de  fichiers.  Cc 
camel  ere  est  contejiu  dans  un  fichier  ouvert,  avec 
pour  numero  de  canal  $  1 . 

OUT 

Symaxc : 


GUI  numero  de  port,  valcur  d'oetet 
OUT  #eanal,  valcur  d'octel 

L' instruction  complements) ire  de  INP  est  OUT.  OUT  permei  de 
tninsmcttre  dcs  valours  d'oetet  a  un  certain  enna!  dc  donrtecs  on 
a  un  periphenque. 

Kxemple  : 

Out  5J22  -  affielie  Ic  caractere  "z"  (valour  ASCI1=I  22)  sur  le 
mo  niccur -video,  a  Pendroit  oil  so  irouve  actuel  lemon  t  Ic  curscur 
(!)  (il  est  done  possible  de  placer  les  32  premiers  caractcres  de 
conlrolc  sur  Pecran,  a  Pend ro it  soiihaite). 

Out  4,1  S  -  arr&tc  le  contact  dc  la  souris  (stmris  esl  inactive) 

Out  4,8  -  rclublU  le  coni  act  dc  la  souris  (souris  est  a  nouveau 
active) 


Ces  deux  instructions  concernanl  Ic  proccsseur  dti  clavier  ne 
monimnt  qu'une  petite  partie-  des  possibil i tes  exKumtes  pour 
co nt idler  le  processeur. 
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H  s'agit  d'un  sujet  ires  vaste  et  tres  compliquc  parce  que 
souvcnt.  plusieurs  instructions  OU'I  som  combiners  au  proccsscur 
en  one  seule  instruction.  Nous  n'entrerons  ici  pas  plus  tin  ns  tes 
details,  bn  cas  dc  mauvaise  utilisation..  IKB  vous  remercie  par  des 
reactions  snattendues.  SOyez  done  prudent  ! 

Out#  I; 65  -  ecrit  la  valeur  ASCII  du  caraetcre  11  A"  sur  la  position 
on  $e  irouve  act  null  omen  t  le  pointeur  dans  Ic  I  ichier  avec  1c 
numero  de  canal  indique  (ici  :  #1). 


STR$ 

Syntaxe : 

STRS(  valeur) 

Encore  ti ne  fonetion  que  vous  avez  deja  rencontrec  dans  les 
exemples  :  la  fonetion  de  texie  STRS.  die  per  met  de  convert  ir 
des  valcurs  numeriques  en  line  expression  de  texte.  La  nouvcllc 
chatne  de  ca  racier  os  a  une  longueur  correspondent  au  nombre  dc 
chiffres  de  in  valeur  affeetee  en  foiniat  decimal,  Les  valours 
indiquees  comme  nombre  hexadecimal „  binairt*  on  ocial  stint  done 
tTabortl  convert ies  on  format  decimal. 

Fxomple ; 


A-1 577.6927* 

PRINT  S'W(A)  _ 

Sortie  :  1577.69271 

La  scrie  de  chiffics  affichce  n'est  plus  un  nombre  representam  unc 
valeur,  mais  sen  lenient  une  chainc  de  caracleres  alph  a  num  clique 
contenant  les  differents  ch  iff  res  de  la  valeur  comme  carac lures  de 
textes, 

I  PRINT  STRS l  VALr&HB5A V ) ) 

Sortie:  58799 


-131  - 


Le  fivre  du  BASIC  C/A 


C'c  nombre  ne  represen  te  e^a  lenient  plus  dc  valours*  mais  une  serie 
de  5  caractercs  dc  texte. 


VAL 


Syntax?  : 


V A L( expression  dc  chaine  de  canicteres) 

VAL("  texte") 

VAL(V;ir$) 

VAL  est  ('instruction  complenientaire  dc  STRS.  File  eonvertil  Its 
chiffres  de  chafnes  de  caractercs  en  valours  numeriques-  Mais  ceci 
seulcmcnt  si  les  ch  iff  res  $e  iron  vent  en  debut  de  chaine. 

Lcs  caractercs  &H,  &X  ti  <&0  font  exception.  Ils  sont  consider^ 
comme  des  n  ombres.  Pour  !es  n ombres  hexadecimaux,  d'eventuefs 
caracteres  sont  pris  en  compte*  s'ils  font  partie  des  nombres  hexa- 
dedimaux  (A-F), 

Example : 

f  PRINT  

Sortie:  238  (&HEE=238) 


AS="^XlltU23Uf' 

ElibVX yAUAS5 

Sortie  :  13  (&X1 101  =  13) 


P HINT  VAL("  5. 3  7B  t  CT" ) 


Sortie:  23700000 


/./  a  h  c  dit  Of  A 


VAL? 

Symaxe : 

VAL?(expression  de  chatne  de  caracteres) 

VAL^Ctexte”) 

VAL?(Var$) 

Cette  fonction  pcrmet  d'obtenir  1c  nombre  maximum  de  on  rac  teres 
cfunc  chaine  representant  tine  valour  numerique. 

hxemple  : 


PRINT  VAL?  (" A WKEc  &rcce£r«"  ) 


Sortie  ;  4  (les  qua  ire  premiers  earacteres) 


PRINT  VALTC^SJEOr) 


Sortie  :*6  (format  exponentiel) 

tlOl  23E" 

PRINT  VAL" (AS 

Sortie  :  6  (identification  ineluse) 


PBOX  0,0.330,40 
PiJOX  0,350, 039.3^0 


3,2.10  Peuxieine  partie  graphique 


PBOX 


Syntaxe : 


PBOX  X!o,Y!o,Xru„Yru 
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L*  instruction  PBOX  per  met  de  tracer  des  rectangles  rcmplis  par  le 
motif  de  remplissage  souhaite.  Ces  rectangles  peuvent  etre  definis 
par  des  eoordoiwees  de  summets  <|uelcoiK i ties  (meme  nega lifs).  Un 
eventual  "Clipping  Rectangle*',  fait  que  Finterpreteur  les  coupe 
aux  bords  de  Fecrnn.  De  toute  fa^on,  les  coord  on  nees  se  Iron  vent, 
cn  general,  a  Pinter  ieur  de  Fecran.  Le  premier  parametre  dc 
P  instruction  indique  la  coord  on  nee  X  du  sornmel  gauche  super  ieur 
du  rectangle.  Forigine  de  la  coordonnee  etant  le  coin  superieur 
gauche  fie  Pec  ran  (0/0).  Le  deuxteme  parametre  represente  la 
coordonnee  Y  du  mcme  so m met.  Le  troisieme  parametre  determine 
la  coordonnee  X  du  so  m  met  droit  in  Per  ieur,  Pongine  de  lit  coordon- 
nee  etam  egalcmeni  le  coin  superieur  gauche  dc  Fecran.  Le  qua- 
trieme  parametre  leprcsente  la  coordonnee  V  de  ce  sommet.  Ainsi, 
les  quatre  cotes  du  rectangle  ont  ete  definis. 


"X"  represente  tPuilleurs  Faxe  hori/omale  et  MV"  Paxe  vorticale. 
Le  contour  du  rectangle  a  une  largeur  d’un  pixel,  il  n’est  \m 
possible  tPefTnccr  ou  d'aff  ichor  ce  contour  a  Paide  de  Pinter - 
preteur.  11  fact,  pour  cel  a,  recourir  a  la  fo  net  ion  GUM  que  %‘Otts 
trouverez  dans  le  listing  du  programme  sous  1c  nom  "PROCEDURE 
Contourfv  is  i  bid'll  )'\ 


FOR  I%=U  TO  COO  STEP  SO 


’Cette  bcucle  permet  de  tracer  lea  different*  tableaux  de  rricmi. 

BOX  2,2,1%+ 70,36 
BOX  I%+  4,4.1%  r7e,36 
BOX  l%t  2,301 ,1964  78.397 
BOX  1%  t  4,363.1%  h  76,30$ 

NEXT  l % 


BOX 


Syntaxe  : 

ROX  Xgs.Ygs.XdqYdi 

L'uiilisation  de  ('instruction  BOX  est  cn  principc  la  meme  quo 
colic  de  PBOX, 
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11  n’y  a  quc  deux  petites  differences.  Preincrement.  ii  n’est  pas 
nccessaire  de  definir  un  motif  de  remplissage,  car  seul  le  contour 
du  rectangle  esl  trace.  Deuxicmement,  Ira  instruction*  de  lignes 
permettent  ici  de  modifier  le  rectangle.  II  rat  done  possible  de 
definir  le  type,  la  Sargeur  du  trait  el  la  forme  finale  du  rec¬ 
tangle,  grace,  a  Pinst  rue  lion  DEFL1NE.  Le  bout  gauche  du  c6te 
super i our  du  rectangle  represents  alors  le  debut  et  ie  bout  supe- 
rieur  du  cote  gauche  represen tc  la  fin. 


GKAPH.MODE  2 


’L*  insert  ion  {tea  ligneft  dc  cexte  auiv&nbaa  on  mode  'Replace1 
'cut  rain  er»  pent-ctre  line  surimpressioo  du  bord  dm  tMilcaux  du 
'jcc-nu.  Ii  ftuit  done  ucilfcj«r  le  mode  transparent. 


DEFTEXT  1.1,0, 6 


DEFTEXT 
Syntaxe  : 

DEFTEXT  | couleur  14 [type], | orientation  14 tai He jj 

E1  instruct  ion  DEFTEXT  per  met  une  representation  different  e  dra 
caractcres  afficlies  par  TEXT.  L'  instruct  ion  DEFTEXT  n*a  aucun 
effet  stir  r  impress  ion  4  en  dehors  des  feneires  sous  GEM.  PRINT 
ne  peut  Otre  modi  flee  qu'a  Faidc  de  differentes  instructions 
sous  TOS. 

11  rat  cepcndant  possible  de  modifier  les  textes  ct  Ira  lignra 
contains  dans  Ira  boites  d’alarme  on  de  selection  de  fichiets. 
grace  a  une  instruction  sous  GEM.  Vous  trouvere/.  les  procedures 
sous  GEM  on  annexe. 
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l^s  puramelrcs  ont  la  signification  suivante  : 

Para  met  re  l  :  definition  du  registre  contenant  la  coulcur  du 

texte 

Para  metre  2  :  definition  du  type  des  camcteres 
Des  valours  comprises  entre  0  et  31. 

Excmplc  : 

0  normal 

1  gras 

2  normal  dair 

3  gras  clatr 

5  italique 

8  gras  sotiligne 

16  contour  1 

17  contour  2 

,  20  italique  contour  etc. 

Si  Ton  utilise  la  valcur  16  puis  la  valeur  17  ft  la  mcmc  position, 
le  texte  s'y  irouvam  apparatlra  ombre.  II  faut  alors  el  re  en 
OR  A  PH  MODE  2,  ce  qui  per  met,  d’ailleurs,  tie  combiner  entre  cux 
tons  les  differents  types  de  caracteres. 

Parameire  3  :  definition  tie  Tangle  d’orientation  de  I'ecriture 

D  o  orientation  norma  le  vers  la  droite 

900  =  le  texte  est  affiche  veiticalcmenl  de  has  en  haul 

1800  =  le  texte  est  affiche  horizon  tafement  de  la  droite  vers 
la  gauche  (Tune  fa^on  rcnvcrsec 
2700  =  1c  texte  cst  affiche  vertiealement  de  hiiut  en  bas 

Para  metre  4  :  definition  de  la  hauteur  des  caractcrcs 

Des  valours  comprises  entre  0  el  26. 
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Exemple  : 

0  rien 

4  petite  ccriluic  ( icones) 

6  Ecriture  en  couleur  (8*8) 

13  ecriture  nor  mule  (8*16) 

26  grande  ecriture 


TEXT  10, 22,"  QUIT" 
TEXT  00,22,"  IN1TS" 
TEXT  170,22,"  EDITS- 
TEXT  253,22,"  CINE" 
TEXT  330,22,"  SPECI" 
TEXT  410,22,"  FLIPS" 
TEXT  450,22,"  El  SKY" 
TEXT  570,22."  PRINT" 


'Place  Jos  litres  dc  menu  a  la  position  sou  ha  Lee. 

* 


TEXT 
Syntaxe : 

TEXT  Xpos,Ypos[Jongueur  ^expression  de  chalne  dc  carac  teres 
TEXT  X pos,Y pos| Jong ucurj,Ht ext eM 
TEXT  Xpos,Ypo$(  Jongucur],Var£ 

1 /instruction  "TEXT  X,Y,L /chalne  de  caracteres"1'  perniet  d’af- 
richer  un  textc  en  representation  defini  par  DEPTH  XT,  sous  unc 
position  quelconque  dc  I'ecran.  Ceci  r/esl  possible  que  sur 
Tccran.  Le  tcxie  ne  peut  pas  cue  transfer®  sur  (lisquette  ou 
sort!  sur  impri manic. 

Lcs  deux  premiers  para  metres  represemont  la  position  du  textc 
souhaitec  sur  lcs  coor<lonnees  X  et  Y, 
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Le  point  dc  reference  d'un  texts  normal  (horizontal  de  lu  gauche 
vers  la  dr  cite)  correspond  to  u  jours  au  coin  infer  ieur  gauche  de  la 
boite  de  lexte  qui  va  contenir  le  premier  caractere,  meme  si  celui- 
ci  cst  tin  hlttnc. 

Le  troisieme  paramclrc  definit  le  format  de  texte.  H  permet  trois 
different^  affichages  de  texts  : 

a)  cn  longueur  normals  (Uirgenr  de  la  Ixiite  de  texts  * 
nombre  de  carac  teres)  ;  para  metre  3  =  0 

b)  en  longueur  sou  ha  i  tee  avec  cs  pace  men  t  plus  large  entre 
les  carac  teres  ;  para  metre  3  «■  longueur  positive  du  texte 
cn  pixels 

c)  cn  longueur  souhaitcc  avoc  espacemeni  plus  large  entre 
les  mots  ;  para  met  re  3  =  longueur  negative  du  texte  cn 
pixels. 

b' example  suivant  dev  rail  permettre  de  ntietix  com  prendre  cette 
instruction  : 


DEFFILL  ,2,1 

FBOX  a,n,03D,3SO 
DBF  TEXT  1,10,0.10 
FOR  |%^J  TO  4 

GRAHIMODE  1% 

TEXT  10,201  tSt-anATEXT  (normal)  GRAFHMOWK  "+STRS(l%) 
'TEXT  10,140+1% “30,(500," TEXT  (egp^c«m«nt  phta  targe  entre  les 
caracterep)  CKAPHMODE  "  iSTR$(I%) 

TEXT  10,S60+ 1%+ 30  ,-600,"  TEXT  (es  pace  merit  plus  large  vnCftfc  1«£ 
mots)  GRAFilMOPE  "*STfiS(l%) 

NEXT  1% 

U— lNi’(2} 

EDIT _ 
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GET  D,0,63G,40tUpmrmici 
GET  0,359 ,639 ,399 tDwrnnflinie$ 

•jtativtgftrdc  lea  tie  UK  rricrui?  Cf>nmt  image. 


Les  deux  images  de  menu  sont  alors  sauvegardecs  en  tant  qu1  images, 
a  pres  avoir  eie  elessiuees  pour  la  premiere  suite,  A  1'appet  do  menu 
principal.  11  s’ a  git  d' images  qui  peuvent  etre  affichees  facilement 
lors  de  cliaque  appel  du  menu,  a  faidc  de  la  houclc  PUT  deerite  au 
debut  de  la  procedure;  II  n’est  done  plus  necessuire  de  les  des- 
siner  a  nouveau. 

ffSET.PARAS 

1  La  procedure  8ETPARAS  pertrusC  de  remettre  le  programme  en  modes 
'graphiqu.es  definia  par  I'utilisatcur-  Ainti,  I 'appcl  du  menu  n'y 
'change  ritrit 

Mciistrtrtntvg?^  =  l 

‘Souvicns  to)  que  lc  menu  principal  a  deja  £tc  deesinc  ct  cue 
Tiinage  pout  done  eltfl  <itTich.ee  <i  lout  mo  me  ill. 

END1F 

REPEAT 

MOUSE  X.Y.K 

UNTIE  Lcn(IokeyJ)  OR  Mouse* 

■Rcpctc  ceste  boiicle  REPEAT. ..UNTIL  jusqu'fi  ce  qii’une  touche,  ioit. 
iIf  l»  Pcuris  soil  du  d&vi»r,  nit  Ole  enfoncCv,  Re  tic  it  a  atom 
la  position  de  la  eouria  «  I’ccat  des  bon  tone  de  la  Houria. 
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U2.II  I.cs  Imudes  cl  les  operations  arithmetic li cs 

REPEAT  /  UNTIL 

Syntaxe  : 

REPEAT 

!•«» 

UNTIL  condition 

La  boucle  REPEAT.X'NTU.  est  assc^.  inhabit  ucile  pour  les  different* 
interpieteurs  BASIC.  II  est  possible  dc  I’utihscr  si  le  nomhre  de 
passages  n'est  pas  determine  par  une  valeur  finale  (FOR. ..NEXT)  et 
s’il  y  en  a  au  meins  un. 

La  condition  de  sortie  tie  la  boucle  est  testae  en  fin  de  boucle. 
Cel  a  signifie  qu’il  v  i\  au  moins  un  passage  jusQu’a  la  condition 
definie  apres  UNTIL.  Cela  n'est  pas  le  cas,  si  un  test  dc  condition 
LXIT.JV.  a  rintcrieur  de  la  boucle.  emrame  la  reponse  ’vrai5 
(voir  chapitre  EX  IT...  IF  plus  loin). 

L' instruction  REP  EAT.. .UNTIL  peut  etre  ires  utile  pour  poser  des 
conditions  combine®!  d*  interruption  de  programme.  Atnsi,  il  est 
possible  d’mdkjuer  simultancmcnt.  comma  condition,  un  certain  elai 
du  clavier,  de  la  souris  ou  des  boutons  dc  la  sour  is,  un  conienu  do 
variables  et  une  valeur  finale  pour  la  sortie  de  boucle. 

Dctcrminons  les  conditions  suivantes  pour  I’ interruption  d'une 
boucle  R  E  PEAT  ...UNTIL  : 

bouton  droit  de  la  souris  en  fence  et  valeur  de  variable 
superieure  ft  1  00 
ou  touche  <ESC>  enfoncee 

ou  le  temps  ecoulc  entre  deux  appels  de  r  instruct  bn 
TIMER  est  superieur  a  2000. 
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La  structure  de  la  boucle  sera  it  alors  la  suivnnte  : 


T% -TIMER 
REPEAT 
INC  A% 

MOUSE  X.Y,K 
Key$~INKEY3 

KcyK»=ASC(LEFT^(K^yi))+ASC[RlGH'r|(K_ty1)) 

UNTIL  (K  2  AND  A%>1CJ<J}  OR  Key%-64  OR  TIMER -T5S>2CmO 
EDIT  _ 


Grace  nux  opciateurs  booleens  AND,  OR,  NOT,  NOR,  IMt*  et 
EQV,  il  est  done  possible  d'effeemer  tomes  les  combi  raisons  de 
condition  imaginable^  Afin  d’etudier  plus  a  fond  ces  possibilites, 
nous  vous  co nsei lions  de  vous  procurer  un  livre  traitant  uniquement 

ce  sujet. 

Le  conlenu  de  noire  boucle-exemple  sera  etudic  ci-aprcs. 


ASC  /  CHR$ 

Syntaxe : 

A  SC("ca  ia  c  teres" ) 

ASC(VarS) 

C1IR${  valour  ASCII) 

A  SC  cst  la  Fonction  complements  ire  tie  CHR.  Kile  retourne  le  code 
ASCII  (American  Standard  Code  for  Information  Interchange  -  code 
iimericain  pour  Peehnngc  de  r  information)  tfun  eanictere. 

Excmple  : 


Al-'D1* 

PRINT  A5C(A$1 


Sortie  :  68 
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A%— ASC^E" ) 

PRINT  A% _ _ 

Sortie  ;  69 

P HINT  ASP P* BASIC 


Sortie :  66 

Dans  ce  dernier  ca$,  le  code  ASCI!  n’est  retourne  due  pour  le 
premier  caractere  dc  la  chaine.  S'il  s’agit  d*une  chaine  vide,  la 
valour  rctournec  cst  0. 

1. ’instruction  CHR$  retourne  le  caractcre  dont  le  code  ASCII  cat 
indique. 

Example : 


A$=cim$(ee) 

PRINT  AS 


Sortie  :  D 


PRINT  CHR$ffe6l 

Sortie  :  II 

l,es  32  premiers  codes  ASCII  representent  <Ie$  carae  teres  dc  controls 
qui  ne  peuvent  done  pas  el  re  affichtis  par  I’instruction  CHKS. 
II  y  a,  au  total,  256  caracteres  ASCII  (0-255),  y  eoropris  les 
caractercs  dc  cent  role.  Vous  tmuverez,  en  annexe,  une  table  de 
correspondence  entre  Ics  caracteres  ct  I  curs  codes  ASCII. 


INC  /  DEC 

Syntaxe  : 

INC  VAR 
DEC  VAR 
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Ces  deux  instructions  anthnieliques  per  met  tent,  soil  d’auG.nientei 
Lit  valeur  I  (INC  -  increment),  soit  de  diminucr  de  la  valcur  I  (DEC 
-  decrement)  le  contenu  des  variables  numeriques.  11  n’est  pas  pos¬ 
sible  de  choisir  des  valours  plus  grandcs  que  I,  sans  utiliscr  une 
instruction  suppieincntaire  (voir  paragraphs  suivant). 

Excmple  : 


A%=lO 
INC  A% 
PRINT  A% 
DEC  A% 
DEC  A% 
PRINT  A% 


Sortie  : 
11 

9 


ADD  /  SUB  /  MU L  /  DfV 
Syntaxe  : 

ADD  Var,valcur  /  ADD  Var,Var 
SUB  Var, valour  /  SUB  Var,Var 
MUU  Var,  valcur  /  MUL  Var,  Var 
D1V  Var,  valeur  /  DIV  Var,Vai 

La  valour  cT increment  ou  de  decrement  des  instructions  INC  et 
DEC  peut  £tre  modifiee  grace  aux  instructions  "ADD  VAR ,  valeur" 
et  "SUB  VAR,  valeur".  On  peut  choisir  cgalcment,  coniine  valour, 
des  nombres  (positifs  et  negatifs)  &  virgule  Holt  ante, 

Exemple  : 


A~33 

ADD  A,I2-S6 
PR  TNT  A 
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SUB  A  ,'2  7.21 
PRINT  A 
SUB  A  >36 
PRINT, 

Sortie  : 


45.55 

7276 

36-7C 


LTinstruction  "MUL  var,valeur"  permci  de  multiplier  le  contcnu 
d'une  variable  par  unc  ccitainc  valcur.  L'instruclion  '*DIV 
var,valeui"  divise  le  conterui  d'une  variable  par  unc  cenaine 
valcur,  Ne  confonriez  pas  eette  instruction  avec  I’ instruction  DIV 
dc  la  division  entiere  qui  represente,  commc  ‘V\  "J\  *7\  "*"n 
un  operateur  arithmetique  dans  les  for  mules  dc  calcul, 

Le  grand  a  vantage  des  Functions  arilhmctiqucs  reside  dans  kur 
vitessc  i! 'execution.  La  vitesse  pent  ctrc  augmented  de  30%  (dans 
l’exemple  de  MUL  et  DIV)  a  100%  (dans  Pcxemple  de  ADD  ct  SUB) 
par  rapport  aux  instructions  correspondent  cs  (Vnr*Vnr  4-*/  valeur). 


WHILE  /  WEND 
Syntax?  ; 

WHILE  condition 
WEND 

Une  autre  posslbil  itev  la  boucle  WH1LE...WEND-,  a  le  grand  a  vantage 
de  pouvoir  tester  la  condition  dc  sortie  en  debut  de  bouclc.  U  est 
runsi  possible  quo  le  programme  entre  dans  la  bouclc,  mais  il 
continue  im  media  lenient  a  pres  1*  instruct  ion  correspondante  WEND, 
Ceci  sc  produit  quand  la  condition  d'interruption  de  WHILE  est 
deja  remplie,  au  moment  ou  le  programme  entre  dans  la  bolide. 
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Kxemple  : 


ENTER: 

A%=RANDOM(lOO) 

BSC-32*  12.5+  INT(A&/.66) 
WHILE  BS6<440 
INC'  BSC 
PRINT  &% 

WEND 

PRINT  “S^rtir  de  la  Louder 
PAUSE  20 

CiOTO  ENTER _ 


DO  /  LOOP 

Syntaxe : 

DO 

41* 

LOOP 

II  s'agit  d’une  boucle  sans  condition  d'inton  upiion,  Die  est  done 
puTOOurue  jusquTi  ec  tjue  le  programme  rencontre  d'antrcs  ins  true- 
lions  d1  interrupt  ion  (END,  EDIT*  STOP,  EXIT  IP)  ou  V  instruct  ion 
tie  sunt  GOTO.  Une  imlre  fagon  il'iniorronipre  le  programme  est 
Paction  simultancc  stir  les  touches  <CONTROL>,  *S1IiFT>  clt 
<ALTFRNATE>.  Si  aucune  des  interruptions  {teenies  cinlcssus 
n'mtcrvicnt,  la  panic  du  programme  qui  se  trouve  enlre  DO  el 
LOOP  est  repetee  a  I'infinL 

Exemple : 

DO 

print 

LOOP  _ _ 


-  146  - 


L'  ah  c  du  GfA 


EXIT  IT 
Syrnaxe  : 

EXIT  IT  condition 

1/ instruct  ion  EXIT  IF  a  T  inter  ieur  des  boueles  KOK...NEXT, 
DO...LOOP,  REPEA  T...UNT1L  et  WMILE...WEND  est  une  fonction 
specialc  tres  utile  permettant  de  sortir  du  bloc  dc  programme 
con  tom:  dans  one  bottcle. 

Celle  instruction  permcl  de  sortir  de  la  boucle,  independ  eminent 
de  son  etai,  si  la  condition  posee  par  EXIT  IT  est  compile.  Ee 
dcroulemem  du  programme  se  pours  nil  a  lors  a  la  premiere  instruc¬ 
tion  on  dehors  de  la  boucle. 

Exemplc  : 

ENTER: 

REPEAT 

RAND  OM{  1O0) 

PRINT  A% 

MOUSE  XXButton^ 

EXIT  IP  Buttons -1 
UNTIL  A%-F»0 
PRINT  “Sortir  de-  ia  boucle" 

IF  A%=50 

PR1CT  "Vftleur  finale  "  ,A%;"  alxetnte  P 
ELSE 

PRINT  rA%  -c>  50'1 
ENPIF 
PAUSE  40 

_ GOTO  ENTER. _ „ _ _ _ 

Si  vous  appuyez,  pendant  (’execution  du  programme,  sur  la  touche 
gauche  de  la  sour  is,  il  sort  de  la  boucle  i  ndependeinmeni  de  la 
condition  posee. 
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TIMER 
Syntaxe  : 

TIMER 

L’ATARI  ST  dispose  d*un  ehronometrc  marchant  par  pas  de  1/200 
de  seconde,  Lors  de  la  mise  sous  tension  de  [’ordinal eur,  ce 
chronometre  commence  a  0  et  augmcnte  de  la  valour  200  pour  cba- 
quc  second e  ecoulee.  Ft  cst  peu  important  qu'il  y  ail  ou  non  des 
manipulations.  Le  chronometrc  s’orientc  a  la  frequence  du  pro- 
cesseur, 

Grace  an  chronomfctre,  il  est  done  possible  de  con  nail  re  le  taps  du 
temps  ecoule  dopuis  Sa  mise  sous  tension  de  fordinateur.  Dc  plus 
il  permet  d'cffoccucr  des  iravaux  en  fonction  d'une  certnine  durce 
ou  de  les  chronomclrcr  (tests  Benchmark). 

Exempt  e  : 


Timc=TlME» 

DO 

X%= (Timer  -Time} /2C 
T_inns  | =ST  R$  (X  %) 

T_ime*=STRlNO$(6~LEN(T_iroe*)l,,(r)+T_iine$ 
PRINT  AT(32,ll);T_in»S 
EXIT  IP  INKEYlO™  OR  MOUSEK 
LOOP 

PRINT  TIMER/200/60 
U=INP(2) 

EDIT 


Ce  petit  programme  indique  par  |>as  de  1/10  de  secondcs  le  temps 
ecoule  depuis  le  lancement  du  programme.  A  pres  Pen  fence  men  t  d’une 
touche  quelconque,  il  affiche  en  minutes  le  temps  ecoule  depuis  la 
mise  sous  tension  de  Eordinatcur. 
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TIMES  /  DATES 


Syntaxe : 


TIMES 

DATES 

]|  existe  encore  deux  autres  functions  de  temps  err  BASIC  Of  A. 
Comme  vous  te  save?,  sans  dome,  il  est  possible  d'entrer  dans  le 
tableau  de  conlrole  du  desktop  la  date  et  I’heure  aeiueiles,  Ces 
deux  indications  sont  constamment  mises  a  jour  par  le  systeme.  Si 
vous  n'avcz  pas  fait  de  modi  fieri  lions  imornes,  la  dale  et  i’heure 
de  la  version  du  TOS  actuellement  utilisce  sont  afftchees  ici, 

Un  programme  en  BASIC  permet  d’obtenir  a  tout  moment  ces  deux 
informations. 

L/i ns l ruction  TIMES  permet  d’obtenir  Theure  actuelle  sous  le 
format  suivant  : 

* 

lib:  nun  :ss. 

La  fonction  DATES  reiournc  la  date  actuefle  sous  le  format 
suivant  : 

jj.nun.aaaa. 


Les  seconder  de  I'instiuction  TIMES  augmentem  par  pas  de  2. 
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SETT!  ME 


Syntaxc  : 

S  ETT I M  E  c  i  mcstr  i  ng.datestri ng 

A  quui  pi;ut  elm  utile  la  plus  belle  date  et  la  plus  belle  heure, 
s'il  n’est  pas  possible  cTy  acceder  a  parlir  du  programme  et  tie  les 
modifier. 

Pour  faire  ccla,  on  dispose  de  1’ instruction  SETTIME  "hh:mm:ssH, 
‘'jj.mm.aaaa*'.  Cette  instruction  attend  les  para  met  res  de  Pheure  et 
de  la  date  aetuolles  sous  le  format  correspondent,  separes  entre 
eux  par  des  virgules.  L* indication  ties  secondes  est  facultative.  11 
on  est  de  mfime  pour  les  deux  premiers  ch  iff  res  de  fannee.  si  elle 
est  comprise  cnlrc  1980  et  2079. 
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Si  ics  parametrcs  scat  indiques  sous  un  format  incorrect,  Pinter-* 


teres  de  la  date,  les  guillemets  peuvent  dispa ra it rc\  rinterpre- 
tcur  ctnnt  capable  de  les  met t re  lui-mfime. 

Kxemple  : 


modi  fie  les  deux  indications 
nc  modi  fie  que  la  date 
me  modifie  quo  l' hen  re 


Seen  me  “1 5:37",“  15.08.86 
Set  time  *",4.6.83 
Settime  "!  7:4  5:22", 


Voiei  une  petite  routine  concerns m  les  trois  derniercs  fond  ions. 
Vous  pouvez  utilises  cette  routine,  ou  le  cas  echeant,  une  version 
modified  pour  vus  propres  programmes. 


(gTimcacC 

CLS 

DBFFIIX  ,2,4 
PBOX  200,100,440,300 

defViix  ,0,0 

FBOX  220,120, 120,230 
PRINT  AT{3G ,  12  )  ;D  ATE  $ 

PRINT  AT (3<U3),0.*>’$ 

REPEAT 

PRINT  AT(S6,14);TiMB$ 

UNTIL  Li:N[!NKEY$) 

EDIT 

PROCEDURE  T  inwet 

PRINT  AT(7,lI),"£(itrer  I'heun,  lb  date  el  le  jour  de-  la 
eemaino" 

PRINT  AT(7(12),*'  (  par  ex.  15:36:22, IS. 7. K<>,vendr(rdi  )" 

PRINT  AT(7,13),"  (  3  *  > RETURN <  -  DEFAULT  )m 

PRINT  AT(7,I4)," 

INPUT  T.itnd,D.i»kt,D,it>,$ 

IP  D.ny$— 

D, ?*>>♦=" A  N  Y  D  A  Y" 

END  IP 

SETTIME  TimelD-ate* 

RETURN 
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LEN 
Syntaxe : 

LEN(Var$) 

LLN^texte") 

LEN  {expression  de  chaine  de  caracteres) 

La  fonction  Lcn(  VarS)  retourne  la  longueur  de  la  variable,  ou  de 
P express  ion  de  chaine  de  came  teres  indkjuee  entre  parentheses,  IE 
est  possible  de  Eutiliser  di  recrement  (PRINT  LTN(VaiS)  on  de 
Paf  feeler  a  une  variable  numerique.  II  s'agit,  en  general,  d'une 
variable  entierc  parcc  que  LEN  nc  pern  representer  une  valeur 
fractionnaire  {A^i=LEN(Var$),  Une  autre  fa^on  d' utilizer  I*  ins¬ 
truction  LEN  se  trouve  dans  le  program  me  -exempt  e  du  paragraphe 
TIMER. 


INKEYS 

r 

Syntaxe  : 


a$=inkey$ 

PRINT  IN  KEYS 

RIGHTS<  INKEYS)  /  l.EFTSONK  KYS) 

IF  LEN  INKEYS 
WHILE  IN  KEYS 
UNTIL  INK  EYS 
IP  INKEYS 

EXIT  IF  LFN(INKEYS) 
etc.,. 

Un  BASIC  sans  instruction  INK  TVS  (ou  fonction  comparable)  ? 

Ccla  a  deja  cxiste.  Ceux  qui  ont  travaille  avec  le  BASIC  SI* 
savent  de  quoi  je  parlc.  Mais  ce  probleme  n’exisie  plus. 

I  .'instruction  INK  KYS  ne  retourne  pas  seulcmcru  le  con  ten  u  des 
touches  "normalcs",  mais  aussi  celui  des  touches  specialty  (par  ex. 
Fl-FIOt  bloc  du  curseur). 
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En  outre,  presque  toutes  les  combinaisons  dcs  touches  <CONTRCL>, 
<SIIIFT>  et  <ALTERNATE>  avec  d’autres  touches  sent  en  registries. 
Griice  a  une  combinaison  avec  <SHIFT>,  i!  est  alors  possible  de 
representer  deux  fois  les  touches  de  fonctiom  La  fonci ion  passe 
a  un  mode  different  aussitOt  que  des  touches  speciales  ou  les 
combi  naisons  de  touchy  correspondantes  sont  appuytes.  Normalement, 
une  chaine  d'un  seul  caractere  est  retournee  contenant  le  caraeterc 
ASCII  de  la  touche  en  question. 

Tour  les  touches  spec  isles*  on  obtient  une  chaine  de  deux  carac- 
teres.  Le  premier  octet  de  cette  chaine  a  toujours  le  code  ASCII  0. 
Le  deuxieme  contient  egalement  un  code  ASCII,  mats  sans  lien 
direct  avec  les  caracteres,  Ce  code  est  defini  dans  une  mat  rice 
interne  d’identification  de  touches  et  s’appelle  ’scan  code1.  I] 
per  met  de  trouver  toutes  les  touches  du  clavier  et  d1  identifier 
toutes  les  combi naisons  de  touches.  Comtne  pour  le  desktop,  vous 
pouvez,  par  exemple,  deplacer  le  curseur  dc  la  souris  vcrtica lenient 
et  horizontalement  au  pas  de  S  pixels,  sans  utiliser  la  souris 
elle-meme.  Ceci  est  possible  en  employant,  lors  d’une  instruction 
INK  EYS,  simultanement  la  touche  <ALTERNATE>  et  une  dcs  quatre 
touches  de  fleche.  Vous  verrez  que  le  curseur  de  la  souris  se 
displace  sur  Pecran  scion  la  touche  de  fleche  utilises.  Voici  un 
petit  programme  pour  etudier  le  contenu  ties  differentes  touches  : 


DO 

REPEAT 

KEYS- INKEY  t 
UNTIL  KE  ¥$>*"* 

IF  LBN(KEYS)— I 

PRINT  KEY$’"ASC(KEY$) 

ELSE 

PRINT  "Cock-  tsptcM  ";ASC(niGHTS(KEY$)) 

END  IF 

LOOP _ _ _ _ 

U  peut  y  avoir  quand-meme  un  petit  problCme.  Le  tampon  a  la 
particular Ue  desagreable  de  se  souvenir  dcs  touches  enfoncees.  De 
toutes  les  touches  enfoncees  ! 
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Mem  .index%=D 

*Une  vari&ble-^ompfcetir  eet  affects  h  "Tinny1’.  Afm  d'eviter  des 
dogate  lore  d'une  procbairje  utilisation,  elle  doit  etre  remise  & 
‘riro. 

ERASE  Mir.roem3() 

RETURN 

PROCEDURE  Tinny 
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En  BASIC  GfA,  cela  donne  la  chose  suivante  : 


REPEAT 

A$~INKEYS 
UNTIL  A$-“b' 


i,e  programme,  pern  ainsi  verifier  tpi'unc  centime  louche  (id  :  b)  a 
bien  ete  enfoncee.  Si  Ton  a  appuye  sur  une  autre  touche,  il  reste 
i\  Pi  tiler  ieur  de  la  bouclc  cfattcme. 


3.2.12  A ji pel  de  la  souris 

MOUSE 


Synlaxe : 


MO  USE  X  v  a  r%  ,Y  vn  r% ,  K  var% 

m 

Grace  a  cettc  instruction,  il  cst  possible  d'affccter  les  etnts 
instant anes  de  la  souris  a  des  variables  facultativcs. 

X. var'Ki  contient  la  position  instantanee  X  du  curseur  de  la  souris, 

Y. var%  la  position  mstantauee  Y  ct  K.var%  Petal  instaniane  ties 
touches  de  la  souris. 

Les  dilTerenrs  elats  des  (ouches  de  la  souris  pen  vent  6tre  : 

0  aucune  touche  n’est  enfoncee 

1  la  touche  gauche  esl  enfoncee 

2  la  touche  droite  est  enfoncee 

3  les  deux  touches  soot  enfoncees 

Exemple  : 


REPEAT 

MOUSE  X%kY%,K?S 

PRINT  AT( 37.12) |X5C-,,Y%‘,K96r . * 

UNTIL  X%i~Q  Ami  Y%=0 _ 
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MQUSBX 
Syninxt? : 

MOUSEX 

L1  instruction  MO  US  EX  affecte  la  position  inStanlanee  X  du  curseur 
de  la  souris  ( X% = MOU SEX ) . 


MOUSEY 


Syntnxe : 

MOUSEY 

II  en  cst  de  me  me  pom  la  position  instantanee  Y  du  curseur  de  la 
souris  (Y%=MOUSEY). 


MOUSEK 
Syntaxe : 

MOUSEK 

11  en  est  de  meme  pour  Fetal  instantane  des  touches  de  la  souris 
f  K%-Mousck). 

I.a  presente  function  pent  encore  elre  utilisee  d'une  autre  facon. 
De  m£me  que  F  instruct  ion  IN  KEYS  en  combi  naison  avec  LCN 
(pur  ex.  EXIT  IF  LEN(iNKEY$))  n'a  d'effet  que  si  le  contenu 
de  la  memoire  IN  KEYS  est  super  ieur  a  zero,  il  est  possible 
que  I1  instruction  MOUSEK  (par  ex.  EXIT  IE  MOUSEK)  ne  soil 
prise  en  compte  qu’apres  avoir  enfonce  une  ou  les  deux  touches  de 
la  souris.  Si  done,  aucune  des  deux  touches  de  la  souris  n'est 
enfoncee,  le  programme  exemple  suivant  reste  a  E  inter  ieur  de  la 
bo  uc  I  e. 
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REPEAT 
WTIL  MOUSEK 


Ypo&fS^  — 0 


‘Pour  cl  re  (Or  de  ne  paa  d£elcnchcr  dee  fonct-ioim  de  irirmi  non 
’eouhnitee#,  il  faut  rrmettre  ) 'indice  4  tvro. 

IP  Y>2  AND  Y<3tS 
Ypos%“I 

ENPIF 

'Si,  lora  de  feroptoi  dcs  touches  de  la  sourifl,  le  turueur  so 
'trouve  uni  re  la  ligne  de  pixel*  2  et  la  ligne  dc  pixels  36  (menu 
’cupdrieiir)  nets  L’imlice  vertical  k  1. 

IF  Ypos9£=l 

Xpos%= I  NT  { X  /  80)  +•  1 

w 

'Caknlc  cm  suite  l 'indice  horizontal  du  tabJenn  du  menu  aiipirkuT 
'dam  Icqud  so  irouve  le  curaeur  de  la  sourb. 


3.2.13  I  ■C5  f  dictions  numcriqties 


/AT 

Syntaxe : 

JNT(valeur) 

L'instruction  1NT  permet  de  reduire  la  valeur  indiquee  entre 
parentheses  an  nombre  eotier  plus  petit.  Cda  signifie  que  tons  les 
chiffrcs  a  pres  la  virgule  sent  integres. 
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Exemple ; 


[ PRINT  INTC2.621T 

Sortie :  2 


PRINT  ttT  -13.759)  _ _ '  _ I 

Sortie  :  -14 

Afin  d'arrondir  corrcctement  le  nombre  a  affccter*  il  faut  y  ajou- 
ler  la  valeur  0*5.  Un  entier  doit  done  fetre  arrondi  a  la  valeur 
inferieure,  si  les  ch  iff  res  a  pres  la  virgule  sont  infer  i  curs  a  0.5, 
el  a  la  valeur  superieure  si  les  chiffres  apres  la  virgule  sont  su¬ 
per  icurs  ou  egaux  &  0.5. 


TRUNC 
tfyniaxe : 

T 'RUNC(  valeur) 

Pour  les  valours  positives,  la  fonction  TRUNC  est  identique  a 
I  NT.  Commc  pour  la  fonction  INT,  TRUNC  reduit  &  sa  panic 
entifere  la  valeur  indiquee  entre  parentheses. 

La  difference  apparalt  pour  les  valeurs  negative.  TRUNC  retourne 
alors  le  nombre  enlier  en  faisant  disparaitre  tout  simplement  les 
chiffres  si  Lues  apres  la  virgule  land  is  que  INT  les  integrent  dans 
rentier  inferieur  (voir  excmple  2  dans  le  paragraphe  INT). 

Kxemplc : 


PRINT  TKUNC(  2.5211 


Sortie :  2 
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PRINT  TRUNCF  13.759 

_ 1 

Sortie  :  -13 


FIX 


Syntax© : 

FlX(valeur) 

La  fonction  FIX  est  rigoureusement  klentique  a  la  function  I'RUNC 
(pour  dcs  explications*  se  reporter  au  paragraph©  TRUNC). 


FRAC 
Syntax©  : 

FRAC(valeur) 

FRAC  est  la  fonction  complements  ire  de  FIX  et  tie  TRUNC*  El  Ic 
ne  reiourne  que  la  valeur  situee  apres  la  virgule,  Cette  partic 
s’appelle  aussi  la  partie  fractionnaire.  La  partie  enticre  de  la 
valeur  est  alors  ignore©. 


IF  Xpc?^=J 
(TO  Fin 
EXDIF 


'S’il  ac  trouve  dnn.fi  QUIT,  (ermine  le  programme  p,v  In  procid'iinr 
'"Fin" 


IF  Xpoe%^2 
PAUSE  10 
^Sec.inite 
END  IF 
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'S'il  sc  trouve  dcs  Inite,  va  au  sous-menu  correspond  ant. 
'Comm*  le  menu  est  referme  pour  Set  .mite  lots  de  1 'utilisation 
'tie  la  Eouns,  il  fnut  (eirc  ici  line  petite  pause  pour  s' assurer 
'qur  la  touche  <k*  la  aouris  nit  £tc  rdacbee  en  arrivant  & 

'SET.  in  its. 

IF  Xpo«%— 3 
an:  flip 
^Starter 
jgP.utflip 
END  IF 


‘Si  Ikiite  a  cliqu^e,  actualize  la  pftgc-lartm  et  rotournc  4 
'1' edit  cur.  Superpose  cetui-ci  par  la  page-4cran  actudle,  «ut  fols 
'lemiiiic. 

IF  Xpos%=4 
^Cinema 
GOTO  M-enuout 

E%'DIF 

*Si  Cln6  a  £t£  cliquie,  va  au  ecus -pro gnuntn?  correapondimt.  II  faut 
'inseter  ici  une  instruction  GOTO  pouf  aartir  da  ia  bolide  du  menu 
'car  le  nom  de  vaiiable  "Xpos%B  «xiste  eg  element  ditna  Cini,  et  » 
'valour  pourrait  done  appcler  une  option  de  menu  non  Bouhatt6«u 

IF  XposK-B 
PAUSE  10 
<g<SET. specials 
END  IF 


JSi  Spcei  a  etc  clique,  fait  une  petite  pause  (comme  pour 
1 1 'opt  ion  "In  its")  puis  va  au  sous-menu  correspondent 


PAUSE 
Syniaxe : 

PAUSH  duree 
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Ls instruction  PAUSE  permet,  a  n'importe  quel  endroit  du  pro¬ 
gramme,  rie  determiner  de  fagon  exacle  la  duree  de  la  pause. 

Les  ordinateurs  16  bits  ne  presented  plus  V inconvenient  d’etre 
lents  et  de  creer  des  pauses  (comme  c’est  le  cas  pour  Ics  ordina- 
teurs  8  bits,  par  example),  lls  sont,  par  centre,  tel  lenient  rap  ides 
que  Ton  doit  leur  imposer  de  temps  en  temps  une  petite  pause  pour 
pouvoir  contrdler  encore  certains  deroulements  de  programmes. 

Un  nombre  entier  d’une  valeur  maximum  de  2147483647  est  affecte 
a  I* instruction  Pause.  II  est  6galcmem  possible  d’nffeeter  des 
valeurs  negatives,  mais  on  peut  douter  de  I -existence  de  pauses 
negatives.  L’interpreteur  les  ignore  tout  simplement.  Une  pause 
nulie  est  fade.  De  toute  fagon,  l’ordinateur  tie  deviendra  pas  plus 
rapide  pour  cela. 

Fades  vos  cssais  en  entrant  la  valeur  maximum.  Si  vous  n’inter- 
rompez  pas  ensuite  le  programme  par  Femploi  des  touches  <RESET> 
ou  <COMTROL>,<SHIFT>  et  <AL TERNATE>,  voir©  ordinaleur  ne 
sera  pas  disponible  avant  15  mois.  Mais  nous  ne  lui  rendrons 
pas  cc  service. 


IP  Xpofl%=6 
t&F.lipfiemce 
END  IF 


'Option  Flips  dn  menu  principal.  Va  a  In  routine  glrant  In 
'patent  ion  tl'un  «crstn  A  1'fiutre. 


IF  Xpoe^-7 
faiDisk.OPB 
ENDIF 

'Option  Dinky  du  menu  principal.  Va  ait  sous -menu  gcront 
les  op*  ratio  he  sur  disqueUe. 

IF 
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'Option  "Prim"  dti  m*rm  principal  a  cliquee. 


ALERT  2*“Qnc]le  pngc-lcran  votiltz  vonflfmprimer?|(lrf  can  eclimnt, 
adaptation  de  fimprunante  gi-See  4  I'acctssoire  du| 
doektop)-  ,3,-ECHAN  1  |ECRAN2|FIN"  .Ddddd 

ALERT 

Syntaxc : 

A  LERT  I  c6n  e,"  T  ext  |T  ex  t”  J)cf a  u  1 1 ButtonlButton" ,  V  ar% 

Var  1  S^BoxtextlRoxiextlRoxtcxtlBoxtcxt" 

V  ar2$^'  Bu  t  lonJHu  1 1  on  j  B  utlon" 

ALERT  leone, Var  1 S .Detail lt,Var2£,Var% 

Cette  fonction  sous  GEM  permet  k  I'utilisatctir  une  communication 
sans  problcme.  En  principe,  elle  favorise  memc  la  gestion  de  menus 
volumineux,  Comme  il  n’y  a  que  trois  possibility  de  choix  en 
ALERT,  cette  instruction  sert  pluiot  pour  les  petits  tests.  En 
outre,  eitc  peut  etre  utilises  pour  la  mi  so  en  place  d’une  Unite 
dedications  on  d'alarme. 

Comme  cette  instruction  cent  lent  de  nombreuscs  variables,  la  syn- 
taxe  ei  les  effets  different  des  parametres  seront  etudies  par  la 
suite.. 

Syntax©  : 

ALERT,  lcdne.Boxtext$.Default-Button,ButtDmext$,Baekvar% 

[/instruction  ALERT  se  compose  done  de  cinq  elements  dilTerents  : 

f )  I’icottc  :  H  esl  possible  de  representer  trois  dilTerents  sym- 
bnlcs  damages  : 

0  aucun  synibole 
1  point  declamation 


I 
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2  point  <T interrogation 

3  parmeau  STOP 

2)  boxtexi  ;  Ici,  le  vrai  texte  (information/question)  est  affects 
a  la  fonetion.  Le  caractere  "I"  sen  &  separer  les  differentes 
lignes.  II  est  possible  de  representcr  an  total  4  lignes  de  texte 
de  30  caracteres  chacunc.  Le  texte  peut  at  re  insere  apres 
^instruction  ou  bicn  represente  par  une  variable  de  chalne  de 
caracteres. 

3)  button  :  Le  numcro  (1 ,2 ,3)  du  bouton  est  indique  et  valide  soil 
par  un  cliquage  de  la  souris,  soit  par  la  touche  <RETURN>  (a 
dcfaut).  Ce  bouton  est  represente  par  un  epais  contour.  0  a  pour 
consequence  qu’il  n’y  a  pas  de  touche  prise  &  defaut.  l.e/les 
bouton(s)  doivent  alors  Sire  valide(s)  grice  a  un  cliquage  do  la 
souris. 

4)  button  text  ;  11  contieni  le  texte  relatif  &  chuque  bouton. 
Cheque  message  est  limits  a  S  caractcres.  Les  boutons  sont,  comme 
preced&nment,  scares  par  le  caractere  "I". 

5 )  baekvar  ;  A  la  fin,  une  variable  numerique  de  nom  quelconque, 
contenant  le  numero  du  bouton  validfc  (1,2,3),  est  indiquee. 

Exemple : 


B_oxt*Xt$~nClique*  tine  dea  petites|boftO!i  ci-dwotia,  flvp  I” 
oxt  ext  $  “8  ©xt  ex  fc  3  4* "  l Je  voue  dirai  de  taqueUe|i! 
fl'agiaBEkit  I" 

Buttontext$~’'XX  l  XXiXX  2  XXfXX  S  XX" 

ALERT  13  oxtext$  ,0  ,B  uttonEextt 

B_oxlext$=,,ll  a'ftffiafl&ie  :  |de  ta  petite  bottc 

-4-STRS(Backvat%) 

ButtontoxtJ— 11  OKAY  |  OKAY  1  OKAY  " 

ALERT  1 ,  B__ox  textS  ,2  jRuttonttxt  $  ,BackvarS6 

EDIT _ _ _ 
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❖,  Cliquez  sur  une  des  petites 
boites  ci-dtssous,  svp  ! 

Je  vous  dirai  de  laquellc 
il  s'agissait  ! 


I XX  1  XXI  I XX  2  XXI  I XX  3  XX 


Pour  dcs  raisons  de  securitc,  le  formal  de  la  bone  d’alarmc  ne 
peut  varier  beaucoup.  L’interpreteur  vcrifie  la  rtjeevabilite  de 
toules  les  entrees.  Si,  par  cxemple,  plus  de  30  caracteres  dc  texte 
dc  boiie  sorst  indiques,  1“  interpreleu  r  tronejne  le  texte  a  pres  le 
30icme  caractere. 

Celui  qui  connali  la  boite  d’alarme  sous  GEM  coinprendra  bien  ces 
mesures  de  securite.  Vous  trouverez  cependant,  dans  le  listing,  une 
routine  s’appelant  “PROCEDURE  FORM  ALERT11  qui  petit  etre 
definie  comme  on  le  souhaite.  Le  systeme,  par  contre>  ne  tiendra 
pas  compte  des  entrees  crronecs  ou  dcs  lextes  trop  longs.  Si  le 
texte  de  cette  ’'vraie"  boite  d’alarme  sous  GEM  est  trop  long,  le 
systenie  se  plante  tout  ^implement.  Meme  Pinterpretcur  iPcst  alors 
plus  capable  dc  Pen  empecher. 

Digital  Research  a  dcfini  on  maximum  de  5  lignes  d'une  longueur 
de  40  caracteres  chacune,  et  une  longueur  de  texte  de  10  carac¬ 
teres  pour  chacun  des  trots  boutons.  En  appuyam  sur  la  touche 
<ilLLP>  a  Pinterieur  du  programme  graph ique,  vous  verrez  une 
representation  dc  la  boite  d’alarme. 
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IF  Ddddd<3 

ALERT  2,** Appel  des  EteceaEoireE?  ",1,“  OKAY  |  NON  ",B, alerts 

'Si,  ft  let  boite  d’idorme,  ee-t  repond u  OKAY,  vn  A  In  routine 
*dJappel  dee  access oi res  du  desktop 

IF  B.alert9S=l 
PAUSE  20 
@>P.  tit  flip 
^Accessory 
END1F 

If  Q_uitter$^{o)^I 

'Si  "N  O  W11  a  4(4  cliqu4e  en  ehoUtssanfc  {’option  Accessory, 

’tfort  ie  con ten U  da  la  page-gcran 

IF  Ddddd~l 
Flipp.flng$£=0 
END  IF 

* 

’Si  "Screen  1"  a  ate  clique,  mefca  le  flag  de  geation  de 
’Scree  nflipping  ft  C. 

IF  Ddddd-2 
Flipp.ftng%=l 
ENDIF 

'll  en  ost  de  mime  pour  le  "Screen  2". 

^P.utflip 

‘a  HI  cite  la  page -4c  ran  dhoiste 
gllidemouBB 

'eteints  In  souria  pour  qu'elle  ne  soil  pas  irnprimee 

HARDCOPY 

"imp  rime  la  page-icran 
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HARDCOPY 
Syntaxe : 

HARDCOPY 

L’  instruct  ion  HARDCOPY  provoque  le  meme  effet  que  Paction 
simultanee  $ur  les  touchy  <ALTERNATE>  et  <HELP>.  Le  con  ten  u 
acted  de  Pec  ran  est  transfere  sur  imprimantc.  Si  elle  n’est  pas 
’on-line’ ,  c’est4-dire  pas  miss  sous  tension  ou  m£me  pas  branchee, 
le  programme  reprend  la  main  au  bout  de  30  seeondes  environ* 


^Showmouse 

Tim  I  llemefcs  Jb  soutU  an  marc  he. 

ENDtF 

ENDIP 

EncHf 

ENDIF 

M.eiHioufc: 

(jpScneniwi 

IP  Flip.done%-l  AND  Mc.dorw%=0  AND  Area6%=l 

’Si  MOVE  on  COPY  ont  £te  chotwea  (Ar4ft*96=l),  le  flag  actif 
'Flipping  est  mil  (done  Flips  clique  — >  Fiip,done^=1),  nrmi«  le 
'bloc  cbcjiei  n'a  pas  encore  et-e  mnrq u4,  c«ttc  condition  est 
'vr«o. 

IP  M.ovh%=J 

*si  MOVE  a  etc  choiiie.,. 

SWAP  M.ove%,C,opy% 

d  change  flag  MOVE  contra  flag  COPY  pour  que  la  p&rtic 
'chditit  sur  la  page -Strati  ne  soit  p&e  effaces.  A  partir  d’ici, 
'votifl  en  mode  COPY. 
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SWAP 

Syntaxe ; 

SWAP  Varl  ,Var2 
SWAP  Varl$,Var2$ 

SWAP  VarI%,Var2% 

SWAP  nom  de  tableau]  ()»nom  de  tableau2{) 

Lf instruction  SWAP  permet  d’ecfaanger  les  contenus  de  variables  de 
mfime  type.  I)  est  possible  d’effectuer  ces  operations  d’echange, 
aussi  bien  pour  les  variables  numeriques  (tous  le  types  differents) 
que  pour  les  variables  alpha  numiriques  (chafnes  de  caracteres), 
S'il  s’agit  d'un  eehange  de  contenus  de  tableaux,  les  dimensions 
sent  cgalcment  6changees. 

Hxemple : 


DIM  A%(3)lAi(l),Attt4),Bb(0) 

ARRAY  FILL  A  >0,16 

ARRAYFILL  Bb(),ll.T 

A%~10 

B%=32 

Al=-1 

Bl=0 

A-37.66 

B=  123,5 

A%(2)=U4 

A%(S)=S16 

AS-’ABC" 

B*=*DEF" 

A*(l)=wGHl" 

At(0)=nJKL" 

SWAP  A«0,Bb() 

SWAP 
SWAP  A1.B1 
SWAP  A,B 
SWAP  A%(3)tA%(3) 

SWAP  A$,B| 

SWAP  A%(l),A%(*>) _ 
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PRINT  An(3)  ,»*>(«) 

PRINT  A%&% 

PRINT  Al.Bl 

PRINT  AJB 

PRINT 

PRINT  AI,B* 

PRINT  At(l) 

PRINT  MM 

S.wapper%=  L 

‘Souvium-toi  quo  l«»  flags  ont  eti  £chfing£a 

ENDIF 

@Sct  areas 

’Retourne  a  la  routine  dee  operations  do  bloc  gr&co  &  Copy  On 

END  IF' 

If  Const  ,flag%— 1 
Conat-flag^  =0 
@Sct.  const 

’Si  Reticule  Fix  a  6t£  clique^,  remote  Hag  Setting 

'&  taro  at  ret  our  ne  o  la  routine  determinant  la  coord  on  nee  du 
'point  d 'intersection 

ENDIF 

IF  CHpp.&et%=l 
ClippMiSS-0 

(©Set  .clipping 

*Si  "mettre  Clipping"  a  c-liquSe,  remete  flag  Setting 

Jk  i£ro  at  retoume  a  ta  routine  determinant  3a  boite  CLIPPING 


ENDIF 

ftiGctfkcyu 
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"Vs  &  la  routine  principle  do  tcet  de  mouria  et  de  clavier 
RETURN 

PROCEDURE  Screened 

'Void  une  routine  astucieuse.  Si  vom  loinsea  tourner  le 
‘programme,  il  y  at  apria  cheque  appel  du  menu  principal,  une 
'alternance  irrcgaliere  entrc  une  page-icrnn  entiire  cfc  ima  puge- 
’6c.ran  nctuelle  constitute  de  quatre  differentia  morccaux.  En  void 
'la  routine. 

CLS 

'Tout  d’nbord  I'tcrim  o?l  effrtcg  pour  que  I'astucq  puisne  »voir 
'lout  eon  effel. 


CLS 

Syntaxe : 

CLS 

il  n’y  a  pas  grand -chose  h  rajouter  a  cette  instruction.  II  cst 
possible  de  (’uti)iser  a  n1  import  e  quel  endroit  du  programme.  Ellc 
entrain©  feffa  cement  de  Tecran  (CLecirScreen)  et  place  le  curseur 
du  TOS  dans  le  coin  superieur  gauche  de  l’ecran  (position  HOME). 
L* instruction  CLS  peut  egalement  6tre  utilises  en  mode  direct. 

iinttard%=RANDCM{2) 


'retourne  un  n  ombre  nlcatoire  cocnpris  entre  -1  et  £. 
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3.2,14  Les  nombres  nlcatoires 


RANDOM 
Syniaxe  : 

R  A  NDOM(  valeur  entiere) 

L’instruction  RANDOM  retourne  un  nombre  aleatoirc  compris  entre 
-1  (done  0  au  minimum)  et  la  valeur  entiere  indiejuee  entre  paren- 
theses*  si  cette  valeur  est  positive  et  si  elle  est  comprise  entre 
+  1  (0  au  max.)  et  une  valeur  negative  eventuellement  indiquee.  Dans 
tous  les  cas,  la  valeur  retournee  est  entiere. 


RND 
Syntaxe : 

m 

RND 

L' instruction  RND  retourne  des  nombrcs  aleatoires  compris  entre  0 
et  0.9999999999  (1 1  ch  iff  res). 

Example  : 

I  PRINT  lNTfttND»101-hS _ _ 

retourne  un  nombre  emier  compris  entre  3  et  10 

DO 

PRINT  RND  |,TNT(RNDx  IOOO) 

EXIT  IP  LEN(INKBYt) 

LOOP _ _ - _ - 


IP  Flip.domsSS-I 
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*Si  le  tableau  de  menu  'FLIPS1  n.  6te  clique,  unc  pagt-^cr&n 
'entilie  doit  fcfcra  mis®  en  place. 

ENDlF 

FOR  155=400  TO  -1  STEP  -100 

'Cette  feoude  FOR.,. NEXT  permet  de  controls  3'affichage  dee  deux 
'pages-ecran.  Si  you  a  definiflaec  par  exempts  'BO  CDtnme  vaieur  de 
'pas,  Vafridiage  proud  le  double  d«  temps,  pour  3 a  v«lcur  -20,  le 
'quintuple  de  temps  etc.  Easnyee-le,  p&rce  qtie  le  comportement  des 
'pnrtk'B  de  I’^cran  actionnceE  par  l 'in  struct  ion  PUT  peut  verier 
'flfilon  le  pan  diiCini  pour  Viifflehhge.  Si  la  valeur  de  pas  eflfc 
fixes  &  -1,  par  exemple,  ce  processus  est  d'une  duree  assez 
iongue,  mais  e'est  tree  rcaliatc  dc  voir  I'imagc  "a 'installer* 
tout  doucemenC  sur  I'icr&n. 

IF  Iiaeard%— 0 

'Le  noinbre  aleatoirs  0  a  4t£  "choisie*. 

m 

P U T  -200+  ( 200-1% /2),0,F .acreen$( 0) 

PU T  640 - 1 320  ’1% /2)  ,2 00, F  .screened) 

PUT  320,-200+  (200-I%/2).F.»crecn3(l) 

PUT  0,400- (200 “1%/ 2) ,P  screcnS(2) 


Dans  le  cas  present,  la  page-ecran  a  cruel  le  doit  alors  etre  cons¬ 
titute  de  quatre  differ ents  morceaux,  chaque  quart  de  I’ccran 
venam  d‘un  autre  point  cardinal. 

Pendant  la  procedure  de  preparation  “Procedure  Predefs”  au  debut  du 
programme,  ces  quatre  morceaux  out  ete  ins  pour  la  premiere  fois 
grace  it  r instruction  GET. 

Lors  de  chaque  appel  du  menu  principal,  ces  morceaux  d’ccran  ct  la 
page-ecran  entiere  sonl  mis  a  jour,  Ceci  est  realise  d’ abort!  au 
debut  de  la  “Procedure  Screenset"  (@G.etflip).  Apr&s  avoir  utilise 
le  menu  (sauf,  iors  d'une  option  IMPS),  la  nu*me  image  que  celle 
qui  a  ei6  superpos6e  par  le  menu,  doit  reapparaitre.  Pour  y 
arrivei ,  Palgoriihine  {mode  de  procede)  est  utilise. 
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tl  faut  s’imaginer  les  deux  axes  ccntraux  cl  les  qua t re  cotes  de 
1'ecran  comme  des  rails  guidant  ces  quatre  petits  stores 
(morceaux).  Un  point  cardinal  different  est  alors  choisi  pour 
chaque  store.  Pour  une  moil  leu  re  comprehension,  vous  trouverez  page 
suivante  un  petit  dessin. 

Les  coordonnees  affect  ees  par  [’instruction  PUT  se  referent  tou- 
jours  au  coin  super ieur  gauche  de  !a  page-ocran  visible.  Cost 
pourquoi  il  faut  definir  des  valeurs  negatives  pour  les  coordonnees 
de  debut  des  parties  Quest  et  Nord,  Ieur  coin  super  ieur  gauche 
etani  emierement  en  dehors  de  Pecran, 

La  boucle  permet  d’inerdmenter  la  coordonnee  X  de  la  partie  gauche 
(Guest)  en  dehors  de  1’ecran  visible,  par  le  pas  indique  dans  STEP, 
land  is  que  la  coordonnee  Y  reste  constante  au  bord  superieur  de 
recran.  Pour  la  partie  super ieure  (Nord),  la  coordonnee  Y  est 
inc  remen  tee  et  I’axe  central  X  de  1’ecran  reste  constant.  Pour  la 
partie  droite  (Est),  la  coordonnee  Y  est  decrements  el  J’axe 
central  Y  reste  const  ant.  Pour  la  partie  inferieure  (Sud),  la 
coordoifnee  Y  est  decrementee  et  I’axe  central  X  reste  conslnnl. 
C’esi  ainsi  qu’est  creee  I1  impression  dynatrtique  d'un  mouvement. 
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E  ND  IF 

IF  haeard%=l 

'Si  !«  bosard  retourne  1  ... 

IF  Flipp-flag%— 0 

PUT  0lI%J,Screcn.unfl3 
ELSE 

PUT  0 ,1% , S ereen . deux$ ,3 
ENDIF 

'Affiche  a  dca  pas  identiques  la  derniire  pafo-^cron  active  on, 

’I  ora  dui  choix  de  FLIPS,  1’ autre  pago-^cran  (Ur  Flipping  ay  ant 
'alore  £t6  modify  enfcrefcemps),  Et  cette  foie  tin  nffichagc  de 
'I'ecran  entier  de  bae  en  haut, 

ENDIF 
NEXT  1% 

'L’image  eat  fix£e  A  nouveau 

DEFTEXT  1,16*0,45 

GET  ICO,  18Dl54O,220Ilnfoback$ 

'Souvietis-toi  de  1*  pat-tie  de  I'image  qui  eera  superpose  bienlot 
'par  la  ligne  d' in  formation. 

GRAPHMODE  1 
DEFFILL  ,0.0 
PBOX  100,180,540,220 

'Trace  one  bolt#  blanche  comine  cadre  pour  J’ecriture 
GRAPHMODE  2 

'Change  en  mode  Transparent,  car  en  mode  Replace  le  cadre  peut  &tre 
'd6truit  par  Ic  masque  du  tcxtc  ... 

IF  FHpp.flag%=0 

Text  150,210tS40J,,S  GREEN  UN” 
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ELSE 

Test  150121€P9401,,S  GREEN  DEUX" 
ENDIF 


\..  et  affiche  la  lignc  d'informaticn  correspond  tint  a  I'ecran. 

DEFFILL  ,2,6 
FILL  110,162 


*Eittoure  l'&riture  par  un  motif  tl«  rempliseage 


FILL 
Syntaxe : 

FILL  Xpos,Ypos 

Cette  instruction  per  met  de  remplir  des  partis  de  I'ecran  par  Ie$ 
m6tifs  de  remplissage  souhaitcs.  II  suffit  dindiquer  les  coor- 
donnees  (X,Y)  du  point,  a  partir  duquel  le  remplissage  commence, 
jusqu*a  ce  qu'il  rencontre  les  fronlieres  refermees. 

II  faut  fetre  prudent  en  utilisant  FILL  pour  deux  raisons.  Premiere- 
ment,  le  motif  de  remplissage  profile  du  moindre  petit  trou  (1 
pixel)  pour  se  repandrc  encore  plus  loin,  tl  en  resulte  que  d^un 
cdte,  les  zones  qui  ne  devaient  pas  elre  remplies  soni  ainsi 
detruites,  et  de  Faut  re  cote,  le  motif  de  remplissage  non-souhaite 
ne  peut  plus  fitre  efface. 

Pour  le  present  programme  graph ique,  par  contire,  ceci  ne  pose  pas 
de  vrai  probleme.  Avant  le  processus  de  remplissage,  une  image  peut 
etre  fixee  grace  a  la  touche  <  INSERT*  ou  alors  il  est  possible  de 
faire  d'abord  une  copie  de  cette  image  sur  un  deuxicme  rcran.  Si 
vous  choisissez  la  premiere  possibility  et,  si  le  processus  de  rem¬ 
plissage  ne  se  passe  pas  comme  prevu,  vous  pouvez  reafficher 
1’ image  fixee  a  Paide  de  < INSERT*  grace  a  la  touche  <UNDO> 
et  tout  reessayer  a  nouveau. 


-  176  - 


V  a  b  c  du  GfA 


Deuxiememcnt,  V  instruction  FILL  met  beau  coup  de  temps  pour 
finir  le  remplissage  des  surfaces  plus  grandes  qui  ont  dejh  cte 
remplies  par  un  autre  motif  non  ferme.  Pendant  tout  ce  temps,  il  ne 
se  passe  rien  d'autre  Que  le  remplissage.  L"  instruct  ion  FILL  est 
g£ree  entierement  par  le  GEM  et  ne  pent  done  plus  etre  interrompue 
apreS  avoir  ete  lanc^e. 

Si  jamais  il  vous  arrive  le  malheur  de  faire  remplir  un  motif  de 
remplissage  sur  de  grandes  surfaces  non  remplies*  vous  pourrez 
avoir  Pimpression  que  Tordinateur  vous  dit  "adieu".  Laissezdui 
alors  du  temps,  il  annoneera  son  retour.  bTappuyez  pas  tout  de 
suite  sur  la  touche  «RE3ET>.  La  raison  pour  laquelle  Pordinateur 
met  beaucoup  de  temps  est,  qu’en  mode  couleur,  il  a  a  faire  une 
performance  de  calcul  incroyable  vu  le  nombre  de  couleurs  diffe- 
rentes.  Toutefois,  il  ne  fait  pas  autrement  en  mode  monochrome 
bien  qu'il  n*y  ait  que  deux  couleurs. 

PUT  1  Of),  180,1  nfobackS 


'Le  termite  mie  pour  remplir  eufUt  6.  lire  la  ligne. 
'R6;iffich*  cosmic  la  putic  de  i'&cran  superposee. 

’La  pngc-<cran  graphique  est  done  4  nouveau  complete. 


RETURN 

PROCEDURE  Alterscreun 

'Cette  routine  ost  appelee  si  vous  peases  en  mode  Border  aprfra 
'avoir  choifli  SPECI.  Places:  en  suite  le  curseur  de  la  souria 
'au  milieu  du  bord  gauche  de  1'ecran  et  appuyez 
'deux  foie  de  etuis  (double  cliquage)  aur  une  touche  de  la 
'souris. 

'Vous  pouvee.  main  tenant  tirer  1’ autre  page-ecran  sur  la  puge-4cran 
'aciuellc  grace  4  la  sourle. 

'AppuycE  4  nouveau  sur  une  touche  et  1'tcran 
'red  i  spar  alt. 

(gC.etflip 

’Souviens-toi  d’nbord  de  la  page-fcr&n  act  ue  lie 
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REPEAT 

'Ici,  la  bauds  de  d 6 placement  de  la  poge-^crnn  actuelle  commence. 

Alterx-X 
Ait  cry =Y 

‘Souvlcrid'toi  do  la  d  emigre  position  de  la  sou  rift 

MOUSE  X.Y.Hey 

'Sowienfl-toi  de  la  position  acludlc  do  la  aourls 

IF  FUpp.nag%=0 

PUT  X-G3&,Y-3991Screen.deux$IS 
IF  AlfcerxoX  OR  AltcryoY 
PUT  0 ,05S  creep.  tm$ 

ENDIF 
END  IF 

'  IP  Pllpp.(lag^=:l 

PUT  X-GSQ.Y-SS^Screen.un^S 
IP  AlterxOX  OR  AlteryoY 
PUT  0,0 1 Sere en.deuxt 

ENDIP 

ENDIF 

’Lea  deux  tests  par  IF  comparenc  la  dcrnlere  position  de  la  sot  iris 
”v  sa  position  nctuelle  lore  de  cheque  passage  de  boucLe,  Aueeitat 
’que  lee  deux  positions  sent  differe ntes  Pone  de  L’&utrc,  la  pngc- 
'ecran  actueUe  eat  entiirement  r£affich£o  8«r  la  nouvelle  position 
*et  la  page  Ac  ran  alternative  y  est  super  ponce. 

’Ceci  a  pour  av ant age  que  L 'image  ne  vibre  plus,  mats  rests  stable 
r  Quasi  longtemps  que  La  souris  n'eat  pas  diplac^e. 

UNTIL  M0USEK 

'Ter mine  le  processus  auftoltot  qu'une  touche  de  la  Souris  a  et£ 
’enfoncie  et  re  to  urn  e  &u  programme  graph  iqiie. 
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PAUSE  10 

’Ici  il  faut  a  nouveau  prescrire  tine  petite  pause  A  1'ordinatour* 
‘Sinon  k  programme  ulijlae  en  mime  temps  ce  dernier  die  pour 
'actionner  Je  dernier  Element  gTaphtque  aana  qu©  cola  noit 
'souli  ait  6. 

@F,utflip 

'R^afflchs  P6cran  act  Ltd  pour  terminer 
RETURN 

PROCEDURE  G.ctflip 

'Cette  routine  se  eon v lent  de  I'jctudle  page -4cr»n 
'gr&phique. 

IF  Fiipp.flag%=0 

GET  0,0,630,800,5c  r«©nuun$ 

ENDIF 

IF  P1ipp.flag%=l 

GET  010)6391S99,Scroen-deux$ 

ENDIF 

RETURN 

PROCEDURE  P.utilip 

‘lot,  I’actudle  page~£eran  graphique  eat  a  nouveau  desdn^e  ft) 
*nice#ssiLre. 

IF  Flipp.flag%-0 

PUT  0,Cl,Screen.i]n3fS 
ENDIF 

IF  Flipp.fl-ag^l 

PUT  0,0  ,Screen.cleiix$  ,3 
ENDIF 
RETURN 

PROCEDURE  F. Upset-vice 
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*Si  FLIPS  a  iti  clique  dam  la  menu  principal,  il  fnut  verifier 
*qocl  ^tnie  l'ccran  actuel  afin  de  pouvoir  afficher  I 'autre. 

*Ced  cst  r^aiie6  lei. 

PAUSE  10 

F!ip.donc%=] 

’Lc  fall  que  FLIP  ait  eta  cliqut  aura  encore  dc  I 'importance  plus 
’loin  dans  1«  programme,  C’eut  pourquoi  un  flag  correspondent  cat 
v  'mis  Bur  1  (act if). 

INC  Flippcount% 

'Afin  d'obtenir  le  mimcro  de  La  page-etran,  un  compteur  e^t 
'utilise.  Cc  compteur  sc  trouve  A  fc6rO  lor*  du  Inncement  du 
'programme. 

IF  FlippcOunt%=l 
Flipp,nag$&— 1 

■■ 

'Si  ie  compteur  ae  trouve  ®ur  1,  roefcs  lc  flag  pour  Fin  dice 
’de  I'icran  egalemejit  eur  1  (—  page^cran  2) 

ENDIF 

IF  FHppcounfe%=2 
F  Li  p  pcoutit  %—G 
Flipp.fIag%reC 

*Sl  le  compteur  &e  trouve  eur  2,  remeU  lc  A  0  pour  qu'il 
'recommence  au  d4but  (II  n'a  que  deux  pages -ecrimcl)  et  remeta  le 
'dag  de  Findice  egalemenfc  6.  0  (icran  1). 

ENDIF 

RETURN 
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PROCEDURE  Set.imta 

’lei  le  BDus-menu  I  KITS  e$t  dcveloppt 

CRAPHMODE  1 
COLOR  1 
DEFLINE  1,1 ,0,0 
IF  lnitetartflag5£~l 

'Exacte  merit  comme  pour  le  developpemcnb  du  menu  principal 
‘(PROCEDURE  GraJmcnue),  H  faut  b avoir  si  le  menu  eat  trace  pour  In 
’premitre  fols.  Si  celn  n’est  pas  le  civs,  le  Initotartflag  est  igal 
'&  1.  On  se  br&nchera  alors  sur  ce  bloc. 

FOR  1=0  TO  HO  STEP  2 

PUT  l0OJ20C-l,Initmcnu6(70-I/2)(3 
PUT  100,200+ Umtroenu$(70+I/2)*3 
NEXT  I 

'!>«  fa^an  preeque  identique  a  celle  utilifite  pour  rctrncer  leg 
’page* "4 crane,  dss  trait*  horieontaux  do  pixels  sonl  afficlite  I’un 
'ft  cStd  de  1’autre  t  I'inWrieur  d'une  boude. 

'lie  donnent  ainsi  1 ’impression  qua  le  menu  eat  "deroula",  a  partir 
’du  milieu  dc  1 ’ter an,  vers  le  haul  nt  v*r$  1c  bas.  Ccb  bsmdes- 
'4trar»S  sent  eauvegardtea  lora  de  chaque  appel  uittrieur  du  menu, 
’pour  que  les  fonctions  chaiaiea  reate  nt  egatement  visibles  pendant 
•L'appsl  prochain, 

END1F 

IF  Initseartflag%-0 

’Ici  le  menu  INTTS  eat  tract  pour  la  premiere  fols, 

DEFFILL  ,2,4 
PBOX  100,60,640,340 
DEFFILL  ,0,0 
PBOX  110,06,680,334 
BOX  111,67,629,333 
BOX  113,69,827,331 
FOR  li%=0  TO  4 
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DEFFILL  ,2,6 

PBOX  133,80+  riS£-50,31Dt1204li%*5fl 
PBOX  530,80+ 11% *50,507,1 20  +  H%^60 
DEFFILL  ,0,0 

PBOX  H0,86  +  Ii%*5013fl3iiII5  +  rt%''SQ 
PBOX  $37,85*  SCO, 115+ Ii%+50 

BOX  142,87+  II%*  50,361,1 13^  IiVSQ 
BOX  339,87+  li^Q “ 50,498 ,1 .13+ Ii%* 50 
NEXT  K% 

{frM.cniilexb.1 
iSM.enutext.2 
(ftM.firii  text,  2.1 
@M.enutext.22 
r^M.cnutcxt-ZS 
BOX  128, 75, SIB  ,325 
BOX  123,76,314,324 
BOX  325,75,512,225 
BOX  326,76,511,224 
BOX  325,225,512,325 
BOX  326,226,511,324 
DIM  In  it  men  n3(142) 

Initst  artflag^e—  I 


'Determine  en  suite  See  cl  i  mens  ions  du  tableau  pour  les  bande-4crans 
*ct  met  lo  Initst  nr  fcflag  sur  1  pour  que  le  menu  no  soil  pns 
'trae4  urte  non  ve  lie  fois. 

ENDIP 

REPEAT 


'Id  commence  la  boucle  pour  tester  la  position  do  la  soutt's  au- 
'dessus  ou  en -dehors  du  menu  et  pour  retourner  l'etat  des  touches 
'de  la  touris. 

MOUSE  X,Y,Button% 

X. l^=rNT((X'142j/lB0)+  1 

Y. l%=INT((Y-75j/50}+ 1 
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La  position  da  )&  sourta  eat  convex  tie  «n  indlce  du  tableau 
correspond  ant  en  fonction  de  la  position  des  tableaux  de  menu.  Le 
'premier  tableau  commence  &  143,  aur  1‘ axe  X.  Chaque  tableau  ay  ant 
’une  inrgeur  de  180  pixels.  Sur  1'nxe  Y,  U  commence  &  75*  cheque 
'tableau  ay  ant  une  hauteur  de  50  pixels. 

IF  X.l^=l  AND  Button??  =1 

'Si  le  curseur  de  la  eourig  ee  trouve  sur  le  c&te  gauche  du  menu 
'(X.l  =  1)  ct  si  la  touche  gauche  de  la  sourls  a  ete  enfoncee,  le 
'Hag  "Mirror",  produis&nt  un  -uffet  de  miroir,  cst  mi®  lors  dee 
'cinq  proehains  tests  IF,  en  fonction  de  l’indke  Y. 

*Un  effcfc  dynamique  sera  alors  er#§  en  aftkhant  at  tarn  stiv  ement 
'par  different®  type®  de  c&r&etoe®,  le  text®  du  tableau  clique. 

IF  YJ%=t 
Mirror /£=  0 
@M.onutcxt.l 

TEXT  160, 1 05, "MIROIR  ETEINT" 

ENDIF 
IF  Y.l%=2 
Mirror  9£=1 
(SM.enutext.l 

TEXT  1€0,1S5,"MIROIR  VERTIC." 

END  IF 
IF  Y.l%=3 
Mirror  St =2 
(aM.enutext.I 

TEXT  160 ,206 MIROIR  IIORIZ." 

ENDIF 
IF  Y.l%=4 
Mirror%=S 
giM.envJtextl 

TEXT  160, 2 55 ."MIROIR  D I  AG  ON." 

END  IF 
IF  ¥.196=5 
Mirror^— 4 
^aM-tnutext.l 

TEXT  160 ,305  "MIROIR  HtV+D" 

ENDIF 
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END  IP 

IF  X.l%-2  And  Button%=| 

'Si  le  curseur  de  lei  souris  ee  trouve  but  la  cote  gauche  du  menu 
'(X.l  =  l)  at  hi  la  touche  gauche  do  la  souris  «  Hi  enfoncee,  [cs 
'Hags  correspond  nnts  son!  mis  lorg  dee  cinq  proehuino  tc»t*  IF,  an 
'Tenet Lon  de  I'indice  Y.  L'effct  da  lexte  reste  1e  memo  que  cellii 
'deedt  plus  haut. 

IF  Y.lft=l 
(4'M  enutcxt.2l 
(^M-enuteKt.22 
Corot,linfli%=0 
Showlince^^O 

TEXT  355,105, “RETICULE  ALLUME" 

END  IF 
IF  Y.1%-2 
(S-M.enii  text-2 
Showllnes^G— 1 

'TEXT  355, 1 55 ."RETICULE  MOBILE*’ 

ENDIP 
IF  Y.1%^3 
(ftM.enutext.2 

Con^t.  lines??  -1 
Constflfift9E=I 

TEXT  355, 205,** RETICULE  FIXE" 

ENDIF 
IF  Y.l%=4 

{WM.onutext.23 

GrilUtn<xI%s=0 

TEXT  SSS^SS.’MODE  GRILLE  ETEINT" 

ENDIF 
IF  Y.l96=6 

gM.CRUtext.23 
GrUJemod%— 1 

TEXT  SSS.SOS^'MODE  GRILLE  ALLUME" 
gtSct.gr  id 

’Si  "MODE  RESEAU  ALLUME"  a  clitjud,  va  5  la  routine 
’determinant  la  largcur  dee  troua. 
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END  IF 
ENDIF 

UNTIL  ( Button^  >0  AND  OR  X.l%>2  OR  Y.1%<1  OR  ¥,I%>5)) 

OR  LEN(  INKEY  $) 

'-Qniitc  U;  menu  eeuLement  ei  ft)  une  touche  dc  la  iouria  eet 
’enfoocee  ET  ei  le  curseur  dc  la  Souris  s«  trouve  en  dehors  des 
'tableaux  dc  menus  OU  ei  b)  une  touche  quekonqjc  du  clavier  a 
'enfoitc4e. 

FOR  I~0  TO  HO  STEP  2 

GET  100, N  €0,540  J+ 62 ,Imfcmcmi$(I/2) 

GET  100,540  >1,640,342-1  Jn>tmenti$(140 -1/2) 

NEXT  I 

rUr»e  foie  le  menu  termini,  cette  boucle  permit  d’affidicr  LVHat 
’aft u el  du  menu  decompose  in  bandci,  comnie  dicrit  plus  haut, 


4SiSct.pam 

'Reataure  toutes  le«  options  prnphLquea  de  I'utilisatcur 
RETURN 


'lei  se  trouvent  lie  routines  concern  ant  fes  different 9  effete  de 
'terde  possibles  pour  lea  menus  Irit 


PROCEDURE  M. emit  ext-.  2 
DEFTEXT  1,2,0,13 

TEXT  355,105 ,-RBTlCULE  ALLUMIT 
DEFTEXT  1,1,0,13 
RETURN 

PROCEDURE  M.cmufctxt.21 
DEFTEXT  .2,,  13 

TEXT  355,155," RETICULE  MOBILE" 
DEFTEXT  1,1,0,  IS 
RETURN 

PROCEDURE  M  c  nut  ex  1,2  2 
DEFTEXT  1,2,0,13 
TEXT  355,205, "RETICULE  FIXE" 
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DEFTEXT  1,1,0,1s 
RETURN 

PROCEDURE  M  context  . 23 
DEFTEXT  1,2,0,13 

TEXT  3BB^55,"MODE  GRILLE  ETEINT” 
TEXT  356,305  “MODE  GRILLE  ALLUME" 
DEFTEXT  1,1,0,13 
RETURN 

PROCEDURE  M.enuiext.l 
DEFTEXT  1,2,0,13 
TEXT  1 60,105, "MIROIR  ETEINT’ 

TEXT  lCO^BB/'MlRDlR  VERTIC.” 

TEXT  160,206, 11 MIROIR  IIORIZ." 

TEXT  160 ,255  ."MIROIR  DIACON," 

TEXT  ICO ,305  "MIROIR  H-V+D“ 
DEFTEXT  1,1 ,0,13 
RETURN 

PROCEDURE  Set. const 


"Id,  lo  ptfinfe  central  pour  le  rctkulo  constant  cst  determine. 

@CHpprec(2) 

DEFTEXT  1,1 ,0,6 
COLOR  1 
DEFUNE  1,1,0,13 
GRAPHMODE  3 
REPEAT 

MO V SE  HJina%,V .11110%,  Button^ 

Co.txi$_"X:**  +  STR3( H . linc%)  +  "  Y"  +  S TR${V.ltoe%) 
Hor.ko%»HJit»9G-lNT(H.UiM9(/6) 

Ver.ko%— V.liiie%-INT((V  Jin«%-20C)/lfi) 

TEXT  Hor.ko%,Ver.ko% *  B,Co.txt3 
TEXT  Hor.ko%,Vcr  ko%+(5,Oo.txt$ 

TEXT  Hor.ko%.Vf?r.ko%-l,"SET  FIXPOINT" 

TEXT  IIor.ko%,Ver.ko%’l,“SET  FJXrOINT*1 
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Une  autre  petite  astuce,  Les  coordonnees  represents  nt  le  texte 
d' indication  sont  obtenues  &  partir  des  coordonnees  dc  ia  position 
de  la  souris,  de  fa$on  a  ce  que  le  texte  se  trouve  toujours  a 
Pinterieur  de  la  page-ecnin,  Si,  par  exemple,  les  coordonnees  dc 
la  position  de  la  souris  etaient  identiques  a  cellos  du  texte, 
eelui-ci  disparaitrait  toujours  de  I'ccran  au  moment  on  le  curseur 
de  la  souris  s'approcherait  du  bord  droit  ou  super ieur  de  Pecran. 

En  outre,  le  fait  que  les  lignes  et  le  texte  soient  traces  deux 
fois  de  suite  en  Graphmode  3  &  la  memo  position,  donne  Pi  repres¬ 
sion  que  ceux-ci  planent  sur  Pec  ran  sans  en  detruire  le  fond 
(voir  aussi  le  cha pitre  GRAPH  MODE). 


Line  0,V.Une96,6S9tV.iine% 
Line  H.Iinc%AH,Hne%fS99 
Line  0(V.lifie96,€39,V.lihe% 
Line  H.line^.O.H.line^.SOO 


UNE 
Syntaxe ; 

LINE  X1,YI,X2,Y2 

L' instruction  LINE  permet  de  tracer  des  droites  sur  Pecran.  Cest 
pourquoi  deux  parametres  lui  sont  d’abord  affectes  indiquant  les 
coordonnees  (X,Y)  du  point  de  depart,  puis  deux  parametres 
contenant  les  coordonnees  (X,Y)  du  point  d'arrivee,  La  definition 
des  types  de  trait  h  Paide  de  DEFLINE  a  des  effets  sur  P ins¬ 
truction  LINE, 

UNTIL  Button%>0 
PAUSE  10 
<®C~onet.  tines 
jreSct.parng 

RETURN 

PROCEDURE  Set. grid 
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‘Cette  routine  dcsaLne  le  fond  dc  la  "dragbox"  pour  dtfiiur  la 
'Urgeur  dee  troua  de  la  grille 


GET  200,1 20,440,260,0  ridbackS 

GRAPHMODE  1 

DEFFILL  ,0,0 

PBOX  200,120,440,260 

BOX  201,121,455,259 

BOX  205,126,435,255 

DEFTEXT  1,10,0,13 

TEXT  215,150,llChojfljr  largeur  des  Irons  de  U  grille 

DEFFILL  ,2,4 

PBOX  220,160,420,200 

DEFFILL  ,0,0 

PBOX  225,165,415,195 

BOX  227,167,413,193 

BOX  302,220,340,245 

BOX  305,221,339.244 

@Dragbox(  1 , 229, 169,6,22 , 229,169,1  B2 .22} 

’Pour  une  deacription  dec  a  ill  ee,  voir  "Procedure  D  ragbox' 

PUT  200, 120,0  ridbackf.3 
Set -paras 
RETURN 
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PROCEDURE  SfctupccUfe 

’Pour  mtaux  comprendre  la  procedure,  voir  "Procedure  Set  initB* 
’Set.imta  et  Set.  spec  into  eont  ldentiquee.  avcc  pour  9CUlC 
'difference,  que  pour  La  d emigre  3e  «ous-menu  SPECI  eat  dessting 
’■et  uti)U4. 


(®Cl»pprec(2) 

GRAPHMODE  1 

COLOR  i 
DIPLINE  1,1 ,0,0 
IF  5pec,9lartf]<ig%=l 

PUT  100,60,  Spec.imenuS,  3 
ENDIF 

IF  Spec  efcsrtfl  ag% = 0 
DEFFILL  ,2,4 
PBOX  100,60.540.340 
DEFFILL  ,0,0 
PBOX  110,66,600,334 
BO^C  1 1 1,67,629,333 
BOX  113,60,527,631 
FOR  li%=0  To  3 
DEFFILL  ,2,6 

PBOX  133,B5+Ii?^  *"62, 310,125  + Ii?5“62 
PBOX  330,S5TIi%>,62J507112e  +  Ij%"62 
DEFFILL  ,0.0 

PBOX  140,90+  Ii%*62, 303,120+  K%4  02 
PBOX  337.90+  li % + 62 ,500 ,  1 2 0+ 1  i% 1 62 
BOX  1 42.92+  Ii%*62,30i.  1 13+  Ii$g*  02 
BOX  339,92+  Ii%+62 ,498,1 16  J  Ii$fi**62 
NEXT  Ii% 

(2iM  enutext.  3 
^M.enutexb.31 
@iM  enutexb  4 
S  pec.  s  tart  flag?£=l 
ENDIF 
REPEAT 

MOUSE  X,Y,Bufcton% 

X.  1?6=INT({X-142)/ 160)  4  1 

Y. l9fi=INT((Y-78)/62^  1 
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IF  X.1%=1  AND  Button^sl 
IF  Y.1%=1 
Arens?(S=0 
C,opy%— 0 

M.ove9G=0 

^pM.einutext.3 

TEXT  160,110."  MOVE/ COPY  ETEINTS  * 

END1F 
IF  Y.1%-2 

Areau5§ssl 
C.upy%=l 
M.ove%=C 
@M.exmtext  .3 

TEXT  160,172,"  COPY  " 

END  IF 
IF  Y.1%-% 

Areae96=l 
M.©ve%— 1 
C.opy%=0 
(giM.enutcxt.3 

TEXT  160.234,*  MOVE* 

ENDIF 
IF  YX%-4 

(giM.enutext.S 

TEXT  180,296*  BLOC  SAVE/LOAD  " 

ALERT;  2,"  BLOC:  ",0,"  SAVE  |  LOAD  J 

CANCEL"  .Block. flag% 

IF  Block  .ftag%=l 
AreaB5^=l 
C.opy%— 1 
(jrtvLenutext-3 

ALERT  S,*PlaccB  le  curseur  au  cc>ifi[eupirieiir  gauche  du 
bIoc{a  eautvegarcict,  appuyefc  tur  ]a|  touche  gauche  et  marquee  le 
bloc!",  I,"  OKAY  *.BackaIert% 

Sp.Otit.fln.g%=  1 
GOTO  Spedoop.out 
END  IF 

IF  Block  .flaf%=2 
(StBlock  loader 
Biock.op%=l 
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’Si  un  bloc  de  iMcran  a  4t4  chargi,  pasoo  toujour  a  en  mod  a 
'COPY.  II  Bern  d4eoiinect4  lora  de  "Procedure  Areaprocg" , 

ENDIF 

IF  SeJccted$<>-V  AND  Sel«cted®o".BLOH  AND  SelectedS*"" 

'Pour  irsieujt  corn  prendre  L«  teat  IF,  voir  FILES  ELECT. 

pMtriutext.3 
Sp.out  ,flag%=  1 
GOTO  Spccloop.out- 
ENDIF 
(feM.enutext.3 
IF  Block. flag?!:— 3 
Block.flag%=0 
'  ENDIF 
ENDIF 
ENDIF 

IF  X.i%=2  AND  Rution%=l 
IF  Y.1&=I 
Ciipp  .ee  1 
{SM.enutcxt.3L 

TEXT  sss.lio;1  SET  CLIPPING  " 

IF  C.Upp%=l 

TEXT  355,172/'  CLIPPING  ALLUME 
ENDIF 
ENDIF 
IF  Y.l%=:2 
C.lippK=i 
Cl  ipp.net  95=0 
(®Clipprec(l) 

@M.enutext.31 

TEXT  355,172  *  CLIPPING  ALLUME  14 
ENDIF 
IF  Y.1%— S 
cj;PP^=3 
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ciipp.icfc%~0 

@Ciipprec(2) 

g'M.enuttxt.31 

TEXT  366,234,”  CLIPPING  ETEINT  " 

endif 
IF  Y.l%=4 
INC  B.oxd«r 
IF  B. order- 1 
Bord«r%=I 
(SjM.cn  ufc£Xl.4 
PAUSE  S 

TEXT  366,296 BORDER  ALLUMB  * 

ENDIF 
IF  B  order=2 
B.  order =0 
Bordtr%=C 
#M-enwtext.4 
PAUSE  6 

TEXT  355,296/’  BORDER  ETEINT  " 

END  IF 
END  IF 
END  IF 
Spec  loop,  out: 

UNTIL  (b©uto«%>©  AND  (X.l9S<l  OR  X.l$fi>2  OR  Y.1%<1  OR  Y.l%>4j)  OR 
LEN  (INKEY*)  OR  Sp.out.flBg%=l 
Sp  .out  -fl  Bg%= 0 

GET  1C 0,60 ,540,340/5  pee  .menu* 
gkSce.parae 
RETURN 

PROCEDURE  M.enutcxt.3 
<3tCUpprec(2) 

DEFTEXT  1,3,0,13 

TEXT  160, 110,"  MOVE/COPY  ETEINT  " 

TEXT  160,172,“  C  O  P  Y  - 
TEXT  160,234,“  MOVE" 

TEXT  160,296,“  BLOC  SAVE/LOAO  “ 

DEFTEXT  1,5,0,13 
RETURN 

PROCEDURE  M.enutext .31 
{»Clipprec(2) 
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DEFTEXT  1,8,0*13 

TEXT  855,1  ID,"  SET  CLIPPING  n 

TEXT  335,172 CLIPPING  ALLUME  " 

TEXT  855,234,"  CLIPPING  ETEINT  " 

DEFTEXT  1,8,0,13 

RETURN 

PROCEDURE  M. emu  ext.  4 
DEFTEXT  1,3,0.13 
TEXT  356, 296,"  BORDER 
DEFTEXT  1,5,0,13 

RETURN 

PROCEDURE  Di&k,op8 

'Id,  la  souh  routine  pour  lee  operations  sur  disrjuelle  commence. 


(3>CIipp:rcc{2) 

GET  250, 156,390, 280, B.nckmcmiS 

DEFTEXT  1,1, 0,9 

DEFFILL  ,0,0 

GRAPHMODE  1 

PBOX  250,150,390,230 

BOX  251,161*389,279 

BOX  255,166,385,276 

DEFFILL  ,2,3 

PBOX  263,158,332,272 

DEFFILL  ,0,0 

PBOX  203,161,376,179 

PBOX  203 ,191 ,376,209 

PBOX  203,221,376,239 

PBOX  263,261,376,209 

TEXT  266,1 75," SAVE  SOME- 

TEXT  266,205 ."LOAD  SOME'* 

TEXT  266,235’KILL  SOME" 

TEXT  260,265, "NAME  SOME- 

PAUSE  10 

REPEAT 

MOUSE  X,Y,K 

UNTIL  MO  USER  OR  LEN[INKBY$) 
IF  X>263  AND  X<376 
IF  Y>161  AND  Y<179 
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F-opb5?i=1 

@Sl,some 

ENDIF 

IF  Y>1&1  AND  Y<2Q9 
F.ope%=2 

{SSI.aome 

ENDIF 

IF  Y>221  AND  Y<239 

ALERT  2,,lEt«a-vouft  certain  dc]vcu]oir  offacer  un 
fichierr.o;'  OKAY  |  NON  -.Baekaierl^ 

IF  Backnlerl%-i 

FILESELECT  "\  V" Selected 3 


FILESELECT 
Syntaxe : 

FILESELECT  ,,chcmiri',,l'[nom  de  fichier]*  ,Var$ 

II  s’agit  de  l*  une  des  instructions  les  pies  importanies  pour  ef- 
feciuer  dcs  operations  sur  disquettes.  On  ne  pent  evaluer  I'inipor- 
tance  de  la  quantile  d’opcralions  possibles  gr&ce  a  cette  instruc¬ 
tion  que  si  Ton  a  deja  essay  e  de  sauvegarder*  charger,  ef facer  ou 
modifier  des  fielders  de  fa$on  traditionnelle. 

Trois  differents  parametres  SOnt  affectes.  Le  premier  est  une 
chalne  de  caractferes  ou  une  variable  de  chaine,  indi quant  le  chemin 
de  selection  du  fichier  recherche  (voir  sa  structure  au  chapitrc 
EXIST).  Le  deuxieme  parametre  est  egafement  une  chatne  de 
carac  teres  ou  une  variable  de  chaine  indiquantt  le  cas  echeant,  le 
noni  du  fichier  qul,  lors  de  rappel,  est  enire  sur  la  ligne  au- 
dessous  &  droite  de  'choixV  II  faut  noter  qu’au  maximum  12 
caracteres  peuvent  £tre  utilises,  y  compris  le  point  de  separation 
(8  pour  le  nom  du  fichier  /  I  pour  le  point  de  separation  /  3  pour 
Fexiension).  Comme  pour  noire  exemple  ci-dessus,  il  est  Egalement 
possible  d’inserer  "M  ou  I'extension  de  fichier  ,EXT.  Le  trois icme 
parametre  represente  une  variable  de  chaine  alphanumerique  quel- 
conque  nontenant  le  nom  de  fichier  choisl  par  1’utilisateur  (le 
chemin  de  selection  inclus). 
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En  retournant  au  programme,  vous  disposez  de  cinq  differenies 
possibilites  d’entrees  pour  cette  variable*  Si,  en  effet,  l’utili- 
sateur  a  choisi  le  nom  d’un  fichier,  soil  dans  la  fenetre  du  reper¬ 
toire  par  un  double  cliquage,  soil  par  un  seul  cliquage  suivi  d’un 
cliquage  dans  la  boite  OK,  ce  nom  se  trouvera  enfin  dans  la 

variable  de  retour.  Si,  par  centre,  la  boite  OK  a  ete  cliquee  sans 
aucune  precedente  selection  de  nom  de  fichier,  il  existe  (rois 
differentes  possibilites.  Fremieremcnt,  un  nom  de  fichier  a  ete 
affecte  plus  tot,  figurant  done  dans  ’choix\  et  la  boite  OK  a  ete 
cliquee  ensuite.  Ce  nom  se  trouvera  alors  dans  la  variable  de 

retour.  Dcuxlcmenient,  vous  n’avez  affecte  qu'une  extension*  La 
variable  contient  alors  N\.EXTn  (ou  le  nom  choisi  pour  Inten¬ 
sion),  Troisiemement,  aucun  choix  n’a  ete  effectue,  aucun  nom  ou 
aucune  extension  n’ont  ete  affectes  (ou  ils  ont  ete  effaces  a 

r inter ieur  de  la  boite  par  rutilisateur)  et  la  boite  OK  a  ete 
cliquee.  La  variable  de  retour  contient  alors  un  antislasli  (\).  Si, 
par  centre,  ^Interruption’  est  cliquee,  la  variable  est  vide. 

II  est  d’ailleurs  possible  de  modifier  le  contenu  de  la  boite  de 

select io'n  de  fichier  lors  de  rappel.  Vous  pouvez  cliquer  le 
curseur  de  la  souris  sur  la  ligne  situee  sous  r'lndice"  a  finte- 
rieur  de  la  boite.  Le  curseur  trail  se  deplace  sur  cette  ligne  et 
il  est  alors  possible  d’ef facer  la  ligne  ou  certains  caracteres  ou 
encore  de  deplacer  le  curseur  a  un  endroir  precis  grace  aux  touches 
<ESC>,  <BACKSPACE>,  <DELETE>  ou  a  l’aide  dcs  touches  de 
fleehe.  A  pres  avoir  fait  cela,  vous  pouvez  modifier  le  nom  du 
chemin  de  selection  et  demander  I’affichage,  par  exemple,  du 
contenu  d’une  autre  disquette.  Une  fois  la  modification  terminee, 
il  suffit  de  cliquer  la  bar  re  grise  situie  au-dessus  de  la  fenetre 
du  repertoire  et  le  nouveau  repertoire  est  affiche  aussitot. 
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SELECTEUR  IXOBJET 

REPERTOIRE  : 

\SEOflilT\#,LST _ 


*  '  -  ;  *.  LSI  :!ii -ii 

Selection 

■1ST  i 

% 

BUTTIUHT.LST 
,  C«flRBOXtt.tST 

tmmtisi 

CLIPPREC , 1ST 

9  1 

PIRBRR  , LSI  i 

ORAGBOX  .1ST 

v  -Tv. 

1  OK  1 

F0BOX0EH.LST 

'.■-v 

FQRHftLRT.LST 

[  [  Anmiler, 

QEHSES  .1ST 

i 

0 

s 

1 

IF  Selected^-*  AND  ScUKtedlo'V 
KILL  Selected 


KILL 
Syntaxe : 

KILL  nom  de  fiehier$ 

KILL  "nom  du  chemin  de  selection  ou  nom  de  fichier" 

L’instruction  KILL  per  met  de  detiyire  un  fichier  sur  disquette.  II 
faut  alors  indiquer  lc  nom  du  fichier  a  detruire  (y  compris  le 
diem  in  de  selection). 
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Vous  trou verez  dans  la  liste  des  procedures  la  'Procedure  K.ilf 
qui  facilite  la  recherche  du  fichier  et  pent  egalemeni  etre  iitili- 
see  en  mode  direct, 

ENDIF 
END  IF 
ENDIF 

IF  Y>2E1  AND  Y<2S9 

ALERT  J/'Etes  vtnis  certain  defrenowmer  le  fkhier"",0JrOKAY 
1  NON  "rBackal<irt& 

IF  Dackaicrt^-l 
N^mengain? 

F1LESELECT  ”  \ * ■ +" Selected* 

IF  Soloct<jd$>,,,’  AND  Select  ed$<> 11  \“ 

DEFFILL  ,0,0 
PBOX  120,  ISO,  £20,280 
BOX  122,152, E18.27& 

BOX  123,153,517,277 

PRINT  AT(  19,  U)f»  Modifier  no m  de  fichier«  (  Chain* 
vide  interrupt  ton  )*" 

PRINT  AT(18,l2)j"Ancien  nom  de  fichier:" 

PRINT  AT{  18 , 1 3)  iSelec ted  S 
PRINT 

PRINT  AT(18, iSj^Entrc*  nouveau  now  de  fichier:*’ 

PRINT 

AT(18, 17};" _ _  " 

PRINT  AT(1B,17); 


3.2.15  Les  instructions  I/O  (entries, /sorties) 


PRINT 
Syntaxe : 

PRINT  [ATCcotli)|[;Iexpression[*][Jtriexter[;][,jn...J 
PRINT  #canal[Jt*xpression[;][J,],ltexic"[;I,][*J-] 
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L* instruction  PRINT  permet  de  presque  tout  afficher  $ur  Pecran. 
C’est  une  des  instructions  multi-usages  du  BASIC.  Afin  de  micux 
comprendre  ses  differentes  possibility  d’emploi,  it  nous  faut 
I’etudier  en  action  a  rinterieur  d’un  programme. 

Example  d’utilisation  ; 


A%=1 

A**” -Damp" 

PRINT  AT{S3112};CHR$[2?)j"p-J*'PRlNrmA«1"cbato»"1A%iCHR  *{27);*q 
U=INP(2) 

EDIT  _  _ 


Les  differents  composants  de  cette  instruction  tres  variee  ont  la 
signification  suivanlc  : 

AT(XP,YP)  : 

Cette  partie  facultative  permet  d'afficber  des  donnees  it  un  endroit 
precis  de  I'ocran.  L’ecran  du  TOS  comprend  SO  colonnes  (1-80)  (la 
numerotation  commence  &  partir  de  la  position  ’Home’)  et  25  iignes 
{I  -25), 

;  (point-virgule)  ; 

Ce  caractere  permet  de  relier  entre  elles  differentes  expressions. 
L’ expression  situee  apres  !e  point-virgule  sst  affichCe  direc- 
tement,  apres  r expression  pr  ecedente.  Done,  si  te  point-virgule 
termine  une  ligne,  la  premiere  expression  situee  sur  la  prochaine 
ligne  PRINT  est  ratlachee  a  la  derniere  expression  affichee, 
le  retour  chariot  avec  ptissage  a  la  ligne  sutvante  etam  ainsi 
supprime. 

,  (virgule)  : 

Si  deux  expressions  sent  separees  par  une  virgule,  celle  situee 
apres  la  virgule  debutera  au  prochain  des  cinq  points  de  tabu¬ 
lation,  Ccux-ci  se  trouvent  aux  positions  X  I,  17,  33,  49  et  65. 
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*  (apostrophe)  : 

Une  apostrophe  places  exit  re  deux  expressions  represents  un  hlanc. 
Des  Wanes  sont  done  affiches  sur  Pecran,  I&  ou  se  trouvent  les 
apostrophes. 

CHRS(27V,Z"  : 

Le  "Z"  indique  qu’une  instruction  correspondante  sous  TOS  doit  etre 
employee.  Le  caractere  ASCII  27  (Esc)  est  un  des  caracteres  de  eon- 
trAle  sous  TOS,  uti  Usable?  lors  d'une  instruction  PRINT.  Dans 
notre  exemplc,  <Esc>  "p"  represente  la  prochaine  ecriture  a  Pen- 
vers  et  <ESC>  "q"  la  remet  en  representation  nor  male. 

Une  instruction  Print  toute  seole,  non  suivie  depression,  en¬ 
trains  une  ligne  vide.  Si  vous  souhaitez  utiliser  des  caracteres 
speciatix  a  I’interieur  d’une  expression,  il  faut  prooeder  comme 
cela  a  ete  deer  it  dans  le  paragraphe  INPUT. 

Une  petite  astuce  pour  une  ecriture  mobile  : 


A$— HQui  ne  dwrche  pM,  n«  trouvo  pael" 
B$=fiFACE$(Se) 

REPEAT 

Aj=RIGHn(A$,LEN(A$)‘l)+LEFTS(Aj) 

RSET 

Bt=Ai 

PRINT  AT(1,12);B$ 

UNTIL  LEN(INKEYt) 

EDIT _ _ _ 


L’instruction  PRINT#  est  une  variete  de  PRINT.  Le  nombre  indique 
apres  te  caractere  de  numero  represente  le  canal  de  donnees  a  uti¬ 
liser.  Si  vous  souhaitez  done  ecrire  quelque  chose  dans  un  fichier 
sur  disquette,  ceci  est  rendu  possible  (par  ex.  PR  INT#  1  ;"BASIC'). 
Les  caractere  de  formatage  peuvent  y  etre  utilises. 
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Liste  des  functions  "Escape11  sons  TOS  : 


CHR$(27);UA" 

CHR$(27);irB" 

CHRS(27);,*C" 

CHR${27);"Dr 

CHRSCSV^E" 

CHR$C27);"H" 

CIiR$(27>;,Tt 

CHR$(27);T 

CHR$(27);"K*1 

CHR$(27);,lLir 

CHR$(27);"MM 

CIIR$(27);nb";F 

CHRS(27);'rc“;FI 

CHRS(27);'\r 

CHR$(27);V 

CHR${27);"r 

CHR  $(27f”r 

CHR$(27);"k" 

CHRS{27);’r 

CHRS^?);^" 

C  HR$(21X't>n 
CBR$(27)?q" 
CHR$(27);MvM 


CHR$(27)/>wr' 


Curseur  d*une  Iigne  vers  ie  haul 
Curseur  (Tune  iigne  vers  ie  bas 
Curseur  d’un  cran  a  droite 
Curseur  d’un  cran  &  gauche 
Clear/ Home 
Home 

Curseur  d’une  Iigne  vers  le  haut+scrolling 
Effacement  de  I’ecran  apres  curseur 
Effacement  de  la  Iigne  apres  cursor 
Insertion  de  Iigne 
Effacement  de  la  Iigne  emiere 
determine  couleur  du  curseur 
determine  couleur  du  fond 
Effacement  de  I’ecran  avant  curseur 
Curseur  alJum& 

Curseur  eteint 

Sauvegarde  de  position  du  curseur 
Curseur  &  la  position  sauvegardee 
Effacement  de  Iigne 
Effacement  de  Iigne  jusqu'a  curseur 
Rovers  ailume 
Revers  eteint 

Placement  automatique  du  curseur  en  debut  de 
Iigne  apres  avoir  atteint  fin  de  la  iigne 
precedent© 

Curseur  s*arr£te  en  fin  de  Iigne 


SPC 

Syntaxe : 

SPC(nombre  de  blancs) 

LMnstruction  SPC(Lz)  ne  peut  Stre  utilisee  cju'avec  PRINT.  La 
valeur  indiquee  entre  parentheses  represente  des  "blancs",  c’est-a- 
dire  une  valeur  entre  0  et  255  est  aft’eetee,  determinant  le  nombre 
de  blancs  (SPaCe)  &  afficher. 
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Exemple  : 

|  PftIKT  ^ss^^PCfSQ^^Fui11 
Sortie  :  -=>  fin 
impossible : 

I  A$=r>s?aa>1>  4-  SPC  ( 20) + "Fi  n1* 

Une  erreur  de  syntax©  est  alors  afficbee. 

SPACES (20)  convient  parfaitement  a  ce  genre  ^instruction. 


POS 

Syntaxe  : 

POS( argument  muet) 

* 

L*  instruct  ion  FOS  reiourne  la  colonne  ou  se  trouve  le  curseur.  Un 
argument  muet  doit  8tre  indique  entre  parentheses.  II  peut  fitre 
choisi  arbitrairement  parce  qu*il  n’a  aucun  effet  sur  la  fonction. 
Etant  donne  que  les  chaines  de  caracteres  d'une  taSHe  plus  longue 
que  BO  caracteres  peuvent  etre  affichees  et  qu’une  ligne-ecran  du 
TOS  peut  comporter  plus  de  256  caracteres*  la  valeur  retourn6e 
peut  se  situer  entre  0  et  255.  Le  nombre  de  la  colonne  obtenue 
par  POS  rTesi  pas  idcntique  au  nombre  de  colonne  indique  par 
"PRINT  AT(XP,YP)".  II  v  a  une  difference  de  -1. 

Exemple : 

^JPElNT_ATii  ;?0$[0>,$FC(301;P05(Q) 

Sortie  :  0  2 1 


PKINT  SPACES  f4QOOliPOS[CQ 

Sortie  :  (4000  blancs)I60 
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La  valeur  160  dans  notre  exemple  est  obtenue  de  la  fa^on  suivante  : 
4000  MOD  256  =  160 


TAB 

Syntaxe  : 

TAB( valeur  de  la  position) 

L’ instruction  TAB  permet  de  definir  une  position  de  tabulation  sur 
laquelle  I’ instruction  PRINT  suivante  est  executee.  Cette  position 
peut  dtre  sifuec  entre  0  et  256.  MOD  256  permet  de  calculer  des 
valeurs  plus  grandes  de  fagon  a  ce  qu’elles  rentrent  dans  l’inter- 
valle  compris  entre  0  et  256.  Si  le  curseur  se  trouve  sur  une  ligne 
apres  la  deraiere  position  de  tabulation  indiquee  et  si  la  valeur 
de  Pinstruction  de  tabulation  suivante  se  situe  entre  256  et  la 
position  actuelle  du  curseur,  la  tabulation  $' effect  ue  sur  la  meme 
ti&ne.  Si  la  valeur  de  tabulation  est  infer ieure  &  la  petition 
actuelle  du  curseur,  ^instruction  est  ex4cutee  sur  la  ligne 
suivante.  L’instruction  TAB  ne  peut  etre  employee  qu’en  liaison 
avec  PRINT.  II  n’est  pas  possible  de  V insurer  dans  une  expression 
de  chaine  alpha  numerique. 

Exemple  : 


PRINT  AT(22,I);TAB(25y;*U*r 

PRINT  TAB  ( 16 ) ; "  Qu  atre'  ;T  AE{  35) S  &t  eons 

PRINT 

FOR  J%=1  TO  6 
RESTORE  T  «xt 
FOR  TO  4 

READ  AS 

PRINT  TAB  ( 16+  J%*4) ;AS ; 

NEXT  1% 

NEXT 
T _ ext: 

DATA ;  PRINTEMPS  ,ETE, AUTOMNE^IVER 
EDIT 
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PRINT  USING 
Synlaxe : 

FRINT  USING  "instruction  de  format'1  ?liste  des  expressions  ou/el 
variables 

PRINT  #  canal  .USING  "instruction  de  format"  ,liste  des  expressions 
ou/et  variables 


L*  instruction  PRINT  USING  per  met  de  determiner  le  format  d’nff  i- 
chage  de  valeurs  et  de  chaines  de  carac teres,  Elle  est  tout  d’abord 
suivie  d’une  chaine  de  caracteres  ou  d’une  variable  de  chalne 
contenant  le  format  souhaite.  En  suite,  a  pres  une  virgule.  se 
trouvent  les  expressions  ou  variables  representees  dans  ce  format. 
Si  plusieurs  expressions  sont  indiqu^es,  celles-ci  sont  separdes 
entre  sites  par  d’autres  virgules.  Si,  pour  des  valeurs  numcriqucs, 
le  format  indique  moins  de  chiffres  apres  la  virgule  qu’il  n’en 
exist®  reel  lenient,  les  chiffres  reslants  sont  integres. 

Exempt  e  : 


A=  12.4672 

PRINT  USING  ,A 

Sortie :  1 2.46 


4$='' BASIC” 

PRINT  USING  HCfA-13&aicH  ,A$ 


Sortie  :  Gf A -Basic 


Descriptors  de  format  : 


#  reserve  une  place  pour  un  chiffre 
.  position  du  point  decimal 

+  affichage  d'eventuels  signes  ’plus’ 
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reserve  une  place  pour  le  signe  ’  moms’ 

*  les  zeros  en  tete  sent  remplaces  par  des  *,  si  non  *  est 
identique  a  # 

$$  affiche  un  $  en  tete 

,  insertion  cTune  virgule  (separateur  des  mi  lies) 
aaa^  affichage  dans  le  format  exponent iei 
1  le  premier  caraclere  d* une  chaine  est  affiche 
&  toute  la  chaine  est  affichee 

\..\  afficlie  un  nombre  dc  caracteres  d*une  chaine  egal  a  la 
longueur  de  \..\  (antislashs  \  indus) 
imprime  le  caractere  suivant 


WRITE 
Syntaxe  : 

WRITE  [expression! ^expression "texte'VV ar , Var$ , Var% ]  J 
WR ITE  #canal[  ^xpress^express^texte”  yVar,Var$*V ar%«. ][;]] 

* 

WRITE  est  une  instruction  de  sortie  permetlant  avant  tout  de  sau- 
vegarder  des  donnecs  sur  un  fichier  sequential.  Elle  peut  egalement 
fitre  utilises  pour  Faffichage  d’un  texte  ou  des  donnees  sur  ecran. 
WRITE  ressemble  beaueoup  a  PRINT,  mats  m  syntaxe  est  differente. 
Les  guillemets  qui  indiquent  une  chaine  de  caracteres  k  affecter 
(expression  ou  variable),  ainsi  que  les  virgules  separant  les  dif- 
ferentes  expressions  entre  el  les,  sont  mises  automatiquement.  La 
vraie  raison  d'etre  de  WRITE  ne  se  r6vdle  qu’en  liaison  avec 
INPUT#.  11  est  alors  possible  de  lire  simultanement  plusieurs 
valeurs  ou  chaincs  de  caracteres. 

Exemplc  : 


Open  V^l  -Ainis" 

Bsetore  N_oms 
For  To  3 

R  e  twl  N .  om  1 1 P .  rofeafi  ion  S  ,T  .fllephon  e? 
Write  #t  .N.omS/P  rofeaeionS.T .etephoneS 
Next  1% 

Clout  #1 
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Clear 

Noma; 

Data  "Katidmtky  \"plast»den  -  ”Dennu/ll2m" 
Data  ” Limonov  *" apatride  doui  VFww  / 4222 22" 
Data  'Mohojy  NagiM ^plaitkien  *  'Berlin/ 116666* 

Open  *Amia" 

Print  ‘‘Mes  respectables  wtuu  f 
Print 

While-  Not  Eof(#l) 

Input  #  l,N.orr)$)P.rofe**ioriifT.elephone$ 

Write  N  .om$ ,  P .  rofessl  on  $  ,T ,  eleph  one! 

Wend 
Close  #1 
U“Inp(2) 

Edit 


Comme  vous  Tavez  sttrement  remarque,  le$  numeros  de  telephone  sent 
inventes,  Alors,  ne  telephonez  pas,  svp  !  Je  garde  les  vrais  nume¬ 
ros  pour  moi.  Mes  amis  sent  ddj&  assez  occupes, 

# 

INPUT  "".N.ewn&meS 


INPUT 
Syntaxe : 

INPUT  ["texle"  ,[;]]  Var[ ,  Var$  ,Yar%....] 

INPUT  #canal/V ai[ , V a  r$*Var%„.  ] 

II  s’agit  de  ^instruction  la  plus  sou  vent  utilise©  pour  entrer  des 
vateurs  ou  chaines  de  caracteres  sous  TOS.  11  est  possible  de  faire 
apparaitre  une  expression  de  texte  avant  les  premieres  donnees 
affichees.  A  pres  une  virgule  ou  un  point -virgule,  est  alors 
indiqu^e  la  variable  ntimerique  ou  de  texte  6  laquelle  sont 
a  f  fee  tees  des  donnees.  Si  un  point-virgule  separe  I’ instruction/ 
expression  de  texte  et  la  variable  qui  suit,  1*  instr  uct  ion/ texte 
est  suivi  d*un  point  d’ interrogation  et  d’un  blanc. 
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Dans  le  cas  d’une  virgule  separanf  fi  instruction/ texte  et  la 
variable,  le  curseur  e$t  place  immediatement  apres  V instruction/ 
texre  et  la  saisie  peut  commencer  instantanement.  Si  vous  souhaitez 
entrer  pltisieurs  valeurs  ou  chames  de  caractdres  a  pres  Finstr  ac¬ 
tion  INPUT,  celles-ci  peuvent  etre  representees  par  une  list©  de 
variables  separees  entre  dies  par  des  virgules.  L’instruction 
n’est  terminee  que  si  des  donnees  sent  entrees  pour  chaeune  des 
variables.  II  est  meme  possible  d’utiliser  differents  types  de 
variables.  Vous  pouvez  done  obtenir  a  la  fois  des  valeurs  et  un 
texte.  La  saisie  d'une  donnee  peut  £tre  terminee,  soit  par 
<RETURN>.  soit  par  une  virgule.  Si  les  donnees  introduces  ne  sont 
pas  du  m6me  type  que  les  variables  corresponds  ntes  (du  texte  pour 
des  variables  numeriques  et  vice  versa),  une  sonnerie  retent  it  au 
moment  de  la  saisie  (si  le  volume  de  votre  moniteur-video  n’est  pas 
mis  sur  zero)  et  F  entree  peut  fitre  k  nouveau  d'fectuee.  Unc  chame 
de  caracteres  saisie  avee  INPUT  ne  peut  depasser  255  ca racier es.  Au 
cours  d’une  saisie,  on  peut  corriger  les  donnees  de  differentes 
manures. 

<BACKSPACE> 

efface  le  caractere  situe  &  gauche  du  curseur. 

<DELETE> 

efface  le  caractere  situe  sous  le  curseur. 

<FLECH'E  VERS  LA  GAUCHE> 

dept  ace  le  curseur  d’un  cran  vers  la  gauche. 

<FLECHE  VERS  LA  DR0ITE> 

deplace  le  curseur  d’un  cran  vers  la  droite  (si  celui-ci  ne  §e 
trouve  pas  en  fin  de  ligne), 

<FLECHE  VERS  LE  HAUT> 

deplace  le  curseur  en  debut  de  ligne. 

<FLECHE  VERS  LE  BAS> 
deplace  le  curseur  en  fin  de  ligne. 
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II  existe  trois  famous  differentes  de  saisir  des  caracteres  spe- 
ciaux  : 

1.  La  touche  <ALTERNATB>  et  une  autre  touche, 

2.  Appuyer  simuJtanement  sur  <CONTROL>  et  <$>,  puis  sur 
une  touche  quelconque 

3.  Appuyer  simuitanement  sur  <CONTROL>  et  <A>,  puis 
taper  le  code  ASCII  cor  responds  nt  au  earactere  souha.te. 
II  n’est  pas  possible  de  saisir  ainsi  les  32  premiers 
caracteres  ASCII  {caracteres  de  contrOle). 

Comme  pour  P  instruct  ion  PRINT,  INPUT  permet  aussi  le  choix 
d'un  canal.  Grace  a  INPUT#  suivi  du  numero  du  canal  de  donnees 
choisi,  il  est  possible  de  lire  des  donnees  de  fichiers  sur 
disquettes. 

Exempts  : 


1  INPUT  #1,A$1B$1C$ 


INPUTS 
Syntaxe  ; 

lNPUT$(nombre[,#canal]) 

II  est  possible,  grace  a  INPUTS,  de  saisir  des  chalnes  de  carac¬ 
teres  *en  cachet  te\  A  I’ inverse  des  autres  types  d’INPUT,  la 
variable  a  affecter  nc  suit  pas  Y instruction  INPUTS,  mais  la 
chaine  de  caracteres  doit  etre  affectee  h  une  variable 
(AS=INPUT$(IO))  ou  bien  peut  etre  affichee  immediatenaent  apres 
la  saisie  (PRINT  INPUTJ(IO)).  L’instruction  est  suivie  d'un 
nombre  entre  parentheses,  indiquant  combi en  de  caracteres  peuvent 
etre  saisis.  Une  fois  le  nombre  de  caracteres  atteint,  le  programme 
se  poursuit  automatiquement,  sans  emploi  de  <RETURN>.  Le  texte 
entre  n’est  pas  visible  lors  de  la  saisie. 
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Un  canal  peut  egalement  etre  choisi  peer  la  presents  instruction 
(A$=INPUT$(1 0,#1).  Cette  instruction  permet  parfaitement  de  lire 
un  certain  nombre  de  donmees  enregistrees  dans  un  fichier  sur 
disquette.  Le  petit  programme  suivant  pent  fetre  utilise  pour  lire, 
par  exemple,  un  fichier  entier  dans  une  chaine  de  carac teres 
(pourvu  que  celui-ci  ne  soit  pas  plus  long  que  32767  octets), 

OPEN  T,#l  *nam  de  fichier" 

A$^1NPUTS(L0F(#1)#1J 
CLOSE  #1 
PRINT  A$ 

TJaiNPU1) 


II  n’est  pas  necessaire  de  connaitre  la  longueur  du  fichier  car 
elle  peut  s'obteoir  a  Taide  de  "LOF(#l)".  Si  le  texte  du  fichier 
ne  loge  pas  sur  I’ecran,  ill  faut  extra  ire  certains  blocs  de  la 
chaine  de  caraet  feres  grace  aux  differentes  fonctions  de  chaine  el 
les  afficher  {par  ex.  PRINT  LEFT$(A$,10QQ)).  It  est  ainsi  possible 
d’af ficher  et  de  modifier,  par  exemple,  le  code  source  d'un  pro¬ 
gramme  quelconque. 


UNE  INPUT 
Syntaxe : 

LINE  INPUT  l"texte,*4;]]Var(,VarS,VaiJ%.»] 

LINE  INPUT  est  un  descendant  direct  dc  F  instruct  ion  tradition- 
nelle  INPUT.  La  seule  difference  est  que  LINE  INPUT  ne  peut  etre 
utilisee  que  pour  la  saisie  de  texte  et  qu'il  faut  valider  par 
<RETURN>  la  saisie  de  ehaque  variable  con  ten  ue  dans  une  liste. 
Quant  a  INPUT,  une  virgule  permet  de  savoir  qu*une  nouvelle 
variable  est  traitefe.  Dans  le  cas  de  LINE  INPUT,  par  centre,  la 
virgule  sert  comme  caractere  a  P inter ieur  du  texte  d'une  chaine 
alphanumerique.  Comme  pour  l4 instruction  INPUT,  il  est  possible 
d'affecter  une  chaine  de  carac  teres  figurant  avant  le  premier 
caractere  k  saisir.  Par  exemple  : 


LINE  INPUT  h Entree  )c  text*  .  \AsLBbLCe* 
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L’ utilisation  cfyne  virgule  ou  d’un  point-virgule  entre  Tins- 
(ruction  (ou  texte)  et  la  variable  (ou  lisle  de  variables)  permet 
de  determiner  si  un  blanc  ou  un  point  cT interrogation  doit  figurer 
ou  non  avant  la  premiere  position  de  saisie. 


FORM  INPUT 
Syntax® : 

FORM  INPUT  nombre,var$ 

L’ instruct  ion  FORM  INPUT  est  une  combi  naison  de  INPUT  et 
INPUTS.  Elle  vous  permet  de  definir  un  texte  a  saisir,  contenant 
au  maximum  255  caracteres.  Lorsque  i’utiiisaleur  attaint  la 
longueur  de  chaine  determ inee,  le  curseur  reste  sur  sa  derniere 
position  et  une  sooner ie  retentil  (si  le  volume  n’est  pas  mis  sur 
zero).  Les  modifications  du  texte  peuvent  etre  effectuees  conime 
pour  ('instruction  INPUT.  II  en  est  de  m£me  pour  la  saisie  de 
caracteres  speciaux.  II  n'est  eependant  pas  possible  d’indiquer  une 
liste  dc  variables  ou  un  texte  prccedant  celui  de  la  saisie,  car  le 
curseur  est  place  automat iquement  sur  la  premier®  position. 

Exemple : 


FORM  INPUT  35,t_ext$ 

II  est  possible  de  determiner  la  position  des  entrees,  comme  pour 
INPUT  et  LINE  INPUT,  en  plaint  le  curseur  &  I’aide  de  PRINT 
AT(XP„YP),  a  Pendroit  ou  le  premier  caractere  doit  apparnitre  En 
met  taut  un  point -virgule  apres  I*  instruction  PRINT,  le  retour 
chariot  et  la  ligne  suivante  sont  supprimfe.  Le  prochain  caractere 
d'une  sortie  sous  TOS  sera  alors  place  imniediatement  apres  la 
position  du  dernier  caractcre  affiche. 

ON  ERROR  GO  SUB  N.&m«  «rror 
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3.2.16  Le  fra  hem  ent  des  erreurs 


ON  ERROR  GOSVB 
Syntaxe  : 

ON  ERROR  GGSUB  nom  de  la  procedure 

En  cas  d'erreur,  il  est  possible  de  definir  one  procedure  sur  la- 
Quelle  le  programme  sera  branche.  A  ce  moment-la,  aucun  message 
d’erreur  n’est  affiche  et  la  geslion  des  erreurs  est  remise  au 
programmeur.  II  existe,  pour  cela,  une  unite  d'informatiGO  dormant 
des  renseignements  sur  la  nature  des  erreurs.  Ceci  est  la  variable 
ERR  eontenant  le  code  correspondant  a  I’erreur  rencontree,  Gr&oe  a 
ce  numcro,  il  est  alors  possible  d’indiquer  par  sci-meme  des  mes¬ 
sages  d’erreur  ou  de  faire  un  branchement  de  programme  de  fa^on  la 
plus  appropriee  A  I’erreur. 

Exempie : 


ON  ERROR  GOSUB  Ejpora 

A%=34*Q 

ENTER: 

B=INT(SQR(23.7"8)/A%) 

ON  ERROR 

PRINT  B 

EDIT 

PROCEDURE  E_rron 

IF  ERR-0 

ADD  A%rOaOOQQOOB| 

ENDIF 

RESUME  ENTER 

RETURN 

Dans  le  present  exempie,  on  a  essaye  de  diviser  un  nombre  par  zero. 
L’ inter preteur  affiche  alors  une  boite  d’alarme  eontenant  le  mes¬ 
sage  d’erreur  'division  par  zero’  (Err-O). 
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Vous  pouvez  rev  iter  en  branchant  le  programme,  grace  k  ERROR 
GOSUB,  sur  une  procedure  augmentant  la  valeur  0  de  .0000000001 
et  entramant  ensuite  un  saut  a  Eendroit  du  programme  ou  se 
trouvait  I’erreur.  En  terminant  par  ON  ERROR,  la  gestion  des 
erreurs  est  reattribu^e  a  I’interpreteur. 

Vous  trouverez  une  liste  des  messages  d’erreur  et  des  codes  cor¬ 
respondents  en  annexe.  De  plus,  nous  avons  traite  des  erreurs  nous 
memes  a  plusieurs  cndroits  du  programme  graphique.  Vous  pouvez  done 
y  retrouver  ^application  de  la  presente  instruction. 


ERR 
Syntaxe  : 

ERR 

II  ne  s’agit  pas  vraiment  d’une  instruction  mai$,  comma  cola  a  deja 
ete  dit'  plus  haut,  d’une  variable  reservee.  Lors  d’une  erreur  du 
systeme  ou  de  I’interpreteur*  ERR  contient  le  code  de  cetle  erreur 
(voir  liste  des  erreurs). 


RESUME 

Syntaxe : 

RESUME 
RESUME  NEXT 
RESUME  etiquette 

L’instructicn  RESUME  (angl.  :  reprendre)  permet  d’indiquer  une 
etiquette  (label)  apres  laquelle  se  poursuit  le  programme  lors 
d’une  gestion  d’erreur  interne.  Si  RESUME  est  utilisee  sans 
etiquette,  le  programme  retourne  la  routine  d’erreur  interne  sur 
la  ligne  contenant  l’erreur  et  execute  celle-ci  k  nouveau.  Une 
troisieme  possibility  est,  qufa  l*aide  de  RESUME  NEXT,  rex£cution 
du  programme  soit  relancee  apres  la  ligne  contenant  ^instruction 
qui  a  entrains  ferreur. 
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Si  [’etiquette  indiquee  se  trouve  en  dehors  de  Ja  routine  d' erreur, 
le  registre  contenant  les  sauts  GOSUB  est  efface  et  toutes  les 
variables  globales  sont  restaurees.  Les  instructions  RESUME  et 
RESUME  NEXT  ne  peuvent  pas  itre  employees  dans  le  cas  d’ er¬ 
reurs  bombes  (Err  =  102  -  109).  LI  est  alors  necessaire  d’utiliser 
RESUME  etiquette. 


FATAL 
Syntaxe : 

FATAL 

L1  instruction  FATAL  retourne  (a  valeur  -1  ou  0.  11  s’agit  done 
d*une  variable  reserves.  II  est  possible  de  lui  af fee  ter  une  valeur 
a  l#aide  de  LET,  mais  elle  ne  la  prend  pas.  Les  deux  valeurs 
retournee  par  FATAL  ont  la  signification  suivante  : 

*  0  II  s’agit  d'une  erreur  genera  le.  Les  ad  r  esses  de  variables 
et  d’etiquettes,  ainsi  Que  la  pile  d’adresses  GOSUB  sent 
toujours  utilisables. 

-1  II  s’agit  d’une  erreur  a  finterieur  du  systeme  d’exploi- 
tation,  qui  a  detruit  des  adr esses  du  programme  (plan- 
tage).  En  BASIC  GfA,  ces  erreurs  sent  rattrapees  en 
transfer  ant  le  contenti  des  registres  dans  une  zone  sp6- 
ciale  lors  des  erreurs  de  bombes  *oormale$\  Cette  zone 
peut  ensuite  etre  lue  pour  reinitialiser  le  programme,  si 
le  systeme  ne  s’est  pas  plants  totalement  (SO  bombes). 

Exemple  : 


ON  ERROR  GOSUB  Ejrow 

ERROR  102 

PRINT  "  Fatal-Error!" 

GOTO  L»beL2 
Label: 

PRINT  “Normat-Errorr 
LabelS: 
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PRINT  T'ex^uticn  du  programme  e»t  relancfie  fl.  partir  d’ici  !" 
V^INP(2) 

EDIT 

PROCEDURE  E__rrora 
PRINT  ERR”FATAL 
tF  FATAL— 0 

RESUME  Labal 
ELSE 

RESUME  NEXT 
ENDIF 
RETURN 


La  zone  pour  le  transfer!  du  contenu  des  registres  a  la  structure 
-suivante  ; 

Adresse 


$0380  (896) 

$0384  (900) 
$03A4  (932) 
SO3C0  (960) 
S03C4  (964) 
S03C8  (968) 

$03 CC  (972) 


ERROR 
Syntaxe : 

ERROR  code  d’ erreur 

ERROR  x  permet  d’inserer  une  erreur  volontaire  a  V inter ieur  du 
programme,  "x"  represente  alors  le  code  de  r erreur  simulee  (voir 
liste  des  erreurs  en  annexe),  Ne  vous  faites  pas  de  soucis  en 
employant  cette  instruction.  L5 erreur  n*est  que  simulee. 


Signification 

Si  les  donnees  sauvees  sont  valabks,  la 
valeur  305419896  y  est  entree, 
les  anciens  registres  de  donnees  (DO  -  D7 ) 
les  anciens  registres  d’adresses  (A0  -  A6) 
ancien  pointeur  super-stack 
findice  erreur 

ancien  registry  A  7  (pointeur  du  stack - 
utilisateur) 

16  anciens  mots  super -stack 
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A  part  cela,  ce  type  d’erreurs  produit  les  memes  effets  que  les 
vraies  erreurs.  Un  message  d’erreur  est  affiche  ou,  en  cas  de  ON 
ERROR  GOSUB,  le  programme  est  branche  sur  la  procedure 
d’erreur.  Apres  I'affichage  d’un  message  d’erreur  a  1’aide  de 
ERROR,  le  programme  est  6galement  interrompu. 


LET 

Syntaxe  : 

LET  Var=vaieur 

LET  Var$=expression  de  chafne  de  caractcres 

L1  interpreter  du  BASIC  GfA  reagii  de  la  m£me  fagon  que  les  autres 
interpreteurs  BASIC,  lorsqu’ii  rencontre  une  variable  identique  a 
une  instruction  du  BASIC  et  non  definie  par  LET.  II  affiche  un 
message  d’erreur  eorrespondant  dans  1’editeur.  Si,  par  contre,  la 
variable  a  ete  definie  a  faide  de  I’ instruction  LET,  !’ inter - 
preteur  la  traite  comme  toutes  les  autres  variables,  mfcme  si  son 
nom  est  identique  a  une  instruction  du  BASIC. 

Exemple  : 


LET  GOSUB^-'BASKr 
PRINT  GQ3UBI 


Sortie  :  BASIC 


IF  N.BWOt»rne$>"“ 

IF  LEFTi(N*ewname8)<>“  * 


3.2.17  Les  fonctions  de  texte 


Dans  les  ehapitres  suivants,  nous  etudierons  quelques  chaines  de 
caracteres  Ires  interessantes  permettant  une  analyse  et  des  modi¬ 
fications  d’ expressions  de  texte  tres  efficaees. 
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LEFTS 
Syntaxe : 

LEFTS  (Var$[  ,nombre]) 

L*  instruction  LEFTS  peruiet  de  lire  m  n ombre  quelconque  de 
caractferes  d’une  chaine  &  partir  de  son  debut.  Pour  cela,  une 
variable  de  chaine  alphanumerique  ou  une  expression  de  texte  sent 
indiqu&s  entre  parentheses  a  pres  Instruction,  Si  necessaire*  le 
nombre  de  caracteres  §  lire  ou  une  variable  contenant  cette  valeur 
sent  ra joules  apres  une  virgule.  Si  le  nombre  de  caracteres  entre 
parentheses  est  absent,  la  fonction  retourne  uniquement  le  premier 
caractefe  de  la  chaine  en  question.  Si  le  nombre  de  caracteres  & 
lire  est  super ieur  au  nombre  de  caracteres  de  la  chaine,  la 
fonction  retourne  I'ensemble  de  la  chaine.  Si  la  chaine  indiquee 
est  vide,  la  fonction  retourne  une  chaine  zero.  Vous  trouverez  un 
exemple  a  la  suite  du  paragraphe  RSET. 


RIGHTS 
Syntaxe : 

RIGHTS(Vai3[,  nombre]) 

V instruction  RIGHTS  a  la  meme  fonction  que  LEFTS.  Elle  retourne 
le  nombre  de  caracteres  indique  &  partir  de  la  fin  de  la  chaine. 
La  syntaxe  est  identique  pour  les  deux  instructions.  Vous  trouverez 
un  exemple  &  la  suite  du  paragraphe  RSET. 


MIDS 
Syntaxe  : 

MI  D$(  V  ar$,position[  snombre]) 

MIO$  est  une  combinaison  des  deux  instructions  precedentes. 
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Deux  valeurs  mimeriques  ou  variables,  separees  entre  elles  par  des 
vir gules,  sent  irtdiquees  entre  parentheses  apres  Pexpression  ou  la 
variable  de  texte  a  examiner.  La  premiere  valeur  indique  la 
position  de  la  chaine  k  partir  de  laquelle  les  caracteres  sont  a 
extra  ire.  La  deuxieme  valeur  indique  ie  nombre  de  caracteres  a 
lire-  Si  la  deuxieme  valeur  est  superieure  au  nombre  de  caracteres 
situ6s  a  droite  du  caractcre  indique  (ce  dernier  inclus),  on 
obtient  le  rests nt  de  la  chalne  jusqu’a  sa  fin.  Si  le  nombre  est 
nul,  on  obtient  une  ctiaTne  vide.  Vous  trouverez  un  example  a  la 
suite  du  pa  rag  raphe  RSET. 


INSTR 

Syntaxe  : 

IN  ST  R([  nombre,  jvar_de_fi  n$ ,  var  de  recherch  e$ ) 

L' instruction  INSTR  retourne  une  valeur  numcrique  qui  indique,  a 
T inter ieur  d'une  chaine,  la  position  sur  laquelle  se  trouve  une 
autre  expression.  Ces  deux  chalnes  sont  indiquees  entre  parentheses 
en  tan  l  que  para  metres.  De  plus,  il  est  possible  d’indiquer,  a 
I'intcrieur  d*une  chalne,  la  position  &  partir  de  laquelle  doit 
commencer  ta  recherche.  Cette  derniere  indication  est  facultative. 
Si  elle  est  absente,  la  recherche  commence  k  partir  du  premier 
caractdre  de  la  chaine.  S«  la  chaine  recherchee  n’est  pas  trouvee  k 
Tinterieur  de  la  chalne  examinee,  la  valeur  0  est  retournee.  Si 
les  deux  chaines  sont  vides,  on  obtient  la  valeur  1.  En  indiquant 
la  chaine  recherchee,  il  faut  tenir  conipte  du  fait  que  la  diffe¬ 
rence  est  faite  entre  les  majuscules  et  les  minuscules. 

Example  : 


A$— "ATARI  ST** 

B$sinr  S" 

Ci="Ala** 

A%~INSTR(2,A$1B$) 

'Recherche  &  partir  du  deuxteme  caract4re  a  quelle  position  *e 
trouve  BS  &  I’itttfoicur  de  At, 
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>Rachcrche  a  partir  du  scpti£me  carsctire 
C  %=INSTR(  A  t ,  C$) 

'Recherche  a  partir  du  premier  carntt-cre 
D%=INSTR(A*ILBFT${C$J1)5 

'recherche  4  partir  du  premier  caract-cre  si  le  premier  car  act  ire 
da  C3  eat  contemi  dan*  A$  et  retourne  ea  position. 

PRINT  Aft’W'C%"D% 

U=INP{2) 

EDIT  


Sortie :  5  0  0  1 

Vous  trouverez  un  autre  exemple  a  la  suite  du  paragraphe  RSET. 


LSET 
Syntaxe : 

LSET*  Var  1  S-Var2$ 

LSET  Var£=utexte" 

LSET  Var$=expres$ion  de  ehaine  de  caracteres 

L*inst ruction  LSET  permei  de  placer  une  expression  de  texte  dans 
une  chalne  deja  existante.  La  nouvelle  expression  est  plncee  dans 
I’ancienne  en  partant  de  la  gauche.  Si  la  nouvelle  expression  est 
plus  longue  que  i’ancienne,  elle  est  tronquee  sur  la  droite.  Si, 
par  centre,  la  nouvelle  expression  est  plus  petite,  la  par  tie  non 
utilisee  est  remplie  par  des  blancs.  En  general,  il  ne  reste  plus 
rien  de  Tancienne  chalne  de  caracteres.  Vous  trouverez  un  exemple 
a  la  suite  du  paragraphe  RSET. 


RSET 
Syntaxe : 

RSET  Varl$=Var2S 

RSET  VarS-"textew 

RSET  Var$=expression  de  chalne 
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L1  instruction  RSET  a  la  mime  fond  ion  que  LSET  avec  po  ur  seule 
difference  que  le  nouveau  texte  est  place  dans  rancien  en  com- 
mengant  par  la  droite.  A  part  cela,  tout  est  identique  a  LSET, 

Exemple  pour  les  fonctions  de  texte  : 

L'exemple  suivant  met  en  evidence  que  les  differentes  fonctions  de 
texte  permettent  un  traitement  de  texte  sans  exiger  un  grand  effort 
de  programmation.  Nous  esperons  qu’il  vous  incitera  Si  6tudier  ce 
sujet  tres  interessant,  de  fagon  plus  approfondie,  Prenez  voire 
temps  pour  bien  comprendre  les  details  de  ce  traitement  de  texte  en 
miniature.  Le  fait  de  bien  connattre  ces  fonctions  de  chaine,  vous 
permettra  ume  meilleure  comprehension  de  toute  structure  de 
programme  etrang&re. 


A$="Voun  difipoaofc  par  In  »utt«  de  t  lignea" 
AS— A$+”  de  40  carac tires  chacun  pour  1b” 
B$— "  same  de  lexte.  Entree  un  texfe«T 
quelconque  (ayant  du  &ens)!.M 
-PRINT  ATte.SliAS 
PRINT  AT(6,4);BS 
PRINT 

DIM  T_«tt$(lO) 

FOR  TO  K 

PRINT  ATfl(I%+6);“  ==>  *; 

FORM  INPUT  40HTjKt|(l%) 
T_ext*(l&+  S)^T_eet4(I%) 

NEXT  F % 

PRINT 

PRINT  CHR$(£7)  ;*jfl 

PRINT  ”  Chatne  &  rechorchet  -  *\ 

LINE  INPUT  Search! 

PRINT  CHR$(27>ric" 

PRINT  CHRt(S7);"A’ 

PRINT  SPACES  (76) 

PRINT  CHRS ( 27) A" ;CIf  RS(2  7) A” 
PRINT  *  Chalne  de  substitution  :  *\ 
UNI  INPUT  -™rRepIiu:«S 
PRINT  CUES  (27) A"  ;SP ACE  $(  76) 

FOR  1%=1  TO  6 
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P__OR%^0 

ENTfcRl; 

A%=IN$TE{P„c#?5,T_ext$(I^)rS<!ftftbl) 

IT  A%>0 

P_jpa%s={A?&+  I) 

PRINT  ATfA^.I^+fyCIIRS^iV iSearehl 
PAUSE  10 

PRINT  AT{A%+  B,I?6+ 6);CHR8(27) ; V  ;SearchS 
Sj®n%-LEN(S*an:h$) 

TJL«n%=LBN<T_«xfcl(l&}) 

R_>n  %= LEN{  T_*xl «  (I  % ) )  -S_Um9$-A%+ 1 
L_te*t$^LEFTi(T_«xt$f  l&)  .A%1) 

R_t  ext  f =RIG  HT$(T_ext4  (1% )  i  R J«iS{) 

T  (IS6)  -  Ljt  ext  $ + R*plt*ce$+  BJtxtS 

PRINT  AT(6rl5(+  6);T_«et*<I&) 

GOTO  ENTER! 

ENDIF 
NEXT  1% 

FOE  m*l  TO  5 
P  ot%= 0 

#fc4 

ENTERS; 

K%-imTK{Tp_oi%,r^jxitOi%)r  -) 

IF  A%>0 

T_cxtdumniyi"MID$(T_e«t$(l%)1P_oa%fA%-T_o«%)+'*’^T_«xt.durFimyS 
V_ps%==A%+l 
GOTO  ENTERS 
ENDIF 

W_«^dumnv$^MID|[T_«tt$(I%}1P_«?fiJLEN{T_ext*(r%))-P_j>B%+ 1) 
T_extdummy t— W_crd<3iiminy$+ "  * + T__«xfcdu/amy$ 

PRINT  AT(6, 1%+ e)  ;T_txfcdummy  $ 

T^extdummyt— 

NEXT  1% 

DEFFILL  ,2,8 
PBOX  0,0,659.369 
PRINT  CHR$(27);V 
FOR I%=!  TO  5 

E^twptyl^STRINGS^X*) 

RSET  Ejmplyf =T__ext $(I % ) 

PRINT  AT(6tJ96^6);E_mpty4 
PAUSE  160 
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PRINT  AT(GJ5$+G);SFACE4(75) 

FOR  J%=0  TO  LEN(T„exfci(Xft+ft)] 

E_mptyS~SPACE9(J%) 

LSET  E_mptyt~T„cxtf(I^5) 

P  AUSE  2 
SOUND  1,12,11, S 
PAUSE  2 

PRINT  AT(e»l$S+e};E_mpty$ 

SOUND  1,0 
NEXT 
NEXT  1% 

FOR  I%=1  TO  S 

PRINT  AT(S0122);CHRi(2t);”p^tAppuyeii  aur  b  touche’* 

SOUND  1,12.6,4 
PAUSE  10 

PRINT  AT(SG(2  2)  ;CH  R$(27)  ;"q"  ;H Appuyca  aur  fe  touche” 

SOUND  1,12,6,6 
PAUSE  10 
NEXT  1% 

SOUND  1,0 
U— INP(2) 

_  EDIT _ _ _ _ _ 

Certaines  instructions  utilisees  ici  seront  etudiees  de  fagon  plus 
detail  lee  ulterieurement. 


NAME  Selected!  AS  N.cwname! 


3.2.18  Les  operations  sur  dlsguette 

NAME;  AS 
Syntaxe : 

NAME  "c hem  in  et/ou  ancien  nom  de  fichier"  AS  '’chemin 
et/ou  nouveau  nom  de  fichier'1 

La  syntaxe  de  cette  instruction  est  tres  simple.  Comme  vous  le 
voyez  ci-dessus,  deux  diffe rents  parametres  lui  sent  affectes. 
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Le  premier  represente  le  nom  de  fichier  qui  doit  etre  modifie.  Le 
second,  indique  apres  AS,  contient  le  nom  do  fichier  qui  doit 
remplacer  fautre.  Tons  ies  deux  peuvent  6tre  affectes  ou  bien  en 
rant  qu’expression  de  chainc  de  caraeteres  ou  bien  en  tant  que 
variable  de  chain©  ou  encore  en  tant  que  combinaison  des  deux.  Vous 
trouverez  dans  le  paragraphe  EXIST  la  structure  de  chemin  qui  peut 
egalement  etre  utilisee  pour  la  presente  instruction.  II  faut  noter 
que  l1  instruction  NAME  ne  peut  &re  utilisee  que  pour  une  mfime 
unite  de  disquettes  {par  ex.  A:).  Si  Tunite  de  disquettes  indiquee 
pour  rancien  nom  de  fichier  correspond  &  cell©  utilisee  actuel- 
lement,  cette  specification  peut  dispa  raftre  pour  le  nouveau  nom. 
A  Tinterieur  d1  une  meme  unite  de  disquette,  un  fichier  comenu 
dans  la  directory  principal©  peut  etre  transfer©  dans  un  nouveau 
repertoire  (si  celui-ci  existe)  par  une  indication  correspondantc 
dans  le  nouveau  nom.  11  est  evident  que  ce  repertoire  doit  etre 
cree  au  preamble  s’il  n’existe  pas. 


Exemple  : 


H.  I,M  L  1  1  m*m  - - — 

MKDIR  "Document" 

FILESELECT  "\W\Aa$ 

IF  Aal^1*  AND  A&S<>*V 

NAME  AaS  AS  "\Dceumeiit\*+  Aft* 

ENPIF 

EDIT 

MKDIR 
Syntax© : 

MKDIR  "nom  de  repertoire*1 

L’mstruetion  MKDIR  permet  de  creer  a  rinterieur  d’une  unite 
de  disquettes  quelconque,  des  repertoires,  soit  dans  la  directory 
principal©,  soit  dans  un  repertoire.  II  faut  alors  utiliser  la 
structure  de  chemin  decrite  dans  le  paragraph©  EXIST.  Une  lisle 
des  differentes  varietes  de  cette  instruction  vous  donnera  une 
premiere  vue  de  fensemble  : 
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MKD1R  "document1' 

crce  un  nouveau  repertoire  sur  la  disquette  utilises  actuellement, 
soil  dans  la  directory  principal©,  soit  dans  le  repertoire  aetuel- 
lement  ouvert. 

MKDIR  ''faXdossie^aNdocument* 

cr6e  un  nouveau  repertoire  sur  disk  B  dans  le  repertoire 
"DOSSIER_A" 

AS-“\dossier_a\“ 

MKDIR  AS+Mocumenr 

cree  un  nouveau  repertoire  sur  le  disk  actuellement  traite  dans  le 
repertoire  "DOSSJER_A" 

Un  message  d’er  reur  est  affiche  si  un  repertoire  du  m£me  nom  de 
chemln  est  deja  existant.  Des  minuscules  ont  ete  utilisees  delibe- 
rement  pour  les  norns  de  chemin  et  de  repertoire  afin  de  mettre  en 
evidence  que  le  systems  d* exploitation  lui-meme  les  transforme 
independemment  en  majuscules.  Ceci  est  realise  pour  chaque  op^- 
ration  sur  disquette.  Les  noms  de  fichiers,  par  centre,  ne  sont 
retournes  qu’en  majuscules  (par  ex.  la  chain©  de  caracteres 
retournee  apres  I1  instruction  FI  LES  ELECT  ou  DIRS). 


CHOIR 
Syntaxe  : 

CHDIR  "nom  de  repertoire" 

L*  instruct!  on  CHDIR  per  met  d’ouvrir  un  repertoire  sur  la  disquette 
actuellement  traitee.  Si  un  repertoire  est  d£ja  existant,  il  est 
ferine  et  le  nouveau  est  ouvert  C’est  tout  simplement  le  nom  du 
repertoire  a  ouvrir  qui  est  rajoute  a  Instruction  (voir  EXIST 
pour  la  structure  de  chemin).  Ce  nom  peut  £lre  contenu  dans  une 
variable  ou  bien  etre  affecte  en  tant  qu’expression  de  texts  {par 
ex.  CHDIR  "Dossier  a"). 
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RMDIR 
Syntaxe : 

RMDIR  "nom  de  repertoire11 

L*i  list  ruction  RMDIR  correspond  &  CHDIR  avec  pour  seule  diffe¬ 
rence  que  le  repertoire  indique  n’est  pas  ouverf  mais  efface. 
RMDIR  ne  peut  etre  executee,  si  des  fichiers  se  trouvent  encore 
dans  le  repertoire.  Un  message  d’erreur  est  alors  affiche.  Les 
fichiers  peuvent  etre  detmits  a  l’aide  de  V instruction  KILL, 


DIRS 
Syntaxe  : 

DIR$(num£ro  de  Punite  de  disquettes) 

Les  instructions  PRINT  DIR$(x)  ou  A$=DIR$(x)  affichent  le  nom 
du  repertoire  actueUement  ouvert.  "xM  represent©  V unite  de  dis- 
queues  sur  laquelle  s’effectue  la  recherche. 

0  unite  de  disquettes  utilise  actueUement 

1  unite  de  disquettes  A 

2  unite  de  disquettes  B 

Si  aucun  repertoire  n’est  actueUement  ouvert,  une  chains  vide  est 
retournee. 


DIR 

Svntaxe : 

DIR["nom  de  chemin"] 

L’instruction  DIR  permet  d'obtenir  de  differentes  famous,  soil  le 
listing  du  contenu  d'une  unite  de  disquettes  qudconque  sott  un 
certain  repertoire. 
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11  e$t  a  tors  possible  d’ccrire  ces  directories  dans  un  fichier  sur 
disquette  ou  de  les  sortir  sur  imprimantc  (vous  trouvcrez  plus  loin 
la  routine  *'  Procedure  Accessory'"  qui  appelle  les  accessoires 
actifs.  Si  CONTROL. ACC  se  trouve  en  mode  actif  sur  votre 
desktop,  vous  pouvez  Pappeler  en  BASIC  pour  adapter  1' imprimante, 
Cette  procedure  est  un  utilitaire  et  done  independante  du  pro¬ 
gramme.  Appel  en  mode  direct  (^Accessory).  Pour  indiquer  te  them  in, 
vous  pouvez  utifiser  toutes  les  specifications  indiquees  dans  le 
paragraphe  EXIST. 

Exemple  : 


I  PIR  ■VV* 

OU  _ 

Lt>IR 


affiche  un  listing  de  tous  les  fic  biers  non  con  ten  us  dans  les  re¬ 
pertoires  du  disque  actueUement  utilise. 


*  A$ ="  A  :\D  o  wier__n\" 
DIR  AS + BS +  *  .EXT" 


affiche  tous  les  fichiers  qui  se  trouvent  sur  disque  A  dans  le 
repertoire  "Dossier_jt"  et  dont  le  nom  commence  par  la  leltre  “’D", 
con  tenant  au  minimum  cinq  let  Ires  et  comporiant  Pextension  .EXT. 


DIR  "VVEXT"  TO  "B:\DIRECTOR\5UBD  IR_l-$UEft 

ecrit  dans  un  nouveau  fichier  tous  les  fichiers  qui  ont  ^extension 
.EXT  et  qui  se  trouvent  en  dehors  des  repertoires  situ©  sur  la 
disquette  actueUement  utitisee.  Le  nouveau  fichier  s'appelie 
SUBDIR_1.SUB  et  est  classe  dans  le  repertoire  DIRECTOR  deja 
existant, 

Si,  dans  notre  dernier  exemple,  P  expression  "LST:"  eta  it  rajoutee 
a  TO,  m  lieu  du  nom  de  chernin,  l©  noms  de  fichiers  seraient 
sortis  sur  imprimante. 
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FILES 
Syntaxc : 

FILES  ["chemin"  TO  [nom  de  fich ier]| 

Si  le  nom  de  fichier  seuL  afficlic  grace  a  DIR,  nc  vous  Buff  it  pas, 
il  est  possible  d’obtcnir  a  faide  de  rinstruction  FILES  one  lisle 
plus  detaillcc  des  fichiers.  Outre  le  nom  du  fichier,  FILES  vous 
retourne  sa  la  i  lie,  ainsi  que  They  re  et  la  date  de  sa  creation. 
FILES  est  utilisee  de  la  meme  fa^on  que  ^instruction  DIR  (par  ex., 
FILES  liste  tons  les  fichiers  qui  se  irouvent  en  dehors  des 
repertoires  sur  la  disquette  utilisee  ainsi  que  les  repertoires 
euxnmemes).  II  existe  plusieurs  possibilitcs  pour  n’obtenir,  par 
exemple,  que  la  taille  d'un  fichier.  Vous  en  trouverez  tine  a  Pin- 
terieur  de  la  procedure  "D-sixe".  Une  autre  pOSSibilite  pourrait 
avoir  la  structure  suivante  : 


@Get_ei»e 

PRINT 

U=INP(2) 

EDIT 

PROCEDURE  G*t__*iso 

FILESELE  CT‘\V"  /".Selected* 

IF  EXIST  (Selected*)  <>0 

FILES  Selectee! $  TO  "buftd&r 
BufferS  =  SPACES  (46) 

BLOAD  * bufTd ,  V  AH.PTR (But fert ) 
Dtxt6ize%  ~  VA  L(MID$(Buffer$  ,16,7)) 
ENDIF 

i  ftBTCRN _ _ _ 


Nous  faisons  tin  petit  detour  dans  Pexemple  ci-dessus  car  la  chalne 
de  caracteres  rctournee  par  FILES  ne  peut  malheureusement  pas  etre 
affectee  directement  a  une  variable.  La  ligne  contennnt  Pinfor- 
mation  est  done  tout  d'abord  sauvegardee  dans  un  petit  fichier 
pour,  ensuite,  ctrc  ecrite  grace  &  rinstruction  BLOAD  dans  un 
tampon  prepare.  Ma  intenant  la  chafne  est  disposable  sous  le  nom 
de  variable  *'Buffer$'\ 
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1L  ne  reste  plus  qu'a  convertir,  grace  a  VAL,  les  positions  de  la 
ligne  nontenant  la  tailte  du  fichier  (16-22)  en  une  valeur  nume- 
rique.  Et  voila  une  variable  nu  me  rique  indiquant  la  tailte  en 
octets,  Cest  aussi  facile  que  cela  \ 

Pourquoi  quelque  chose  de  simple,  lorsqu'il  exisie  aussi  une  ma¬ 
il  iere  compliquee.  L’exemple  ci-dessus  met  en  evidence  une  des 
fagons  d’ analyse  de  donnees  possibles, 

Le  chemiti  le  plus  facile  pour  obtenir  la  taille  d'un  fichier 
pendant  [’execution  du  programme  est  le  suivant  : 


FILESELBCT  -\* «V" ^olocfefldt 
IF  EXI S T  (  £  e  1  e c t ed J ) 

OPEN  *T,1#l(Scl«t*d4 
Data»s%sKLOF(  #  i) 

CLOSE  #  1 
EN  D  IF 

..  PRINT  Dafeai _ 


CHDRIVE 
Syntaxe  : 

CHDRIVE  numero  de  l’unite  de  disquette 

II  est  possible  de  determiner  une  unite  de  disquettes  prise  par 
dcfztut,  CHDRIVE  x  change  sur  Punite  de  disquettes  indiquee 
par  "x"  (A:  =  1,  ft  =  2).  Si,  en  indiquant  le  chemin,  aucune  unite 
de  disquettes  n'est  specif  iee  (par  ex,  MKDIR  Dossier),  le 
lecteur  determine  par  CHDRIVE  sera  desormais  appele. 


LOAD 
Syntaxe : 

LOAD  ”chemin  et/ou  nom  de  programme” 
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L’instructioii  LOAD  permet  de  charger  un  programme  BASIC  quel- 
eonque  dans  la  memo  ire  principale.  En  principe,  cette  instruction 
correspond  a  (’option  LOAD  du  menu  de  Fediteur  ou  de  Femploi 
de  la  touche  <FI>.  La  structure  de  chentin  indiquee  dans  le  para- 
graphe  EXIST  doit  etre  utilises.  Si  le  nom  de  programme  n’a  pas 
d’ extension,  I’ interpreter  ajoute  automat iquement  le  suffixe  .BAS. 

Exemple : 


LOAD  "\Udlity\TrotejdT 


SAVE 
Syntax© ; 

SAVE  "chemin  et/ou  nom  de  programme" 

L’instruction  SAVE  est  identique  &  la  fonction  de  menu  SAVE. 
EUe  permet  de  sauvegarder  le  programme  eontenu  en  memoir©  sur 
disquette  sous  le  nom  indique.  La  syntaxe  est  identique  a  cede  de 
LOAD.  Si  la  disquette  utilisee  conti ent  deja  un  programme  de  nieme 
nom,  Fancienne  version  est  effacee  ou  surimprimee  avant  la 
sauvegarde  de  la  nouvelle. 


PSAVE 
Syntaxe ; 

PSAVE  "chemin  et/ou  nom  de  programme* 

U  instruct  ion  PSAVE  est  execute©  de  la  meme  fa$on  que  SAVE. 
Eile  effre,  cependant,  encore  une  petite  possibilite  supplemental  re 
qui,  d’ailfeurs,  est  tres  impressionnante.  La  lettre  "P"  dans  le 
nom  de  Pinst ruction  sign! fie  ’'protege*'.  Cela  implique  que  les 
programmes  sauvegardes  ainsi : 

1.  m  peuvent  plus  etre  listes 

2.  sent  lances  immediatement  apres  leur  chargement  (autostart) 


-229  - 


Le  itvre  du  BASIC  CfA 


3.  la  tentative  de  traiter  le  listing  (non  visible)  avec  Pin- 
terpreteur  est  puni  par  ^obligation  d’appuyer  sur  la  touche 
<RESET>.  A  la  suite  d'une  telle  chose,  Pinterpreteur  vous 
refuse  tout  service. 


CHAIN 
Syntaxe : 

CHAIN  ''chemin  et/ou  nom  de  programme” 

En  principe,  I1  instruction  CHAIN  est  tdenlique  &  LOAD,  avec  pour 
seule  difference  que  le  programme,  amsi  charge,  est  Lance  automa- 
tiquemcnt.  Comme  pour  tout  lancement  de  programme,  toutes  les 
variables  et  tableaux  sont  alors  effaces  et  ne  peuvent  done  plus 
£tre  echanges  entre  des  programmes  pour  lesquels  CHAIN  a  ele 
utilises.  II  n’exlste  qu’un  seul  moyen  pour  utiliser  plusieurs  fois 
les  rnfmes  variables.  Toutes  les  valeurs  importantes  du  premier 
programme  que  vous  voulez  utiliser  dans  le  deuxieme  doivent  Ctre 
ecrites  sur  un  fichier  {eventuellement  a  Paide  de  PRINT  #  1”). 
Elies  peuvent  alors  y  6tre  lues  par  le  deuxieme  programme.  La 
syntaxe  de  (’instruction  CHAIN  est  identique  <1  celle  de  LOAD 
ou  a  celle  de  SAVE. 

Exemple  : 

Programme  l  : 


A-1035 
B=3SD.23 
Cf="  BASIC*1 

OPEN  "G*,# it" Vari) .Pat" 
WRITE  #t1A,B1C$ 
CLOSE  #1 
CHAIN 
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Programme  "Frag  2."  ; 


OPEN  ,,ri^ll,,V&TB.Dot" 

INPUT  #1^6,03 
CLOSE 

PRINT  "Vaii&blea  de  programme  1  :  ";A‘'BI*CS 
U*1NP(2) 

EDIT _ _ ! _ 


LIST 
Syntax© : 

LIST  "chemin  et/ou  nom  de  fichier" 

Si  vous  souhaitez  lister  un  programme  qui  se  trouvc  en  memoire 
principal©  ou  le  sauvegarder  sur  disquette  en  taut  que  fichier 
ASCII,  vous  pouvez  utiliser  I’instruction  LIST,  Si  vous  lYindiquez, 
en  mddc  direct  ou  sur  unc  ligne  de  programme,  que  le  nom  de 
P  instruction,  sans  specifier  de  nom  de  fichier,  le  programme  est 
entierement  affiche. 

Pour  la  version  1 .0  du  BASIC  GfA,  cet  affichage  du  listing  ne  peut 
plus  itre  interrompu.  Ou,  plus  exactement,  il  est  possible  de  Tin- 
terrompre  grflce  a  1’emploi  simultnne  de  <CONTROL>  el  <C>,  niais 
ceci  vous  oblige  a  appuyer  alors  sur  <RESET>  pour  pouvoir  utiliser 
a  nouveau  P  inter  preteur. 

En  version  2,0,  Paffichage  du  listing  peut  etre  terming  en  ap- 
puyant  simultanement  sur  les  touches  <CGNTROL>,  <SHIFT>  et 
<AI  TERNATE>.  11  n’est  alors  plus  possible  dc  le  poursuivre. 
Pour  cela,  Paffichage  doit  etre  a  nouveau  relance. 

Si  vous  souhaitez  seulemcm  Pin  terrompre,  vous  pouvez  utiliser  la 
function  HARDCOPY  en  appuyant  simultanement  sur  les  touches 
<ALTERNATE>  et  <HELP>.  II  faul  alors  que  Pimprimante  ne  soil 
pas  branchee.  L’affichage  du  listing  edntinuera  au  bout  de  30 
secondes  environ. 
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II  exists  aussi,  cependant,  une  vraie  fonction  d’ interruption.  Si 
vous  tapez  simultanement  sur  le$  touches  <CONTROL>  et  <S>, 
pendant  Taffichage  du  listing,  il  se  trouve  interrompu.  L’action 
simultanle  sur  <CONTROL>  et  <Q>  permet  de  le  poursuivre. 

Si  vous  souhaitez  sauvegarder  le  listing  sur  disquette  en  tant  que 
fichier  ASCII,  il  faut  indiquer  (entre  guillemets)  apres  P ins¬ 
truction  le  nom  du  fichier  sous  lequel  le  listing  doit  fctre  sau- 
vegarde.  Cette  instruction  est  rigoureusement  identique  a  1'optkm 
SAVE, A  du  menu  de  Pediteur.  II  esl  possible,  grace  a  la  fonction 
MERGE  du  menu  de  Pediteur,  d’inserer  le  programme  ainsi 
sauvegarde,  dans  un  autre  programme  en  memoire  principale.  Les 
guillemets  cntourant  le  nom  du  fichier  peuvent  disparaitre  car  ils 
sont  mis  automatiquement  en  place  par  Pinterpreteur.  Si  aucune 
extension  rfa  ete  specifiee  I’intcrpreteur  ajoute  egalement  le 
suffixc  .LST. 

Un  fichier  ASCII  contient,  dans  I’ordre  de  leur  apparition,  les 
valeurs  ASCII  (0-255)  de  tous  les  caractcrcs  de  texte  ou  de  con¬ 
trol  e  entres.  La  plupart  des  programmes  de  traitement  de  texte 
off  re  la  possibility  de  sauvegarder  ou  de  charger  des  fichiers 
ASCII.  Ces  textes  ASCII  peuvent  alors  etre  echanges  entre 
diffcrents  programmes,  systemes  d’exptoitation  et  ordinateurs,  si 
ces  derniers  utilisent  T American  Standard  Code  for  Information 
Interchange"  (angl.  :  Code  Americaim  Standard  pour  TEchange  de 
P Information).  Los  fichiers  de  format  different  comme,  par  ex., 
les  fichiers  .BAS  du  BASIC  GfA,  ont  un  code  different.  Ce  code 
peut  etre  developpe  par  le  programmeur  lui-mfime,  afin  d'augmenter 
la  vitesse  de  chargement  ou  d'execution,  pour  realiser  des  effets 
speciaux  ou  pour  rendre  la  lecture  plus  difficile  (voir  PSAVE), 
Ces  fichiers  ne  sont  alors  plus  eehangeables  avec  d'autres  pro¬ 
grammes  (interpreteurs  etc.).  Ils  «c  sont  plus  compatibles. 


DEFUST 
Syntaxe : 

DEFLIST  format 
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L’instruction  DEFLIST  permet  de  choisir  entre  deux  different 
formats  de  listing.  Le  format  choisi  eoncerne  £galement  les  textes 
de  programme  contenus  dans  rediteur. 

Defiist  0  :  les  noms  des  instructions  et  fonctions  en  BASIC  sont 
ecrits  eo  majuscules,  les  variables,  par  centre,  sont  representees 
en  minuscules. 

Exemple  : 


DEFTEXT  ,ie|(*S 

TEXT  tO  ,300 ,  CCOrF  etite  demonstration  I" 
GET  10,175 
CLS 
DO 

MOUSE  X,Y,K 
PUT  XfYtAaa$(6 
PUT  X,Y,A*t(6 
IF  k=l 

'  PUT  X^  Aaal  ? 

END  IF 
IF  k=2 


Defiist  E  ou  DEFLIST  suivi  d'un  argument  >1  :  seulement  la  pre¬ 
miere  lettre  du  nom  des  instructions,  des  fonctions  et  des  va¬ 
riables,  is!  ecrite  en  majuscules. 

Exemple : 

Un  programme  *exemple  peut  egalement  etre  utile  1 

Surtout  pour  les  tres  longs  programmes,  il  peut  etre  important 
d’afficher  ou  d'imprimer  une  liste  contenant  les  variables  et  pro¬ 
cedures  utiiisees.  Les  ficliicrs  BAS  du  GFA  permettent  de  lire 
Cette  lisle  de  variables  au  debut  du  fichier.  Le  programme  utili- 
taire  suivant  per  met  : 
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1,  de  lire  les  noms  des  variables  et  procedures  d’un  fichier 
.BAS  quelconque*  et  de  les  transferer  ensuite  dans  un 
fichier  Vars.Map.  La  liste  est  alors  affichee  aussi  sur 
Tecran, 

2.  de  lire  les  noms  de  variables  ou  de  procedures  contenus 
dans  Vars.Map.  el  de  les  afficher  sur  ecran  ou  sortir  sur 
imprimante. 


dim  A$(iceo) 

Again: 

FILESELECT  "\+.BASn  .Selected* 

IF  Selectfrdi=l,\" 

GOTO  Again 
ENDIF 

IP  Sefeeccdt-™ 

EDIT 

ENDIF 

OPEN  "  U"  ,#  1 .Selected* 

'  OPEN  "0'\#21'V»re.in*i>“ 

ALERT  1  "Enforcer  une  touche  —  ARRET"  .1 OK  A  Y"  ,Uu 
REPEAT 

Cftw«terc%=1NP(#l) 

IP  civracUcv%>Sl 

An”D 

E$=CHRS(caract4re%) 

A$(X)~A$(X)+ BS 
ELSE 

IF  Au=C 
Aa=I 

FEINT  #2;A$(X}r  -j 
PRINT  A$(X), 

INC  X 
ENDIF 
INC  Ac 
ENDIF 

UNTIL  MOUSEK  OR  LEN  (INKEYS) 

CLOSE 

OPEN  “U",#  1,'Vart.msp" 

FOR  r~l  TO  LOVUtl)  _ 
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Cw»ct«re%=INP(#l) 

IF  Cl  IRS  (tar  act£re?S  )  <  >"  " 

Aa=0 

Af(Xx)  =Af(Xx)+  CHRt  (carwUrc%) 
ELSE 

IF  Aa=0 
INC  Xx 
END  IF 
Aa=l 
INC  X* 

RNDIF 
INC  Aa 
NEXT  I 
CLOSE  #1 

ALERT  2,”  Imprinter  on  rooniteur  vid^o  ?" 

,0 imj>rimhOt*|  mczii  tevr" ,  U 

FOR  1-0  TO  Xx 
IF  0-1 

LPR1KT  A$(I)r 
'  ELSE 

PRINT  A$(I), 

ENDIF 
NEXT  I 

ALERT  1TREADY  if  V/'OW.U 
EDIT 


3,2.19  La  gestioii  ries  fieliiers 


OPEN 
Svniaxe  : 

OPEN  "[rnodef^numero  de  canal de  fiehter" 

Cette  instruction  comprend  de  nciubreuses  caracleristiques  post- 
lives.  A  premiere  vue,  sa  syntaxe  parati  compliquee.  Mais  apres 
avoir  pris  connaissance  de  f  instruct  ion*  on  apprecie  beaucoup 
ses  qualitcs. 
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Les  instructions  de  gestion  de  fichiers  off  rent  au  programmetir  un 
nombre  inf  ini  de  possibilites, 

mode  : 


"O*1  ouvre  le  fichier  pour  y  ecrire  des  donnees  ou,  si  le  fichier 
indique  n’a  pas  encore  ete  cree,  installe-le  dans  le  canal 
de  donnees  indique. 

”V  ouvre  un  fichier  pour  le  lire 

*A*  ouvre  un  fichier  dejft  existant  et  place  le  pointeur  a  la  fin 
du  fichier.  Toutes  les  donnees  a  entrer  sent  ajoutccs  ft  la 
fin  du  fichier.  Pour  ecrire  des  donnees  a  Pintcrieur  du 
fichier,  le  canal  des  donnees  indique  doit  etre  ferine  ft 
1’aide  de  CLOSE  #num£ro  du  canal  pour  etre  reouvert  grace 
a  OPEN  "O'1. 

"U"  permet  d’acc&ler  ft  un  fichier  existant  ft  la  fois  en  lecture 
et  en  ©criturc. 

’’R"  permet  de  ereer  un  fichier  ft  acces  direct  (voir  plus  loin). 


numero  de  canal  : 

11  est  possible  d’ouvrir  simultanement  100  fichiers  differents, 
chacun  portant  un  num&ro  d’ identification.  Grftce  ft  ce  numero, 
on  peut  par  exemple,  ft  Paide  des  instructions  PRINT  #  numero 
du  canal  ou  INPUT  #numero  du  canal  acccdcr  ft  chacun  des  fichiers. 
Le  numero  indique  doit  etre  compris  entre  0  et  99. 


aom  de  fichier  : 

lci>  vous  pouvez  utiliser  la  structure  de  chemin  si  sou  vent  men¬ 
tion  nee  (voir  EXIST).  II  faut,  cependant,  noter  une  exception. 
Presque  toutes  les  instructions  de  disquettes  permettent  egalement 
d’appeler  les  differentes  interfaces  de  votre  ATARI  ST.  Pour  ccia, 
il  faut  ouvrir  un  genre  de  fichier.  Fichier  ne  signifie  pas  fichier 
sur  disquettes,  rnais  le  port  en  question.  Vous  disposez  de  sept 
ports  differents  : 
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"CON:11 

port  de  la  console 

"LST:” 

port  de  t’imprimante 

’'PRN;*1 

6galement  port  de  Pimprimante 

"AUX:" 

port  de  Tinterface  serie 

’’MID:1' 

deux  ports  de  la  sortie  MIDI 

"VID:" 

moniteur-video  (CON:  transparent) 

,rIKB:" 

processeur  du  clavier  (la  machine  coeur-poumon) 

Dans  le  cas 

present,  Pensemble  de  (’expression  situee  avant  le 

signe  dgal  est 

affects  a  OPEN.  11  est  alors  possible  de  ne  pas 

indiquer  le  mode. 

Exemple : 

OPEN  "H,#l 

FOR  I%=0  TO  SI 

PRINT 

NEXT  I  % 

CLOSE  #1 
U=ltfP(2) 

EBIT 

; 

H  s’agil  ici  d’une  autre  possibilite  (voir  le  paragraphs  OUT) 
d’afficher,  sans  utiliser  le  clavier,  les  caracteres  speciaux  (va- 
leur  ASCII  0  &  31). 


Les  fichiers  a  acces  ateatoire 

Tons  les  autres  modes  d!  acces  sont  sequentiels,  c’e$t*A*dire  que 
les  caracteres  sont  lus  ou  Merits  i’un  apres  r  autre.  Cette 
sequence  nc  peut  Ctre  modifies  que  par  Pinstruction  SEEK  ou 
RELSEEK,  Les  fichiers  a  acces  aleatoire  permettent,  par  centre, 
d'entrer  plusieurs  enregistrements  qui  en suite  peuvent  ctre  appeles 
grace  a  des  identificateurs.  Urn  autre  pnra  metre  peut  alors  dtre 
ajoute  a  I’instruction  OPEN  : 

OPEN  nR'\#numero  de  canal/ nom  de  fichier'\taille  de 
I'enregistrement 
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La  longueur  de  Penregistremertt  correspond  a  une  valeur,  que 
vous  -  en  lant  que  gestionnaire  du  fichier  -  pouvez  determiner. 
Elle  indique  le  nombre  d' octets  que  vous  accordez  aux  enrqgis- 
trements  <Tun  fichier.  Si  vous  ne  ie  precisez  pas,  Pinterpreteur 
prdvoit  une  longueur  de  128  octets.  Vous  trouverez  une  description 
plus  detaillee  de  la  gestion  de  ce  genre  de  fichier  dans  le 
paragraphs  FIELD. 


CLOSE 
Syntax© : 

CLGSE[#canal3 

Terns  les  canaux  ouverts  par  OPEN  doivent  dtre  fermes  par  "CLOSE 
#numefO  de  canal11,  afin  de  pouvoir  etre  utilises  pour  un  autre 
fichier.  L’instruction  CLOSE  sans  argument  facultatif  ferme  tous 
les  canaux.  L’appel  d*un  canal  pur  OPEN  qui  n'a  pas  encore  ete 
ferme  a  1’aide  de  "CLOSE  #numero  de  canal"  entraine  un  message 
d’erreur. 


L0F 

Syntaxe : 

LOF(#canal) 

Pour  les  fichiers  sur  disquettes,  il  est  possible  d'obtentr  ieur 
longueur  s’ils  ont  un  contenu.  L’instruetion  LOF  (Length  Of  File; 
angl.  :  longueur  du  fichier)  est  Suivie  (entre  parentheses)  par  le 
numero  de  canal  du  fichier  dent  la  longueur  doit  etre  obtenue.  II 
faut  done  qu’un  numero  de  canal  ait  ete  attribue  auparavant  par 
Pinstruction  OPEN,  Vous  a  vex  deja  rencontrd  cette  instruction  dans 
Pexemple  pour  INPUTS .  En  voila  encore  d’autres  : 
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OPEN  "U,,,#11'«kh»  da  flchfce* 
PRINT  LOF _ 


A%=LOF[#.l) 


IF  LOF(#l)>$2767 

At=INPUT$(3zm(#  l) 
ELSE 

A$~INFUT$(LOF(#I),#I] 
END  IF 

PRINT  A$  :  _ 


EOF 

Symaxe : 

£OF(#canal) 

Ui  ns  (ruction  EOF(#numero  de  canal)  ne  permet  pas  (encore  une 
fois>  seulement  pour  les  fichiers  sur  disquettes)  d'oblenir  Ic 
dernier  octet  (s’il  est  existant)  du  fichier  d’un  numero  de  canal 
indique  (s’il  est  existant).  La  fonction  la  plus  importance  de 
r instruction  EOF  est  sans  doute  qu’elle  permet  d’evitcr  le  message 
d’erreur  "Fin  de  fichier  atteinte". 

Exemple ; 


OPEN  MU*\#1  "nom  de  ficJiitr" 
WHILE  EOF(#I)~C 

PRINT  iNPUT$(X,#l); 
WEND 
U^INP(2} 

EDIT _ 


Dans  le  present  exemple*  tons  les  octets  du  fichier  sont  af riches 
dans  ford  re. 
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Le  programme  ne  sort  de  la  boucle  WHILE  ...WEND  que  lorsque  la 
valeur  booleenne  de  EOF  est  egale  k  -1  (EOF  est  vrai).  Tant 
qoe  EOF  est  egale  k  0  (EOF  est  faux),  les  octets  sent*  Tun 
aprfcs  Tautre,  I  us  et  affkhes. 


IOC 
Syntaxe  : 

LOC(#canal) 

La  fo  net  ion  LOC  calcule  la  distance  entre  la  position  actuelle  du 
pointeur  et  le  debut  du  fichier.  Dans  le  fichier  ayant  le  numero  de 
canal  indique,  le  pointeur  d’ecriture  et  de  lecture  se  trouve  alors 
sur  Toctet  representant  le  numero  retourne  par  la  fonction  LOC. 


J  octet  1  |  octet  2  1  octet  3  f  octet  4  |  octet  S  |  octet  6  | 


Pointaur  (point®  aur  octet  4) 
PRINT  LOC(#l)  sortie  :  4 


Exemple : 


OPEN  "PH1#lI,,St HnajSh 
SEEK  #I,INT(LOF(#IJ/2) 

A%=LOC(#l) 

PRINT  ■’Octet ;|,iA%’rCorBct*re:-;lNPUT|(lJ#l)‘iw  ASCH:"; 
SEEK  #1,A$S 
PRINT  INP(#1) 

U=!NP(2) 

EDIT _ 
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SEEK 
Syntaxe : 

SEEK  #canal,numero  df  octet 

L*  instruction  SEEK  per  met  de  positionner  le  pointeur  du  fichier 
qui  a  le  numero  de  canal  indique,  sur  un  octet  quelconque.  Le 
premier  parametre  contient  alors  le  numero  de  canal  et  le  deuxieme, 
apres  une  virgule,  indique  la  position  sur  laquelle  le  pointeur 
doit  itre  place  (voir  exemple  pour  la  fonction  LOC). 


RELSEEK 
Syntaxe  : 

RELSEEK  #canal,nombre 

L1  instruction  RELSEEK  signifie  que  le  pointeur  est  deplace  d’un 
certain  nombre  dl  octets,  et  ce,  en  RELation  avec  le  debut  ou  la 
fin  du  fichier* 


Exemple  : 


OPEN  *U*,#rttini3ro  de  canol/’rom  de  fichier" 
SEEK  #ltINT(LOF(#l)/2) 

'Le  pointeur  se  trouve  maintenant  au  milieu  du 
Tichier  indlqufi 
RELSEEK  #1,3 

'Le  pointeur  est  d£plnc4  de  3  octets  vers  It 
'{in  du  fichier 
RELSEEK  #1.-6 

’I*  pointeur  set  deplace  de  6  octet?  vbw  le 
’dtbut  du  fichier.  II  ee  troiive  mein  ten  ant 
'3  octets  ay  ant  la  position  d^terpninfee  fi  I 'aide 
_ idcJSEEK - 
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PRINT  INP(#1) 

'La  valour  ASCII  du  caracfcAre  eitu£  4  cette 
‘position,  cst  rctourn^a. 

CLOSE  #1 _ _ 


Lorsque  vous  utilises  les  Instructions  SEEK  et  RELSEEK,  i!  fain 
essayer  de  ne  pas  placer  ie  pointeur  sur  une  position  inexistante 
du  fichier  (par  ex.  sur  une  valeur  negative  ou  apres  la  fin  du 
fichier).  Ceci  entrain  era  it  le  message  {ferreur  "Seek  error4'. 

Si  to  us  les  numeros  de  canal  du  programme  ne  sour  utilises  qu'une 
seule  fois,  vous  n’£tes  pas  oblige  de  termer  vous-ni6me  les  fichiers 
en  fin  de  programme.  Cette  operation  est  alors  effectuee  par  1’ in¬ 
ter  p  ret  eur  grace  aux  instructions  END  ou  EDIT.  II  en  va  diffdrem- 
ment  pour  Pinstruction  STOP  qui  ne  ferme  pas  les  fichiers  ou- 
verts.  Si  le  programme  n*cst  pas  poursuivi  a  Paide  de  CQNT,  il 
est  preferable  dc  termer  les  fichiers  en  mode  direct  avec  CLOSE 
(sans  indiquer  un  numero  du  canal). 

Remarque  prcliminaire  sur  les  instructions  GET#.  PUT#  et  FIELD#  : 

De  meme  que  les  tableaux  de  variables  cceupent  une  place  a  part, 
les  instructions  concemant  le  traitement  dcs  fichiers  a  acces 
direct  meritent  une  description  particuliere.  Ce  genre  de  fichier 
contenant  differ entes  indications  regroupees  sous  un  nom  general 
(le  numcro  de  champ)  peut  etre  sauvegarde  (sur  une  dimension 
settlement)  sur  disquette. 

Pour  cela,  il  faut  d’abord  ouvrir  un  fichier  indiquant  par  son 
.mode  dc  fonctionnement  quTI  ne  s’agit  pas  d'un  fichier  ft  trai- 
tement  normal. 

OPEN  "R\#!1Nom  tie  fichierjongueur  d’enregist  remen  t 

Easuite,  rinstruction  FIELD  permet  de  subdiviser  t’enregistrement 
en  un  certain  nombre  dc  champs  ct  de  determiner  combien  d’oetets 
sent  reserves  a  chacun  de  ces  champs.  Com  me  la  longueur  de 
Penregistrement  est  determinee  apres  P instruction  OPEN,  il  est 
evident  que  le  total  des  octets  de  tons  les  champs  indiqu^s  ne  peut 
depasser  cette  longueur. 
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Ce  nombre  peut,  par  centre,  etre  infericur.  Une  i'ois  la  taille  ei 
la  subdivision  d'un  tel  fiehier  definies,  il  n’esl  plus  possible  dc 
les  modifier. 

li  est  evident  que  vous  pouvez  determiner  de  nouveaux  champs  de 
doonees  a  I’interieur  d'un  enregistrement,  tout  en  gardant  tc  meme 
nom  de  fiehier.  Seulement,  dans  ce  cas  1&,  les  anciennes  donnees  ne 
peuvent  plus  elre  obtenues.  La  taille  des  champs  de  donnecs  ecrits 
&  l’aide  de  l1  instruction  PUT,  ne  peut  par  contre  plus  etre 
modifier,  car  une  partie  dcs  donnees  d’un  champ  serait  alors  ecrite 
egalemenl  dans  le  champ  suivant.  Pour  s’assurer  que  la  taille  lies 
champs  so  it  main  ten  ue  par  la  suite,  les  deux  fo  notions  de  texte 
LSET  et  RSET  sont  employees.  Elies  permettent  de  choisir  des 
variables  dont  la  longueur  correspond  a  celle  des  champs.  Comme 
cela  a  deja  ete  decrit  dans  les  paragraphs  de  LSET  et  RSET,  la 
taille  de  ces  variables  de  chaine  n’est  pas  modifiee  si  vous 
inserez  une  autre  chaine. 

Vous  devricz  prendre  so  in  que  les  variables  ainsi  preparees  ne 
soient  pas  utilisees  differement  par  la  suite,  a  moins  que  vous 
n’envisagiez  plus  d’appeler  le  fiehier  avec  V instruction  PUT#. 
Dc  plus,  il  est  impossible  d’elargir  un  fiehier  a  acces  direct 
ainsi  defini,  si  vous  ne  creez  pas  un  nouveau  fiehier  ayant 
d’autres  specifications  et  contenant  les  champs  de  don  trees  de 
fane  ten  fiehier.  Pour  cela,  il  faut  d’abord  affieher  les  champs  de 
Pancien  fiehier  grace  ft  Pinst ruction  GET#,  puis  transferer  les 
variables  eontenues  dans  ce  fiehier,  au  nouveau  fiehier. 

Pienez  soin  que,  tors  de  chaque  instruction  OPEN  concernant  un 
fiehier  deja  cree,  la  longueur  des  enregistrements  soit  la  meme  ou 
soft  plus  grande  que  fancienne.  Au  cas  oh  aucune  longueur 
d’enregistrement  n’aurait  etc  precise©,  I’intcrpreteur  la  determine 
ft  128  octets.  Si,  auparavant,  vous  avez  done  dimensionne  plus  grand 
le  fiehier  en  question,  le  programme  afflche  le  message  d’erreur 
"Fin  de  fiehier  atteinteM  jx>ur  le  cas  oil  vous  souhaiteriez  appeler 
un  champ  dont  la  longueur  depasse  celle  qui  est  indiquee. 
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Voici  un  schema  qui  mettra  en  evidence  ce  qui  a  etc  decrit  ci- 
dessus  : 


<=  un  enregiefcrefnent  =>|<— long,  enreg,  -  <5  oct.  => 


champ  1  |  champ  2  |  champ  3  |  champ  1  |  champ  2  |  champ  3  ( 

|  =10  oct,  |  =20  oct.  |  =15  oct,  |  =10  oct.  |  =20  oct.  |  =15  oct.  | 

Vous  pouvez  determiner  le  nombre  de  champs,  leur  taille  et  Ea 
longueur  des  enregistrements,  comme  vous  le  souhaitez.  Ce  choix 
n’est  limite  que  par  la  longueur  maximum  des  enregist remen ts 
(65535  octets),  par  la  limite  de  saisie  pour  une  instruction 
FIELD  (longueur  de  ligne  de  programme  =  255  caracteres  au  max.), 
par  la  necessity  que  le  total  de  toutes  les  ecritures  ou  longueurs 
de  champs  ne  depasse  pas  la  longueur  de  I’enregistrement  et  par  la 
place-memoire  disponible  sur  disquette. 

Pour  une  meillcure  comprehension,  vous  trouverez  ci-apres  un 
exemple  de  programme  qui  vous  mcitera,  nous  I'esperons,  a  faire 
vos  propres  essais. 

Le  programme  est  compose  de  trois  blocs  independants.  A  pres  les 
deux  premiers,  la  page-ecran  et  toutes  les  variables  sent  effacees. 

Un  fichier  &  acces  direct,  d’une  longueur  d’enregistrement  de  90 
octets*  est  insere  a  1’ inter  ieur  du  premier  bloc.  Grace  &  I* ins¬ 
truction  FIELD,  ces  90  octets  sont  subdi vises  en  trois  champs  de 
donnees  de  30  octets  chacun.  En  m€me  temps,  les  variables  de  chatne 
prevues  pour  representer  le  contenu  des  champs,  sont  rem plies  avec 
autam  de  blancs  que  le  nombre  d’oetets  prevu  pour  les  differents 
Champs  (ici  30  chacune).  Vous  pouvez  ensuite  saisir  six  enregis- 
trements  a  rinterieur  de  la  boucle  FOR... NEXT  (si  vous  avez 
plus  de  six  amis,  vous  pouvez  facilement  augmemer  la  valeur  finale 
de  la  boucle).  Apres  avoir  saisi  le  contenu  des  champs  qui  n’ont 
pas  tou jours  le  meme  nombre  de  caracteres,  le  contenu  des  variables 
est  place,  grace  a  I1  instruction  LSET,  dans  la  chalne  de  caracteres 
du  champ  (longueur  :  30  octets)  en  partant  de  la  gauche. 
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Ertfin,  refiregistrement  est  ecrit  sur  le  fichier  k  Paide  de  i’ ins¬ 
truction  PUT#,  en  indiquant  son  numero  (id  :  Pindice  de  la  boucle 
1%). 

Vous  trouverez,  4  l’interieur  des  deux  derniers  blocs  du  programme, 
deux  differentes  possibility  vous  permettarU  de  lire  et  d’afficher 
les  donnees  du  fichier. 


OPEN  pE,!,#lJ"Fri*ndt,,(90 

FIELD  #1,30  Aa  C_b»mp-0*,30  AS  C_h&mp  U(SO  AS  C_Jiamp.2t 
FOR  I9gs=l  TO  e 

PRINT  AT(20,il3;"Ncm  :n; 

FORM  INPUT  30,N| 

print  at(20,i tyrPttom  :rt: 

FORM  INPUT  SO.Vt 
PRINT  AT(20t13jrT^phon<! 

FORM  INPUT  30.T* 

LSET  C_h amp-OS ~Ni 
LSET  C_h«*np,lS=V* 

LSET  C__hamp.2f;=T| 

PUT  #1,1% 

CLS 

NEXT  J% 

CLOSE  #1 
CLEAR 

OPEN  *'  R"  ,#  1 Friends"  ,99 

FIELD  #1,30  AS  A*,30  AS  +*,30  AS  C* 

FOR  TO  6 
GET  #1,1% 

PRINT  "Nom  :  "tAf 

PRINT  "Pr^nojn  :  "fB* 

PRINT  "Tfilfiphone  :  ";CI 
PRINT 
NEXT  1% 

CLOSE  #1 
PAUSE  200 
CLEAR 
CLS 

OPEN  "Rr.,#!  'Frtondi^OO 

FIELD  #1,30  AB  Cbaipp.l^SO  *S  Ch^E^f.S^ASJ^mp^ _ 
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REPEAT 

PRINT  ATiJOjli^Entres  muMro  du  champ  (1-6): 

INPUT  C_hamp% 

GET  #lrC_Iiamp% 

PRINT  AT(20,t0)rNom 

:  Champ,  it 

PRINT  AT(20,lt);"Primm 

:  ";Champ.2S 

PRINT  AT(20,12);"T4ltpbone 

:  ";Ch&mp..3$ 

REPEAT 

UNTIL  LEN(INKEVS) 

CLS 

UNTIL  ASC(LEFTS(INKEY$))— 27 
EDIT 

GET  # 

Syntaxe : 

GET  #canal[,numero  de  renregisirement] 

* 

Uexemple  ci-dessus  met  assez  clai remen t  en  evidence  la  syntaxe 
et  l’utilisation  de  r  Instruction  GET#.  D’une  fa^on  genera  le,  sa 
fo notion  consist©  &  lire  un  cnrcgistrement. 

PUT  # 

Syntaxe  ; 

PUT  ^anal^numero  de  I’enregistreineiit] 

Fonction  :  ecrire  un  cnrcgistrement  (voir  au&si  GET#). 

FIELD 
Syntaxe : 

FIELD  #canal,nonibre  AS  Varl$[,nombre  AS  Var2$v.,] 

Nous  esperons  quc  la  fonction  et  la  syntaxe  de  cette  instruction 
ont  egalement  et6  mises  en  evidence  par  1'exemple  plus  haut. 
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En  general  : 

L'instruction  FIELD  atlribue  des  series  d’oetets  a  un  nombre 
quelconque  de  champs  dc  donnees.  Elle  remplit  les  variables  de 
chaine  prevues  pour  ces  champs  par  un  nombre  de  blancs 
correspond  ant. 

H  faut  no  ter  qu'une  instruction  FIELD  seulement  est  autorisee 
pour  un  canal  de  donnees  ouverl  en  mode  "R'* 1.  Si  Ton  essave  de 
donner  plusieurs  instructions  FIELD  au  meme  canal  de  donnees, 
le  programme  affiche  le  message  d’erreur  'Seul  un  champ  est  pas¬ 
sible  avec  un  OPEN  "R,n.  II  est  done  conscille,  pour  les  champs 
de  donnees  plus  longs,  dc  choisir  les  noms  de  variables  de  ebaines 
les  plus  courts  possible,  In  longueur  de  V instruction  FIELD 
eta tu  iimttde  par  la  longueur  maximum  d’une  ligne  de  saisie  (256 
caracteres). 


DFREE 

(F 

Syntaxe : 

DFKEE(«umero  de  V unite  de  disquettes) 

L’instruction  DFREE  retourne  la  place-memolre  actuellement  dispo- 
nible  pour  l’unite  de  disquettes  indiquee. 

Example  : 

A%~PFKEEfO) 

ou 

I  PRINT  DFREEm _ _____ _ 

Comme  nous  I’avons  deja  die,  un  numero  est  affccte  aux  unites 
de  disquettes,  permettant  de  les  appeler  lors  d’  instruct  ions 
comme  DFREE.  15  unites  de  disquettes  peuvent  Cl  re  appclees  au 
maximum  (lecteur  dc  disquettes  actuellement  utilise  =  0  ;  A; 
=  I  ;  B:  ■  2  etc..). 
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END  IF 
ENDIF 
END  IF 
ENDIF 
ENDIF 
ENDIF 
ON  ERROR 

PUT  25C,160,B  ackrnenuS.S 
(jUSET.p&raa 
RETURN 

Procedure  N.ame_Brror 

’Lora  de  la  modification  d'lin  nom  de  fichiei,  a ’Ll  y  a  bo  une 
’erreur  dans  1ft  nom  du  chemin  de  selection,  le  programme  ee  tranche 
'Bur  la  prftsente  procedure, 

IF  ERR=-34 

ALERT  3,“ Nom  du  chemin  erroner|R*commence*IM  *  OKAY  MOtklt 
RESUME  N.&meagain 
-  ENDIF 

RESUME  NEXT 
RETURN 

PROCEDURE  SI. come 

'Id,  la. menu  LOAD  ot  SAVE  cet  trace  «t  utilise 

DEFFILL  ,0,0 
PBOX  258,158,382,272 
DEFTEXT  1,9 ,0.6 
IF  F*op»%=l 

TEXT  27S,168,"SAVIMG 
ENDIF 
IF  F.ops%=2 

TEXT  278,168,-LOADING  :p 
ENDIF 

GRAPHMODE  2 
FOR  l9S«0  TO  1 

DEFTEXT  I,I6fI%sC,6 
TEXT  278,184  “SCREEN.  1* 

TEXT  278,1S>6, "SCREEN. 21* 
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TEXT  278,208 ,-ICONB" 
TEXT  278,220 ."MOTIF* 
TEXT  278,232," 

NEXT  I % 

PAUSE  10 
GRAPHMODE  3 
DEFFILL  ,2,8 
REPEAT 

MOUSE  XXK 

Xpos%=0 

Ypoe%=0 


'La  definition  d’un  indice  par  une  option  du  menu  6  ete  dfcrlte 
'plus  hawt 

IF  X>258  AND  X<382 
Ypos%~INT((Y-lS3)/l2) 

IF  Ypofi%>0  AND  YPo8%<G 

PBOX  289,163+  (Ypo6^‘il2),S811l,75+  (Vpoe%*12) 
“PAUSE  6 

PBOX  28&,l6S+(Ypos%+  1 2)  ,3*1,175+ (Ypw9&*12) 


'Afin  dc  mettre  en  Evidence  lee  options  de  menu  sLt«6s  boub  le 
'curseur  de  la  souris,  une  PBOX  noire  cst  pl&cee  en  GRAPHMODE  3 
’deux  fois  do  suite  sur  la  Upne  en  quest  ion. 

ENDIF 

ENDIF 

UNTIL  MOUSEK  OR  LEN(INKEYI) 

GRAPHMODE  1 

IF  X>268  AND  X<3S2  AND  Ypoa%>0  AND  Ypoi%<6 
IF  F,ops%=3  AND  OR  Ypos^=2) 

ALERT  1  "La  page -4cran| act uelle  agt  effnc6c|A  cause  du 
chargementr,0,“  OKAY  |  NON  -,Backftkrt% 

IF  Back»krt%=2 
GOTO  No. load 
ENDIF 

ALERT  2,*  Quel  format  d^craniJPRO- 
PATCH!DEGASiMAPS&LEGENDS,,,ir  PRO  JPEG  AS)  MAPS", Back  alerts 
IF  Be>ek.&lert9il=l 
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Sc.offeefe%=0 
ELSE 
Sc-offset 
ENDIF 
ENDIF 
Start,  select; 

FILESELEOT  "W  V"  .SdeetcdS 

IF  Selected!  <>»y  AND  Selected!  <>*.BLO"  AND  Selected$>"" 

'La  n^ceasite  de  ce  test  IF  cat  gtudiie  dans  te  paragraphs 
'FILESELEOT 

IF  F.ops%=l 
IF  Ypoa%=l 
DEFMOUSE  2 
E  xtensjon$:=''PRO" 

@  Extend 

'E.xi«Mion)  determine  1 e  auffixc  pour  ie  group*  d«  fichiera  en 
question.  Cette  indication  sera  u tillage  &  i’interieur  de  la 
’"PROCEDURE  Extend"  afin  de  rem  placer  on  d’ajoutcr  dee  extensions 
'fauEses  ou  abeentea  (.PRO  =  Extension  pour  pages -ier  ana  entiera  de 
'"Graf  Pro") 


PUT  0,0,screcn.un3 
{Silt  demouse 

BSAVE  Selected! ,XBiOS(2)  ,32C0O 


BSAVE 
Syntaxe  : 

BSAVE  "chemin  et/ou  nom  du  fichier'\adresse  de  debut ,nombre 

II  s’agit  d'une  instruction  de  comfortable  a  laquetle  vous  aurez 
SQUvent  recours,  BSAVE  permet  de  sauvegarder  sur  disquette  urn 
certain  nombre  df  octets  RAM  en  un  seul  bloc. 
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II  faut  alors  indiquer  le  nom  du  fichier  dans  lequcl  le  bloc  doit 
filre  sauvegarcle.  L’adresse  de  la  memoirs  principle  sous  laquelle 
se  trouve  le  premier  octet  du  bloc,  est  spec  if  ice  aprcs  une 
virgule.  Apres  une  autre  virgute  se  trouve  le  n ombre  d’octets  ft 
lire  et  &  sauvegarder.  Dans  i’exemple  plus  haut*  toute  la  memoire- 
ecran  visible  (adresse  de  debut  -  XBIOS(2))  est  transferee  sur 
disquefte. 


#SIIOWMOUSE 
DEPMOUSE  0 
ENDIF 
IP  Ypos%"2 
PEFMOUSE  3 

E .  xt  e  nBion  $ = 11 P  RGrt 
©Extend 

PUT  O.O^ecroon.deuxS 
©Hidemouse 

BSAVE  Sekt*«dg,Xhioii(2)  ,32000 
©SHOWMOUSE 
'  DEPMOUSE  0 
ENDIF 
IF  Ypos%^3 
DEFMOUSE  3 
E  Jtt  bus  lon$=“  ICN‘* 

^Extend 

BSAVE  Select ed$ ,VARPTR(M c.pftrt 3) ,LEN(Mcpart$) 
DEPMOUSE  0 
ENDIF 
IP  Ypot%-A 
DEFMOUSE  2 
E  .x  t@  naion  8 F  AT" 

©EXTEND 

BSAVE  Selected  S , V  ARPTR(Potword%  (0))  ,64 
DEPMOUSE  0 
ENDIF 
IP  Vpos%^S 
ENDIF 
ENDIF 
IF  P.opE%=3 
IF  YposSS=l 
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'Id,  une  image  PEO  ow  DEGAS /MAPS  est  charge  pour  PAGE-ECRAN  UN 

<§HidemouBe 

PUT  640 ,40 0 ,  ac  re  en .un $ 

CDS 

BLOAD  Selected $,Xbl O S ( 2 J  -i  Sc.off5et% 

GET  €, 0,639, 399, Screenfix -lift! 

GET  0,0 ,3 19, 1 99 ,F. Screen! (0) 

GET  330,0 ,639, 1 99, F -Screen 9(1) 

GET  0,200131&1S©91F.ScPee»)j(2) 

GET  320 , 200,639,309 ,  F . Screen# ( 3) 

Scree  n.un$  =Screenfix  un  $ 

(S&howinoUBe 
Sc. offset  %=0 
ENDIF 
IF  VpoH%— 2 

'La  mime  chose  pout  3  b  PAGE-ECRAN  DEUX 

"  @Hidemo«gc 

PUT  640 ,400, screen .deux! 

CDS 

BLOAD  Selected!  ,XBI OS ( 2 J  +  S  c-offse  t% 

GET  0,C,819,199,F.Scrcenl(0} 

GET  320,0, 039  f199,F. Scree  n$(l) 

GET  01200.319JS&9,F. SereenS (2) 

GET  320,200 ,630, 309,F. Screen! (3 J 
GET  0 ,0,639,399, 5 croc  n  fix  .deux$ 

Screen .  de  ux$ = Screenftx .  de  u  xf 
(f>S  bow  mouse 
Sc.offeetSS=0 
END  IF 
IF  Ypos%=3 

IF  RlGHT!(SelectedS,4]=MCNfl 

'Lcs  icSnee  iauvegardie*  avec  l’extenaion  ,ICN  sent 
’chargees  dans  ce  bloc 

DEFMOUSE  % 

(S)D  site  (Selected!) 


I 
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'La  talllc  dc  I1  leone  cst  aloes  obtenue  grace  &  "PROCEDURE  D-aite" 

Me  partt=SPACEt(Dat*iEc%) 

'Eneuite,  ]a  chain e  de  carocttrea  qui  doit  contend  I'icane  est 
'adaptie  a  cetfce  taille  ... 

BLOAD  Selected? .VARPTR (Me. part 3} 

’..-Ct  l'icone  eat  chargee  sous  I'adre&se  de  dihut  de  cette  chalne 

DEPMOUSE  0 
ELSE 

ALERT  1, "Cette  fonefcion  ne  permet[de  charger  que  den 
ficliiereflCN  !rl  ^/’Reconmvencer  [Continuer  ".Back  alert  % 

IF  B*cknlert%=l 
GOTO  Start  .select 
ENDIF 
END  IP 

'Endif 

IF  Ypos%=4 

IF  RIGHT? (Selected $,4)=''  .PAT" 

'Pour  charger  dee  mot  if  ft  dn  rampliesage  &  partir  de  la  disquette, 

*i\  font  foire  quelquee  priparat  Ifs. 

DEFMOUSE  2 
ERASE  Patword%() 

DIM  Fatwordft(lE) 

'Determiner  lea  dimensions  do  tableau  qui  doit  contemr  different  os 
■valours  de  lignes 

ARRAYFILL  Patword%()tl 

remplir  lea  dlffirenta  iliraenti  du  tableau  por  dea  una  ... 
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ARRAYFFLL 
Syntax© : 

ARRAYF1LL  nom  du  tableau(),valeur 

L’instruction  ARRAY  FILL  permet  de  remplir  (angl.  :  fill)  tons  les 
elements  d’un  tableau  (angl.  ;  array)  par  une  valeur  indiquee.  Le 
nom  du  tableau  est  indique  suivi  de  parentheses  vides  et,  apres  une 
virgule,  la  valeur  avec  Jaquelle  I©  tableau  doit  £tre  rempli. 

Ancienne  method©  : 

DIM  A^rray%(iO,S3ite) 

FOR  A9S-0  TO  20 
FOR  B56^0  TO  S3 

FOR  CSM*  TO  16 
A_r«,y9s  f  ass  ,n%,c%) =2$r 

NEXT  C?S 
'  NEXT  B% 

NEXT  A%  -  :  -  -  


L’instruction  en  BASIC  GfA  : 


DIM  A_rr»y%(  20,32,  IS) 
ARRAYPftL  A_rray%0.^7 


II  est  egalement  possible  d’utiliser  des  tableaux  contenant  des 
valeurs  booleennes  ou  des  nombres  entiers. 

BLOAD  Selected^ ,VARPTR(P at word%(£>)) 


et  charger  le  bloc  de  lignes  sous  P&dresee  de  debut. 


DPOKE  Confcrl+2  0 
DPOKE  ContrJ+6,1® 

DPOKE  Contrl+12,2 
FOR  3=0  TO  16 

DPOKE  Intro*  J*2,Patword%(J) 
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NEXT  J 
VDISYS  m 

'Pour  un«  metlleure  comprehension  de  cette  fond  ion  sous  G  EM,  voir 
'"PROCEDURE  Pafcedit"  et  "GEM". 

DEFMOUSE  0 
ERASE  Potword%() 

ELSE 

ALERT  1*  Cette  function  ne  permet  |de  charger  flue  dea 
fichicm|.PAT  r ,  1 Recom  mence  r  |  C  out  i  nuer*  Back  alert  % 

IF  Backalert$6=l 
GOTO  Si  art  .select 
ENDIF 
END  IP 
ENDIF 
IF  Ypos%=B 
ENDIF 
END  IP 
ENDIF 
ENDIF 
No.  toad: 

RETURN 

PROCEDURE  Predaf* 

'Procedure  pour  preparer  le  programme 
D IM  T  .extvar  (4 )  ,T_grow?$(l)  ,T_sigrv%(l) 

DIM  Pl.nxx(0),Fl.«yy(©JJPlnx(6)1Plny{6),F,icreen$(3),D1modeJ(2g,3 
j^msrktOjYwQrkfl) 

^CILpprec(S) 

G  ET  0,0,639,399 .Screenful .uni 
GET  0,0, 639 .399,  Screen  fix.  deuxi 
GET  D(0,B39,399,Screen.imS 
GET  0 ,0 ,6  SO ,300, Screen .deux$ 

DIM  M_tabLcau$(l$),Patword%(l6) 

RESTORE  M.tableau_  textc 
FOR  1=0  TO  IB 

READ  M_tab!cau»(I) 

EXIT  IF  !M_T able  aul  ( I)  ~  "  X  XX" 
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NEXT  1 

M_Tableau$(I)="" 

RESTORE  mode  text 
FOR  1-1  TO  25 
FOR  J-l  TO  3 

READ  D.mo<k$(lhJ) 

NEXT  J 
NEXT  I 

T.exlvnr  (l)=l 
T.cxtvi*r  (2)=0 
T.exivar  (3)— 0 
T.extv&r  (4)=13 
Long  ueur_paaS^=  1 
Quadmod%=3 
TrcoI%“l 
D  .rawmode%~  1 
COLOR  1 
DEFLTNE  04,0,0 
RmotLf%=0 
'  R*modfc%— 0 
Trlnrge%=l 
Trt)*pe95  =  l 
C.lipp?£=2 
C»rnfrnod%=l 
Trf1ag?£=l 
Mc.donc%=l 

RETURN 

'Maintcnant  eutvent  lea  25  procedures  affichnnt  tea  diffcrctiU 
grnphLqucs 

'(carrA.cerdtjrectanglej.traics.rempliesage^ptRy.etc..,} 

'Toutes  lee  procedures  60f)t  appeless  ft  parti r  de  la  "PROCEDURE 
'branch  erne  nt*. 

PROCEDURE  F.srecp 

'F.srecp  =  Filled  sharp  Rectangle  Patchmode 

—  rectangle  rcmpli  coins  aigus  en  mode  Patch 
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GRAPHMODE  S 
(®D.ef patch 

*L»  procedure  J,D  .efpatch*  d6t  ermine,  cn  fond 5 on  den  coordonneea  de 
‘la  position  de  la  sourU,  lea  coordonnges  polyline  du  premier 
Ylemenl  graph ique  nfin  d'obtcnir  un  contour  net  do  la  Pbox 
'(Igalement  pour  lea  lienee  plus  ^pais&cs). 

DEFLLNE  Trtype%,Tri^rge$S,0TC 

PBOX  X-ivtoitle%lY-moi$ie?S1X'r  *naitic%,Y+iTioitie% 

*La  Variable  "moitic%"  c&fc  miee  cn  place  pour  que  le  cu  recur  de  In 
'souris  reate  tou jours  au  milieu  de  Ja  bolts.  Sinuii,  le  curseur  de 
la  sourb  ®e  trouverait  dana  le  coin  aup^rieur  gauche  de  la  bolte, 

'ce  qni  dctrULratt  la  syrnitrie  de  l1  image  lore  da  lu  fonction 
’mi  rob. 

POLYLINE  6,Plnx(),Plny() 

PBOX  X-moitic^Y-moitie^^X  hmoitie%,Y  !  moitie^S 
POLYLINE  e,PlnxO,PlJiy() 

GRAPHMODE  Grafmod% 

IF  K^l 

PBOX  X’moItie%1Y-nioitiB%1X“fnoitir%1Y-n*oiti*% 

POLYLINE  fi,Pliut(),Plny(} 

END  IF 
RETURN 


3.2,20  Troisieme  partte  Eriinli ique 


POLYLINE,  POLY  FILL,  POLYMARK 
Syntaxe : 

POLYFILL  nombreTXpC),YpC)  [Offset  Xo,Yo] 
POLYLINE  norabre,X p( ) , Yp( )  [Offset  Xo,Yo] 
POLYMARK  nombre,XpQ,Yp()  [Offset  Xo,Yo] 
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Ceux  qui  s’interessenl  A  la  programmation  sur  irois  dimensions 
seront  enthousiasmes  par  la  presente  instruction.  Les  prepara tifs 
comprennent  la  definition  de  deux  tableaux  numeriques  sur  une 
dimension  ainsi  que  leurs  elements.  Le  nombre  d1  elements  du  tableau 
est  determine  en  fonction  du  nombre  des  points  qui  doivent  etre 
appeles.  Les  valeurs  X  des  coordonnees  des  points  sont  entrees  dans 
Tun  des  deux  tableaux  et  les  valeurs  Y  dans  r  autre. 

Les  instructions  ont  les  functions  suivantes  : 

POLYLINE 

relie  les  points  definis  auparavant  par  des  droites  du  type  choisi. 
POLYFILL 

fait  exec uter  Polyline  et  remplit  les  parties  internes  du  motif  de 
remplissage  choisi. 

POLYMARK 

marque  les  points  definis  par  le  symbole  choisi. 

* 

Ces  trois  instructions  utilisent  les  monies  caracteristiques  que 

ceux  de  DEFLINE,  DEFFILL  et  DEFMARK. 

Le  premier  point  k  definir  est  place  dans  Pelement  zero  des 
tableaux,  les  deux  eontenus  de  ces  elements  etant  utilises  com  me 
valeurs  de  coordonnees.  II  est  possible  d’indiquer  au  maximum  128 
points.  Si  vous  souhaitez  tracer  un  poly  gone  ferme,  il  faut  prendre 
soin  que  le  dernier  point  so  it  identique  au  premier. 

Pour  ne  pas  £tre  oblige  de  redefinir  les  paires  de  coordonnees  k 
chaque  fois  que  la  meme  figure  doit  tire  tracee  sur  une  position 
differente,  il  est  possible  d’ajouter  {'instruction  OFFSET.  Elle 
per  met  le  deplacement  de  la  figure  d'une  certaine  valeur  (positive 
ou  negative)  dans  la  direction  X  et  Y.  Pour  une  meilleure 
comprehension  des  fonctions,  de  leur  svntaxe  et  de  leur  effet,  vous 
trouverez,  page  suivante,  un  petit  exemple  de  programme. 
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DIM  X{&),Y(6) 

G&APHMODE  $ 

DO 

FOR  1=0  TO  4 

Aa=!NT(RHD*&}+ 1 
Bb-INT(RKD*24) 

C$— RANDOM  (5) + 1 
Dd=RANDQM{2) 

Ee=RAND  OM(2) 

X<f)-RANDOM(400)*  120 
Y(I)=RANDOM(260)+  70 
NEXT  I 
X<1)~X(0) 

Y(l)=Y(0) 

DEFMARK  ,A&,80 
DEFFILL  1,2,8b 
DEFLINE  Cc,l»D<I»Et 
POLYMARK  S,XQfYQ 
POLYFILL  SpXO.YO 
Foft  TO  s 

FOR  !%«$  to  00  STEP  3 

POLYLINE  VJCQ.YQ  OFFSET  1%J% 
NEXT  1% 

FOR  I%=SD  TO  3  STEP  *3 

POLYLINE  E3X0,Y0  OFFSET  1%,1% 
NEXT  i% 

NEXT  J% 

POLYMAEK  6,XQ  ,Y() 

FOLYFILL  5,XQ,Y() 

EXIT  IF  MOUSEK 
LOOP 

GRAPiaiODE  1 
EDIT 
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PROCEDURE  L  srecp 

'Lmcp  =  Lin*  sharp  Rectangle  Patchmode 
?=  rectangle  contour  coins  aigue  en  mode  Patch 
GRAPHMODE  3 
<aDefpatch 

DEPLINE  Trtype^.Trlnrge^D.C 
POLYLINE  6,Plnx(),PLnv(J 
POLYLINE  6,PlnxO,Plny() 

GRAPHMODE  GrBfmod% 

IF  K=l 

POLYLINE  6,Plfix(),PLny() 

ENDIF 

RETURN 
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PROCEDURE  A-sreep 

'A  .arecp  =  Area  sharp  Rectangle  Patch  mode 
=  rsctangla  surface  Bans  contour  coins  avgus  en  mode  Patch 

GRAPHMODE  3 

PBOX  X-moitic%iY-moiti*%1X+nnoitie%lY+  ittDitk% 

PB  OX  X  -molt  Le%,Y -rnoltie%,X+  moltle% , Y  +  moitie% 
GRAPIIMODE  Grafmod^ 

IF  X=l 

@CDnfcour(0j 

’La  “PROCEDURE  contour’1  permit  d’&fffcber  at  d'eff&cer  te  contour 
■dee  tones  iona  PBOX.  PRBOX,  PCIRCLE  ot  PELLIPSB  grfice  A  une 
'fonct ion  sous  GEM  (O  =  affich4  ;  1  ~  abeent), 

PBOX  X-mojtio%.Y-moifcie9ti(.X+- moiUc%,Y+  mottled 
@Contour(l) 

ENDIF 

RETURR 

PROCEDURE  F.rrecp 

'F.rrecp  =  Pilled  round  Rectangle  Patchmode 
'=  rectangle  rempK  coins  arrondis  en  mode  Patch 

GRAPHMODE  S 

PRBOX  X^moitle^.Y -moiti e$o,X + moitie%,  Y  +  moitie^a 
PRBOX  X-moitio/?i,Y-moitie%,X+  moitie%,Y+mo3ti*$S 


PRBOX 
Syntaxe  : 

PRBOX  Xsg^sg.Xid^id 

L’ instruction  PRBOX  correspond  a  PBOX  avec  pour  seule  difference 
que  les  rectangles  traces  ont  des  coins  arrondis. 
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GRAPHMODE  Grafmt*J% 

IP  K=1 

PRB OX  X-moi tic% , Y -moitie% ,X  +  moiti®% ,  Y  +  moi tie/? 

ENDIF 

RETURN 

PROCEDURE  L.rrecp 

'Line  round  Rectangle  Patchmode 

’rectangle  contour  coins  arrondls  en  mode  Patch 

GRAPHMODE  a 

DEFLINE  TrtypeS6,Tr large?? ,0,0 

II  BOX  X“mottie?fi,Y-moltie$tpC+ moitie9fi(,Y+  moi  tie?? 

RB  OX  X  -  moi  ,  Y  -mo»t»o%  ,X  4  moi  tie%  ,¥  +•  molt  ie% 

GRAPHMODE  Grafmod% 

IF  K=1 

RBOX  X“moitie?5,Y-moitie%1X4  moitie%,Y  4  moi  tie?? 


RBOX 
Syntaxe : 

RBOX  Xsg,Ysg,Xid,Yid 

La  syntaxe  et  la  fonction  de  I'instruction  RBOX  correspondent 
exactement  a  celles  de  PBOX  ou  PRBOX.  RBOX  permet  de  tracer 
un  contour  &  coins  arrandis. 

END  IF 
RETURN 

PROCEDURE  A.rrtep 


’A  irecp  —  Area  round  Rectangle  Fetch  mode 

=  rectangle  surface  B-ana  contour  coins  arrondia  en  mode 

Patch 

GRAPHMODE  3 

PRB  OX  X  -moi  tie%  ,  Y  -molt  le  %  ,X+ moi  tie?? ,  Y  4  moi  tie% 

PRB  OX  X  -n»ltie9fi,Y -moitieK  ,X+ nnoitjeS?  ,Y  4  moitie% 
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GRAPHMODE  OrafmodW 
IF  K=1 

(fCointour(Q) 

PRBOX  X  -  rnoitifl%,  Y  -  rooitie??  ,X+ moitie^  rY + moitie% 
@Contcur(l) 

EKDIF 

RETURN 

PROCEDURE  F.cp 

'F.cp  =  Pitted  Circle  Patch  mo  due 
1  =  cercle  rompli  en  mode  Patch 

GRAPHMODE  3 
P CIRCLE  XtY,moitie?? 

PCIRCLE  X,Y,radtie9$ 


PCiRCLE 


Syntax^ : 


PCIRCLE  Xcent,Y cent,rayon[  ,angte  initial^  ngle  final! 

L’lnstruction  PCIRCLE  per  met  de  tracer  un  cercle  rempli  par  un 
motif  de  remplissage  choisi.  Grace  aux  para  met  res  4  et  5,  il  est 
possible  de  representer  des  arcs  de  cercle.  Pour  cela,  il  faut 
introduire  Tangle  initial  et  Tangle  final  de  Tare  de  cercle:  La 
circonference  esc  aiors  divide  en  1/10  de  degre  (0-3600).  L’angle 
de  0  se  trouve  a  droite  du  centre  et  s’ouvre  dans  le  sens  des 
aiguilles  dTune  montre.  L’arc  de  cercle  de  90  degrfes  situe  en  haut 
a  droite  a  done  Tangle  initial  0  et  Tangle  final  900. 


La  signification  des  parametres  : 


1  ier  parametre 
2ieme  parametre 
3  i  feme  parametre 
4ifeme  parametre 
Sterne  parametre 


coordonnee  X  du  centre  du  cercle 
coordonnee  Y  du  centre  du  cercle 
rayon  du  cercle 
angle  initial  de  Tare  du  cercle 
angle  final  de  Tare  du  cercle 
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GRAPHMOOE  Grafmod% 

IP  K=1 

PCIRCLE  XiY,moitie% 

ENDIF 

RETURN 

PROCEDURE  L,cp 

'L.cp  =■  Line  Circle  Patchmode 
’  =  ccrclc  contour  eti  mode  Patch 

GRAP1IMODE  3 

DBFLINE  Trtype%,Trlarge%rO,0 

CIRCLE  X1Yrmoitie% 

CIRCLE  X,Y,moitie% 


CIRCLE 
Syntaxe : 

CIRCLE  milieuX  jniIieuY,rayon[,angle  initial,  angle  final] 

L’instruction  CIRCLE  correspond  a  PCIRCLE.  L’ element  trace  n’est 
constitue  eependant  que  de  la  iigne  circonfcrenlidle  (sans  motif 
de  remplissage). 

GRAPHMODE  Gr*rmod55 
IF  K“i 

CIRCLE  X.Y.mtnfcio^ 

ENDIF 

RETURN 

PROCEDURE  A.cp 

’A,cp  =  Area  Circle  Patch  mode 

'=  cerde  surface  sans  contour  en  mode  Patch 

GRAPHMODE  3 
PCIRCLE  XfY,moitie% 

PCIRCLE  X(Y,moitie% 

GRAPHMODE  Grafmod% 
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IF  K-i 

@Contour(OJ 
F  CIRCLE  X,Y,moitie56 
@<ContoUr(l) 

EXDIF 

RETURN 

PROCEDURE  lcoivp 


Cette  procedure  per  met  d’employer  les  icones  que  Ton  a  soi-meme 
definies.  En  general,  eiles  sent  sauvegardees  en  tant  que  variables 
de  ehaine  "Me.  PartS".  Les  parties  de  I’ image  marquees  par  MOVE/ 
COPY  sont  af  fee  tees  a  ces  variables.  Ceci  offre  la  possibility 
de  dessiner  avec  ces  parties  egalement  en  mode  SELF.  II  suffit 
de  marquer  une  partie  de  Pimage  grace  aux  deux  fonctions  de  bloc, 
d’eteindre  ensuite  la  fonction  de  bloc  utilise®  et  de  choisir 
I’ option  SELF  du  menu  graphique.  Le  dernier  bloc  defini  est  alors 
a  IT iche  en  dignotant.  II  est  possible  de  le  deplacer  a  I’ aide  de 
la  touche  gauche  ou  droite  de  la  souris,  la  distance  entre  curseur 
de  la  'souris  et  icones  restant  alors  la  meme.  S’il  vous  arrive 
d’avoir  fait  disparaltre  l*ic6ne  vers  un  cCte  de  Fecran  et  si  vous 
ne  le  retrouvez  plus,  ii  suffit  de  cliquer  a  nouveau  V option  SELF 
du  menu  graph ique.  Vous  verrez  alors  FicOne  riapparaltre  dans  le 
coin  superi eur  gauche  de  Pecran, 

Les  icOnes  counties  par  P  edit  eur  dcs  icOncs,  ainsi  que  les  parties 
de  Fimage  chargees  dans  le  menu  SPECI  grace  a  Ea  fonction 
BLOCK -LOAD,  sont  Cgalement  affects  a  "Mc.partS”.  Ceia  ne 
pose  done  aucun  probleme  de  creer  des  bibliotheques  entieres  de 
parties  d1  images  et  d' icones.  Ceci  permet  meme  l'enregistrement 
d'une  image  de  faille  queleonque.  Pour  cela,  les  differents 
caracteres  doivent  alors  etre  census  a  Paide  de  Pediteur  des 
icOnes,  et  sauvegardes  sur  disquette  grace  a  la  fonction  SV  de 
Pediteur.  Ensuite,  il  est  possible  de  charger  ces  caracteres  avec 
ia  fonction  BLOCK -LOAD  et  de  les  afficher  a  Paide  de  la  fonction 
graph  ique  SELF,  lls  sont  representes  en  4  modes  graphiques 
differents  ou  bien,  agrandis,  diminu£s,  representes  en  effet  miroir 
sur  deux  dimensions,  en  forme  de  tonneau  ou  de  vague  grace  a 
Peinploi  simultane  des  touches  de  fleche  et  <SHIFT>  ou  des 
fonctions  de  fleche  en  COPY  ou  en  MOVE. 
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Presque  aucune  borne  nre$t  wise  devant  votre  imagination.  Profitez- 
en  1 

MOUSE  In.x%,In.y%,K 

Tour  rcndre  Jea  coordonnic®  dc®  l©6n«*  mdepcndantcB  de  1ft 
'position  de  is  Bouris  et  pour 

"Icb  me  tire  en  Evidence  &  Pint  tir  lour  do  In  procedure,  do  a 

'variables  speckles  sont  ddinies, 

’indiquant  toujour 9  la  position  acEuelle  de  la  sourl®. 

IP  K~0 

’Cette  partie  du  programme  n'eat  parcourua  que  ci  aucune  touche  de 
'la  aourte  n’est  cnfonccc. 

Put  T  cnx% ,  leny  %  ,M  c .  p  nrt$  ,6 
Put  lcrix.%  .Icny .Me -par  t$  ,6 

'Erf  choisiM&nt  Toption  SELF,  Le*  variables  "Icnat^  et  "Ieny%"  Be 
’irouvent  toujoure  eur  tero  (voir  "PROCEDURE  Set  graf mode"}.  Ellen 
’represented  aloe#  la  position  iur  laqucll*  eat  place  le  coin 
’sup£rieur  gauche  de  I'icOne,  si  une  de®  deux  touches  de  ]a  souris 
'eat  enfont.ee. 

MOUSE  X.f«c%JY.fi*%1Bufcfcon% 

'Afin  de  a  avoir  &  quelle  position  se  trouve.it  la  sourie  au  moment 
’oti  une  louche  a  £t£  enfoncie,  d'autros  variables  de  ccordotiniea 
Jeont  rnises  en  place.  Elies  ne  sont  modififee  que  si  aucune  de® 

'  touch  ee  die  la  souris  n'eat  ut  ills6e  el  restent  done  const  antes 
'pendant  I’emploi  dw  touches.  Cette  position  stable  cst  occesaairc 
'pour  cskuler  le  OFFSET  (d£calage)  enfcre  ]a  souris  et  I'icBne, 

IF  giillmod%=I 

’Si  le  programme  esc  en  mode  grille,  le®  points  grap tuques  d’un 
'bloc  eont  cnlculee  en  fo  notion  de  la  l&rgeur  de®  troll®,  et  le® 

'variables  de®  coordonn^e®  y  eont  &dapt£es. 
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XXix%=INT(X.fix%/lrousLarge%)nroUsl»rge% 

Y-fiX/ti= INT(  Yfrx%  / 1  ra  uslar  g  &%  )  *  krdU&l  a  rge% 

ENDIF 

Xdtff%=X-fix%-Icnx% 

Y.difl96=YXi)t96-IcnyS6 

'lei,  les  differences  enlre  lea  coordonn£eE  dea  variables  et  ceLles 
'de  la  sauna  aont  affectges  4  <Us  variables  splcialcs  pour  les 
‘deux  dimensions. 

END  IF 
IF  K=1 

Tj«  programme  n'eet  branche  ici  que  si  la  touche  gauche  de  la 
’Souris  eet  enfoncie,  c 'eel -A -dire  lorsAu’on  dcBaine. 

PUT  X X.diff&.Y - Y .diff% ,Mc.psrt$ ,Quadmod% 

'Place  Picdne  an  mode  graph  ique  c hotel  {qul  eat  transformi 

'dc  “PROCEDURE  Changemcd"  en  "Quadmod^"  pour  lee  opirotione  de 

’quadriJlsge}  sur  ta  position  resultant  de  la  position  actus] le  de 

*la  uouris  meins  la  difference  cftlculco  auporavant.  Les  variables 

’de  cocrdonn£es  "X"  et  "Y"  bojiI  dejft  miees  en  place 

'lore  de  Is  procedure  “Procedure  branch  erne  nt*\ 

Icnx%=lmx%  X.diff% 

Icny  % =In  .y  S|  -  Y  .d  i  tt% 

•Ensuite,  souviens-toi  de  Is  dernUre  position  de  1‘icfine  indiqu£e 
■par  rTenx$6"  et  “Icny%" .  SI  vouo  n'appuycB  aur  aucune  dee  touches 
’de  la  souris,  Picdne  rests  sur  celts  position  en 
'ciignoUnt.  Cette  coordonnee  permet  de  calculer  la  difference 
'ertre  3a  position  de  t'ic&ne  et  la  position  act  lie]  l  e  de  la  ttmrift, 

‘si  Jiucime  touche  n^et  enfanc£e  {voir  plus  haitt). 

ENDIP 
IF  K=2 
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'Ce  bloc  n’est  utiUefe  que  ut  vous  svit  uppuyes  sur  1*  louche 
'droite  dc  Irv  sourta,  c’e*t-&-dir«  Low  que  1‘icine  doit  fetre 
'dfeplacfee  our  !' fee  ran  sans  rien  deaaineT. 

PUT  In  .x% -X .dif f% ,  1  n . y%- Y  .dilT% ,Mc ,part$  ,6 
PUT  Imx%  -  X . diff% ,  I  tuy$6  - Y .d  iff9ft ,M  c  .p  art  $  ,0 
Icnx%=In  -X  .diff  ?? 

Icny  % =1  n  .y%  -  Y .  diff^ 

'Id,  eel  simulfe  I'emploi  dc  la  touche  gauche  de  la  souris. 

'La  seule  difference  etant  que  l*ic6ne  eat  place  deux  fois  de  suite 
'sur  la  mime  position,  en  modo  XOR  (efffet  de  planer). 

END1F 

RETURN 

PROCEDURE  Rubbgoing 

’Cette  petite  proefedure  per  met  de  b  avoir  si  un  flag  miroir  special 
'("Mirfl&gK")  a  fetfe  mis  en  place  pour  Its  felfemente  graphiques  en 
'RCibbmode.  Si  cel*  n’a  p*a  fetfe  le  cas,  one  figure  Rubb  a  deja  ate 
'deftnie  en  mode  miroir.  Si,  par  contre,  un  flag  a  fetfe  mis,  cola 
’signific  que  le*  operations  mi coir  sent  termlneea  pour  cette 
’figure.  Cette  information  esfc  nfecessaire  pares  que  la  fonction 
‘miroir  eat  controlee  par  1  e" hr anc h e me nt“ ,  SailB  [’information,  le 
‘programme  attendrait  la  enisle  d’uftc  pquvelle  figure  pour  cheque 
image  miroir  de  la  figure  definie  en  mode  Rubb. 

IP  Mirflsg%=  l 
(fcRubbsslf 

'Si  U  flag  a  done  fetfe  mis  (lea  effeta  miroirs  sent  tsrminfes,  si  all 
1  mo  ins  le  mode  d«  miroir  a  fetfe  mis),  va  h  la  ’’PROCEDURE 
"Rubbself"  dfeftn  tea  ant  ]ea  figures  Rubb. 

END  IP 
RETURN 

PROCEDURE  F.sreer 

'F.arecr  =  Filled  sharp  Rectangle  Rubb  mode 

=  rectangle  rempli  ccina  olgus  cn  mode  Rubb, 


1 
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^Rubbgoing 

hVcus  trouverez  cet  appel  de  procedure  k  I'inttrieur  d t  ton tea  Left 
’routine*  graph Lques  Rubb.  Cotie  procedure  a  fit  6  dieribe  dans  Le 
'paragraphs  "PROCEDURE  Rubbgoing". 

<aD.ef.pateh.2 

'Cet  appcl  de  procedure  remplit  la  meme  function  pour  lea  figures 
•Rufeb  que  "^D.efpatch*  dan  a  La  "PROCEDURE  F.®r®cpn  (description 
'dons  U  parflgraphe  correspondent). 

IP  Rubbflagft=l  AND  Nombb%=0 

’Lo  test  de  ccs  deux  variables  se  trouve  egalement  dans  toutee  lea 
‘routines  graphiques  Rubb. 

'Si  tin  des  elements  Rubb  a  464  appele  et  si,  eneuite,  MOVE  ou  COPY 
4t4  actives,  une  analyse  eat  effective  pour  b  avoir  si  une  figure 
•Rubb  &  416  difinie  4  I’int^rieur  do  la  "PROCEDURE  RubbtdP  ou 
VU  s'agCsenft  d’una  partis  MOVE/COPY-  Lbs  deux  functions  eont 
rconcern4es  par  cette  procedure. 

MIRubbflag%"  est  pi  a  c4  4  I’intirieur  de  "PROCEDURE  Rubbself'  ou  non 
'pour  pouvoir  fairs  cette  difference. 

’SI  "Rubbflag%"  =  0,  cela  signifie  qu’une  partis  de  bloc  a  466 
’marquee  4  I'intiricur  de  "Rubbself1  et  qu’il  n'est  done  autorisO 
'de  dessiner  qu'une  figure  Rubb  dan*  cette  par  tie. 

'La  variable  "Norubb^n"  contient  1 'information,  ei  la  touche  droits 
'de  La  souris  a  ite  appuyet  pendant  Ld  definition  en  "RubbseLP,  II 
'en  result e  que  la  boite  de  mttrqiuige  dijii  ouvertt  n'est  plus 
'vaJablc  et  doit  done  etre  effaces.  Si,  ensuiteja  touche  droit e  de 
'la  sourift  n'a  pas  464  enfcncce  en  ''RubbselH,  "Norubb%“  sbC  4 gal  4 
'0  ei  la  figure  Rubb  pent  done  itre  dessinle. 

DEFLINE  ,fi,Q 
Rubbflag%=0 

PBOX  Xg%Xg%.Xx%,Yy% 

POLYLINE;  6,Pl.nxx(),PLnyy() 

DEFLINE  , , Trd 6  b  ut'96 ,T rfi n$& 

ENDIF 

RETURN 
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PROCEDURE  L.irecr 

'L  urecr  =  Line  sharp  Rectangle  Rubbmodo 

=  rectangle  contours  coins  signs  en  mode  Rubb. 


(giRubbgoing  * 

@D.sf.pateX.5S 

IF  Rubbflag5£=i  AND  NDrubb?fS=0 
DEFLINE  MC,0 
RubbffBg%i=0 

BOX  XE%lY&>,Xx%,Yy% 

POLYLINE  fl.Fl.iutxO.FI.nyyO 
DEFLINE  l(Trd4biit%,Trtin% 

EN  D  IF 
RETURN 

PROCEDURE  Axrecr 

fA.erecr  =  Area  sharp  Reel  angle  Rubbmode 

=  rectangle  surface  sans  contour  en  mode  Rubb 

m 

(?Rubbgoing 

IF  Rubbflag^^l  AND  Norubb%~0 
Rubbflag£=0 
@Corttour(0) 

PBOX  Xg%1Yg%JX*%1Yy& 

^Contour(l) 

END  IF 
RETURN 

PROCEDURE  F,rtecr 

'F  rrecr  =  Filled  round  Ft  t  tangle  Rubbmode 

=  rectangle  rempLi  coins  arrondU  en  mode  Rubh 


(SRubbgotng 

IF  Rubbflag%~l  AND  Norubb%=0 
Rubbflag%=0 

PRBOX  Xg%JYg^,Xx%1Yy% 
ENDIF 
RETURN 


PROCEDURE  L.rrecr 
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’L.rreer  —  Line  round  Rectangle  Rubbmode 

—  rectangle  contour  coins  arrondic  en  mode  Rubb 

@Rubb|olng 

IF  Rubbf1n*S6=l  AND  Norubb%=Q 
Rubbflag9C=0 

RBOX  Xg&1Ygfc1Xx%1Yy& 

ENDIP 

RETURN 

PROCEDURE  A.rrccr 

JA.rrecr  =  Area  round  Rectangle  Rubbmode 

=  rectangle  surface  sane  contour  coins  arrondis  «n  mode 
Rubb 


(sRubbgoing 

IF  Rubbflag?&-1  AND  Norubb%=0 
Rubbflag9^=D 
^iContour(O) 

PRfcOX  Xg9$,Yg%,Xx%,Yy% 

(&Co»bcur(l) 

END  IF 
RETURN 

PROCEDURE  F.cr 

'F.cr  =  Filled  Circle  Rubbmode 

—  ccrclc  (ou  ellipse)  rempli  eti  mode  Rubb 

(ffiltubhgoing 

IF  Rubbfiag%-1  AND  Ncrubb%-0 
Rubbf)ag%=0 

P  ELLIPSE  Xjc%,  Yy  %  ,rayX%  ,r  ay  Y  % 


PELUPSE 
Syntaxe : 

PELLIPSE  mil  ieuX, mil  ieuV,rayonX, ray  on  Y[,  Valin  it  iaI,Val  finale) 
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L' instruction  PELLIPSE  trace  une  ellipse  ou  un  arc  d1  ellipse  avec 
le  motif  de  remplissage  choisi  (voir  paragraphs  PC1RCLE). 

Les  six  parametres  ont  la  signification  suivante  : 


1  ier  parametre 
2ieme  parametre 
3ieme  parametre 
4ieme  parametre 
5ieme  parametre 
6ieme  parametre 


coordonnees  X  du  centre  de  Tel! ipse 
coordonnees  Y  du  centre  de  I’ellipse 
diatn&re  de  I' el  I  i  pse  vers  I’axe  X 
diametre  de  I’ ell  ipse  vers  faxe  Y 
angle  initial  de  fare  de  Tell  ipse 
angle  final  de  rare  de  Pel l ipse 


END  IF 
RETURN 

PROCEDURE:  L.cr 

'L.cr  =  Line  Circle  Rubbmodc 
'  —  Cercle  (ou  ellipse]  contour  cn  mode  Rubb 

M 

<3iRubbgolng 

IP  Rubbflaff%=i  AND  Nowbb%=0 
Rubbflug?Ji=Cl 

ELLIPSE  XxS?,Yj'%.r»yX%(rayY% 


ELLIPSE 
Syntuxe : 

ELLIPSE  milieuX  .milieu  Y,rayonX>rayonY[angininal1angfmal3 

L’  instruct  ion  ELLIPSE  a  la  m£me  fonctiors  que  PELLIPSE,  La  seule 
difference  est  qu’ELLIPSE  n’entraine  pas  de  remplissage. 

END  IF 
RETURN 

PROCEDURE  A.cr 


I 
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'A.cr  —  Area  Circle  Rubbmode 

=  cercis  {ou  ellipse)  surface  sane  contour  cn  mode  Rubb 

@Rubbgoing 

IF  Rubbflag%=l  AND  Nombbft=0 
Rubbilag%=0 
(SCDntow(O) 

P ELLIPSE  Xx% , Yy % , r»yX%,r ay Y% 

@Contour(l) 

ENDIF 

RETURN 

PROCEDURE  S.Un 
’SJin  —  Straight  Line 

’  —  ligne  droite 

’Ce  nom  pent  induire  en  erreur.  Male  den  points  mdtvtduels 
'represent ent  igalemcnt  dee  lienee  droites  pour  Fordinateur.  Pour 
'les  points  individuals,  le»  coordonnecB  de  dfbut  et  de  fin  de 
"ligftC  sent  identiquee,  Mtme  une  ligne  en  bisis  eat  constitute  de 
'nombrefliBeB  pe  bites  ligncs  horizon  tales. 


MOUSE  x,y,K 
IF  Gnllemod^=l 

X = INT(X/troui I  urge  %)  *  t  c<h  is]  »rge$S 
Y —I  NT(  Y  /t  rousl  urge  % )  *  trouel  orgeSfc 
ENDIF 
IF  K=i 

'Si  la  touche  gauche  de  la  Hourjs  eat  enfonefie  ... 

GRAPHMODE  Orafmod% 

IF  Mirror96=l 

et  si  le  miroir  vertical  cet  act  if  ... 
Xm_l%=639-X 

mets  en  place  une  variable  nuxiliolre 
’con  ten  ant  la  position  X  vertical*  men  t  opponcc 
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END  IF 

IF  Mictor%=2 

ti  1c  miroir  horteonlsd  cet  act  if 
Ym.I%=S0B-Y 

meta  en  place  une  variable  auxiliaire 
’contenant  la  position  Y  her  lion  t  a  lament  opposes 

ENDIF 

IF  MicrorSfi— 3  OR  Mlrror96=4 
et  Bt  le  mi  to  if  diagonal  out  lee  trois  swea  de  miroir  sont 

'actifc  „„ 


Xm.i3^€S&-X 

Ym,l96=Sfi0-Y 

'...rmetfl  an  places  lea  deux  variables  auxilirures  contenant  lea 
'positions  oppoficca  correspond  antes 

ENDIF 

DO 

'Reate  a  l'int£rieur  de  la  boucle  de  lignea  desatn£es  4  main  lev£e 
1ju&qu'<t  co  qua  la  touche  de  la  souris  soil  relach£e 

MOUSE  Xx.2^,Yy.25S,Lbiitt% 

IF  Grillemcid%=l 

Xk,!^-INT(Xx.2%/  troug  target  )  "trousl  arge  % 

Yy .  2  96 =INT  ( Yy .  2%  / 1  r  ousl  argeM )  *  tr  ©ml  arje  % 

ENDIF 

LINE  X1Y,Xx,2%pYy.2% 

'Trace  line  liffne  h  partir  de  I'&ncicnne  position  de  la  eourie 
'jusqu'a  a  a  no ove He  position. 

IF  Mirror%<S 
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Pour  ne  pa*  retarder  le  tracement  de  lignes,  lo  tcet,  fli  le  miroir 
doit  £tre  &ctif  ou  non,  eat  divisfi  eti  deux  blocs.  SI  cels  n’etait 
pas  Le  c&a,  lee  qtifttre  teats  devraient  fit™  effective  pour  cheque 
parcours.  Un  GOTO  est  plac4  en  fin  de  boucle  pour  tv  it  or  que  k 
restnnt  de  la  boucle  eoit  encore  parcourue  aprts  avoir  termitk 
I'efffiC  miroir.  Ceci  a  pour  but  de  fait®  gngner  du  temps. 

IP  Mirror%— 1 
@MiM.line.l 
GOTO  N.extpi 
ENDIF 

IP  Mirror%=2 
(u)Mlr.2.linc,  1 
GOTO  N.extpt 
ENDIF 
ELSE 

IF  Mirror%=S 
@Mir.3Jine.l 
GOTO  N.extpt 
F  ENDIF 

IP  Mirror%=4 
<SiMir.4.]ine.I 
ENDIF 
ENDIF 
N.extpt: 

X=Xx.2% 

Y=Y  y.2% 

'AubsE  lonfitemps  que  le  programme  se  trouve  h  I’int  incur  de  cette 
'boucle,  la  dernifire  position  de  la  sour  in  est  fixfie  afiti  de  ftervir 
’de  point  de  depart  &  la  prochatne  ligne  (voir  dfibut  de  l»  boucle], 

EXIT  IF  Lbutt%-0 
LOOP 
ENDIF 
IF  K=2 

'Si  In  touche  droite  de  La  souris  a  fitfi  enfoncfie 
MOUSE  Xx.x%,Yy.y% JButton§i 
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fixe  la  coordonn£e  de  dibut. 

IF  grilleinod%=l 

'Si  le  mode  grille  eat  ink  en  place  ... 

Xx  Jt%  =  INT  ( Xx  jc%  /  troual  arge%  )  "  Iroue  l  arg®% 

Yy  .y%-INT{  Yy.y%/ trotiBlargE^J^trouBlorge^ 

'...  calcule  leg  coordonn£ee  de  quivdrill&ge  ... 

IF  Mkror%=l 
Xm.i%=Xx.x& 

END  IF 

IF  Mirror^ 

Ym.l%=Yy.y% 

ENDIF 

IF  Mirror%~3  OR  Mirror^— 4 
Xm.l%=Xx.x% 

"  Ym.l%=Yy.y% 

ENDIF 

"...  el  adapte,  si  recess  sure,  Its  coordcmt£c8-mtroir&. 

ENDIF 

DEFTEXT  I,0,0,€ 

GRAPHMODE  3 

DO 

’Le  programme  restc  &  Fintirieur  de  cctCe  boucle  jusqu'&  ce  qua  la 
'touche  droite  de  la  B-oiiria  ne  soil  plus  entoncie  on  qu'une  touche 
'du  clavier  (ftrentuelloment  1 1  appel  du  menu)  soit  utilisea. 

MOUSE  Xx.l%,Yy.l%(ButtonSS 

'Sotiviene-toi  dee  eoordon  rices  actual  lea  de  la  position  da  la  eenria 
’(en  tant  que  point  final  de  HgneJ. 

IF  grillemod%=I 
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'Si  le  mode  grille  eat  mb  an  place 

X*.  1  %=INT  (Xx .  I  %  /  trous  1  ftrge-%  )  *  trousl  &rge% 
Yy.1%— INT(Yy .  I  %/trouslarge% )  “  troualarge^ 

Eid  apt  a  £gslement  cee  coord  on  n£e& 

ENDIF 

LINE  X3£,x%(Yy.y%IXx.l%1Yy.|% 

LINE  Xx.x?$,Yy.y%1Xx.l%1¥y.l% 

'Trace  la  ligne  deux  fob  do  suite  on  GRAPHMODE  3  (planer) 

IF  Shcwcoordi— 1 

'Sjt  en  mode  11  Border  On"t  le  coin  inferieur  droit  eat  touche  el, 
Vil  eat  indiquS  1'aide  el*  deux  cliquage®  do  auite, 

'll  faut  ftfficher  lea  6carta  horissontaux, 

'vert  ic  aim  et  diagonaux  enfcre  leg  difference  point®  ... 

IF' 

L  o -h%=4esrfc(Xx.  1  %  -Xx.x%) 

L.o.v%=dcart£Yy .  1%  -Yy.y%) 
L.o.d%~ecart(L.o.h%'2+  L.ov%~2) 

'Racine  d*  (L.o.h  (Length  of  horizontal)  au  carr4  4  L,o.v 
'(Length  of  vertikal)  au  carrt)  donna  L.o.d  (Length  of  diago¬ 
nal)  ==>  “Le  thfioreme  de  Pyfchagort". 

3.2.21  Lcs  fonctiofts  arlthmefiques 

SQR 

Syntaxe : 

SQR(valeur) 
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Celte  fonction  arilhmetique  permet  de  calculer  la  raeine  carree 
(angL  :  SQuare  Radical)  de  r expression  mathemalique  qui  suit 
erUre  parentheses,  Cette  expression  pout  etre  indiquee  en  tant  que 
variable  ou  en  taut  qu’exprcssion  complexe. 


ABS 

Syntax© ; 

A  BS(  valeur) 

■ 

Une  autre  fonction  arilhmetique,  la  fonction  ABS,  retourne  la 
valeur  absolue  d’une  variable  on  d’une  expression  numerique 
(fonction  de  valeur),  Le  signe  de  la  valeur  indique  n*est  done  pas 
pris  en  compte,  mais  la  valeur  absolue  est  caiculee.  Elle  est 
tou jours  egale  ou  super ieure  a  zero. 

Exemple  : 


A=-X2S 

B==334 

_ ERINT  A B n\) 

Sortie  :  1 23  334  20.S 


SGN 
Syntaxe : 

SGN(valeur) 

La  fonction  SGN  permet  de  tester  si  un  certain  nombre  est  posit  if, 
ndgatif  ou  nul,  Elle  est  suivie  (entre  parentheses)  d'une  variable 
numerique,  ou  bien  d’une  expression  mathematique  ou  encore  d'un 
nombre  dont  le  SiGNe  doit  etre  obtenu.  S*il  s’agit  du  signe 
negatif,  la  fonction  retourne  la  valeur  -l,  pour  le  signe  positif 
la  valeur  I  et  pour  des  valeurs  zero  la  valeur  nulle. 
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Exemple : 


A~-328>7 

PRINT  SG MtA}t>8CWfA*f-Hr,3GWfA/A-tl 

Sortie  :  -1  1  0 


EXP 

Sylttaxe : 

EXP(valeur) 

La  f diction  EXP  est  suivie  d’une  valeur  oti  d’une  expression  nume- 
rique  quelconque  comprise  entre  -354  et  +354.  Cette  valeur  est 
I’exposant  de  la  base  du  logarithms  neperien  (2.7  J  828 1828). 

Exemple  : 


PRINT  EXPtSQR(23‘S.5?22-(317.66-gg.7))+SIN(lSS.44))’^ 
PRINT  EXPfZS/t'H)”; 

Ai=e"3/3.BS 

P  RINT  EXP  (  A)  _ 


Sortie  :  909!  0245797  E+10 1  20506341156  265875  50967E+26 

L.o,)$“'1X:*,+  STR$(L.o.h%)+ "  Y:"+  STR$(L.o.vft)+ "  D:"+  STRt(L.o.d%) 

V.caleuk  les  Carts,  regroupc  left  dans  un®  chain®  do  cnracttrc®.. 

TEXT  Xx.l%-INT(Xx, l%f4  6),Yy  1%-INT( (Yy .  1%^0C) /15),L.oJ* 
TEXT  Xit.l%-INT(Xx.l%/4.S),Yy.i%-INT((Yy,i%-200)/lS3PL.D.S* 


«t  nffocte  lea  &  la  position  do  Is  b curie  de  fa^on  quo 
'la  chttlne  ee  trouve  enticement  aur  la  p&fe-Crfijnu 

ENDiF 

IF  Mirrar%=l 
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GOTO  K.extre 
ENDIF 

IF  Mirror%=2 
®MLr-2.iine.2 
GOTO 
ENDIF 

IF  MIRROR%=S 

GOTO  N.cxlre 
ENDIF 

IF  MIRROR%=4 
@>Mir.l.line.2 
<$Mir-2.line.2 
^Mir.S.lme.S 
ENDIF 

'Si  TtBceBBfiira,  va  aux  differences  routincs-mu-mM, 
(SGetfkeya 

& 

'Demand e  &  "Getfkeya",  si  une  touche  □  did  <Mifonc4o. 
GRAPHMODE  3 

Nex.tr*  : 

Xx.x%=Xx.l% 

Yy.y%=Yy  1?$ 

EXIT  IF  Bufcton%<>2  OR  Fkeye%>C 
LOOP 

GRAPHMODE  Grafmod% 

IF  ButtonS&^S 


LINE  Xx.x%tYy.y%lXx.l%,Yy.l% 

IF  MirrorSS=l 

LINE  XirU%,Yy.y%1Xm.2%,YyA% 
ENDIF 

IF  Mlrror%=2 

LINE  Xx.x%(YmA%<Xx,l%,Ym.J9fi 
ENDIF 

IF  Mirror%=3 
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LINE  Kmj5SPVm.l^lXm.i%1Ym.2% 

END  IF 

IF  Mbror%=4  , 

LINE  Xm.l96,Yy.y9fi ,Yy .  1% 

LINE  Xx.x^Ym.l$S1Xjc.l%,Ym.2% 

LINE  Xrrt.I%1Ynfi.l^,Xm.2%,Ym.2% 

END  IF 
END1F 
END  IF 
RETURN 

’Lea  huit  prochaineo  routines  He  servant  tracer,  eri  function 
’dc/deft  aXC(sJ  'Hlir63r(6),  la  ligne  sur  laquelle  a  eu  lieu  t’effefc 
'miroir, 

PROCEDURE  Mir  1-line, l 
Xm.2%-6SS>-Xx.2% 

LINE  XTn.l%1YtXro.2%1¥y.29fi 

RETURN" 

PROCEDURE  Mir.S.line.l 
Ym.2^=3W-Yy.2^ 

LINE  X.YtrU^Xx.i^Ym.Sft 
Ym.llsYm.2% 

RETURN 

PROCEDURE  Mir  ,S  line.  1 
Xm.2%=6S9-Xx.2% 

Ym.29$=399-¥y.2% 

LINE  Xm.  1%, Ym,  1  %,Xm.2% , Ym.295 

Yitt.l%=Ym.2^ 

RETURN 

PROCEDURE  Mir, 4. lint. I 
Xrn.2%=639-Xx.2% 

Ym.2%=SS9-Yy.2% 

LINE  Xm-l%(YlXm-2%1Yy.2% 

LINE  X.Yro-J^Xx.S^.Ym-Sft 
LINE  Xm.l%lYm,l»1Xro.2%,Ym,2% 

Xm.l96*Xm.29S 

Ym,i^^Ym.2S$ 
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RETURN 

PROCEDURE  Mir. 1. tine. 2 
Xrn,l%=6SB-Xx-x% 
Xm.2&=639-Xx.l% 

LINE  Xm~l%yy.y%<,yiTn  2%,Yy.l% 
LINE  Xm.l%(Yy.y%lXm.2%1Yy.l^ 
RETURN 

PROCEDURE  Mir-3-]ino.2 
Ym.I%=S99-Yy.y% 
YmJ%=399-Yy-l% 

UNI  Xx.x9G/Ym.i9$1Xx1l%,Ym.2% 
LINE  Xx.jc5b  ,  Ym.  19S  ,Xx.  1% , Ym.2% 
RETURN 

PROCEDURE  Mir.S.lino.? 
Xm.l%=63§~Xic,x9£ 
Xm.2$6=8S&-Xx.l^5 
YmT%=S99-Yy.y$5 
Ym,2?fi=3$G‘Yy.l% 

LINE  Xtn.l%lYm.l%hXTO.2%1Ym.3% 
"LINE  Xm-l9fi,Ym.l%*Xm.2S$,Ym.2% 
RETURN 
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PROCEDURE  F.illpro 

‘11  s'nglt  lei  d'une  procedure  de  rem  pi  Usage 

MOUSE  X,Y,K 
IF  K=1 

'Si  Ifi  touche  gauche  de  la  eoUrifi  a  OW  cnfoncta,  remptU  la 
'position  actually  do  la  sour  is. 

fill  x,y 

IF  Mirror?g=l 

"SI  tine  (onctior* * mirotr  cat  tttifle  en  place,  c&lcule  lea  autres 
'coordonn^cs  do  re  mpl  Usage  efc  remplis  cgolement  Ji  cea  position*. 


Pour  la  meme  raison  que  celle  deja  expliquce  dans  le  paragraphs 
FILL  (le  temps  necessaire  pour  remplir  des  motifs  "ouverts"),  le 
remplissage  d'un  effet-miroir  doit  etre  utilise  avec  precaution.  Ce 
remplissage  sur  trois  dimensions,  par  exemple,  est  effect u 6  quatre 
fois  au  mojns.  II  ne  pent  etre  interrompu  que  par  Vemploi  simul- 
tane  des  touches  <CONTROL>,  <SH1FT>  et  <ALTERNATE>,  une 
fois  le  processus  de  remplissage  correspondant  termine,  Ceci, 
cependant,  arrfete  immediatement  le  programme  et  entralne  la 
perte  de  la^/Ies  image(s)  actuelle(s). 


FILL  GS90C.Y 
END  IF 

IF  Mim>r%=2 
FILL  X.399-Y 
ENDIF 
IF  Mirror^  =3 
FILL  639-X.S99-Y 
ENDIF 

IF  Mirror%=4 
FILL  639-X.Y 
FILL  Xf3B9-Y 
FILL  639-Xt3G9-Y 
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ENDIF 
END  IF 
RETURN 

PROCEDURE  PLflpr 

Tt.spr  =  Plot  Spray 

=  affix  he  des  points  sepw<5u  not  Fee  ran 
'Cette  procedure  execute  un  dea  deux  modes  d’afflch^ge  (spray) 


"Plot -Spray"  signifie  que  des  points  noirs  individuels  sont 
affiches  stir  une  surface  de  patch  (patch;  angl  :  piece)*  La 
surface  de  patch  est  representee  par  tin  cadre  clignotant  lors  de 
Paffichage.  Sa  taille  peut  &tre  determines  par  Temploi  des 
touches  <F7>  et  <F8>  ou  par  une  option  du  menu  graph ique.  Cda 
signifie  que,  si  Ton  choislt  une  (aide  de  patch  assez  grande,  il 
est  possible  d’afficher  simul tenement  des  points  sur  la  totality  de 
1’ecran,  En  outre,  le  diametre  des  points  peut  varier,  grace  aux 
trois  differentes  possibilites  offertes  par  les  touches  de  la 
souris  (gauche,  droite,  toutes  las  deux). 


GRAPHMODE  S 

DEFLINE  Trtype9js[Tr|iwj:et0.,G 

BOX  moUi4-X%,nnoitie ■’Y$61inoiti4+  X%,nsoiti$+  Y% 

BOX  iwoi6i^-Xjf6Jmoiti4’Y?6,nr)oiti4*X2®lmojti^+  Y% 

’Ici,  le  cadre  du  patch  eat  represents 

GRAFHMODE  Grafmcd?5 
IF  K>0 
IF  K— 1 

PCIRCLE  +  Spr.xtmoiti4"Y9€  +  Spr  y,0.4 

ENDIF 
IF  K— 2 

PCIRCLE  moitiihX%+  Spr.x,mcilei6-Y%+ SpT.yJ. 
ENDIF 
IF  K=S 

DEFFILL  ,2,8 

PCIRCLE  moiti4-X%+Spr.x,nwitii-Y%<t  Spr*y.2 
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DEF  FILL.Rty  pc%  ,Rmotif% 
END  IF 


'Selon  lc  chcix  dea  touches  de  la  tourifl,  il  eat  po Edible  do  tracer 
Wfterentea  bailies  du  "Fcirelep’*-  Les  valeurg  aW&toires 
VcntenuBB  dans  Its  variables  "Spr.x"  ct  "Spr.y"  Bont  ditermliUkii 
'dans  le  "brancbeownt". 

ENDIF 

RETURN 

PROCEDURE  Pt.spr 

’Pt.tpr  =  Pattern  Spray 
J  =  aWfcher  Jo  motif  de  tempi  Linage 


Cette  procedure  a  ta  mdme  fonction  que  la  precedents,  La  seule 
difference  est,  qu*ici,  des  "Pboxes"  sans  cadre  (voir  "Procedure 
A.srecp")  sont  rem plies  avec  le  motif  choisi  et  sont  affichees  sur 
IVscran.  Ceci,  egalement  en  trois  tallies  differentes  et  sur  la 
total  ite  de  la  surface  du  patch  defini.  La  procedure  permet  des 
effets  interessants. 


GRAPHMODE  3 

D  EFLIN  E  Trt  ypc%  ,Tr l  ,0 ,0 

D0X  X-moltie%fY-m<ritia%1X+  moitit  %,  Y+ rooitie% 

BOX  X-moitie5S  >Y  -moitie%tX+  moiti«9d,Y  +  moitie% 

CRAPHMODE  GrafmodSS 
IF  K>0 

@Contour(0) 

IF  K-l 

PBOX  X+Spr  x-moitLc%,Y+  Spr.y -moiti«%1X+  Spr.it- 
Y + Spr.y  -mol tie  95 
ENDIF 
IF  K=2 

PBOX  X+  Spr.x-moitic%1Y+  Spr.y-moitie9DrX+-Spr.x-*-l-mottie%l 
Y+  S  pr.y+  2  -moitie?5 
ENDIF 
IF  K=$ 
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PB  OX  X-t*  Spr. x -moit ie% ,  Y  + Spr  .y-imeiitie95  ,X*  Spr.x+  2  -rooille%, 
Y+ S  pr  ,y +•  4  -  moi 
EM  DIF 
@Contour(l) 

END  IF 
RETURN 

PROCEDURE  MARKER 


Le  GEM  de  l1  ATARI  offre  une  fonction  confortable  permettant  de 
placer  certains  symboles  de  marquage  a  certaines  positions  (voir 
POLYLINE*  POLYFILL*  POLYMARK)*  Ces  marquages  peuvent  §tre 
utilises  en  tant  qu1  elements  graphiques.  Pour  cel  a,  H  suffit 
d’affecter  une  valeur  au  champ  zero  des  tableaux  de  eoordonnees  et 
d*indiquer  une  position  &  r  instruction  POLYMARK.  Dans  ce  cas, 
le  marquage  remplit  les  m ernes  fonctions  que,  par  exemple,  les 
patches  crees  par  le  programme. 


DEFMARK  lMarker.typ9Shmoitia%+2 


DEFMARK 
Syntaxe : 

DEFMARK  [couleurjjtype  de  marquagej,[taille] 

L  instruction  DEFMARK  per  met  de  definir  la  couleur*  le  type  et 
la  taille  des  symboles  de  marquages. 

Vous  avez  le  choix  entre  6  symboles  dlfferents  : 

Type  I  tin  point  d'un  seul  pixel 

Type  2  un  signe  plus 

Type  3  une  etoile  &  six  branches 
Type  4  un  rectangle  allonge 

Type  5  une  croix  diagonal e  ou  X 
Type  6  un  losange  allonge 
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Tons  les  symboles  out  une  largcur  de  ligne  invariable  de  im  pixel. 
La  taille  ne  pent  variee  de  fa$on  continue,  mais  seulement  au  pas 
de  20.  11  est  done  inutile  de  vouloir  mettre  en  place  la  taille  28, 
car  le  $y  in  bole  aurait  quand-mtme  la  taille  20.  Vous  trouverez  un 
exemplc  pour  cette  instruction  dans  les  paragraphed  POLYLINE, 
POLYFILL,  POLYMARK. 

GRAPHMODE  3 
Xmark(G)  =X 
Ym&rk(0}— Y 

POLYMARK  LXmarkO.Ym&rkQ 
POLYMARK  L(Xmark{),YmarkO 
IF  K=1 

GRAPHMODE  GrafmDd% 

POLYMARK  l,Xmurk<),Ym»rk() 

END  IF 
RETURN 

PROCEDURE  Mnrkcrmenu 


’ll  a'agit  de  la  procedure  permit  truit  In  miss  en  place  du  menu  pour 
’chnisir  lee  eymberks  de  marquage  i  utiliucr. 


GET  260, 150,890,280  .R-sckmenuS 
@Grow.shrink.bc'x[01.3.30,S20, 45,45, 250,160, 140,130) 

'U  "PROCEDURE  Grow. shrink,  box*  Conti  ent  une  foncticn  eoue  GEM 
’perimtltuil  de  crier  ces  boltea  d’epparence  dynnmiques  qui  ee 
'ferment  efc  B'ouvrent. 

'Vous  pouve»  observer  eela,  par  exempU,  eur  lc  desktop,  en  ouvr&nt 
'une  fenfctre  de  dt&quette.  Pour  dee  explications  supplement  airsa, 

'voir  "Grow.Bhrink.box". 


DEFTEXT  1,1, 0,9 
@S  et  __m  en  u  b  ack 
UEFFILL  ,0,0 
FOR  J=0  TO  2 
FOR  1=0  TO  1 
INC  M.mk 

DEFMARK  ,M.mkr20 

PBOX  265+ 1" 55,165+  J*33,320+ 1*56,198+  3*33 
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Xmark(0)=lM+I+55 
Ymark(0)= 181+ J*  33 

POLYMARK  1  ,Xmark( )  .YmarJcQ 
NEXT  I 
NEXT  3 
M.mk-0 
REPEAT 

MOUSE  X.Y.K 
UNTIL  K=0 
REPEAT 
UNTIL  MOUSEK 
REPEAT 

’L'ftmiyflc  du  menu  &  cWsjA  d^critc  plus  haul, 

MOUSE  X.Y.K 
M  ark  jt=INT  { (X  -26E)/66 )  +■ 1 
M  ark-y = iNTf  ( Y  “165)  /3&J 

IP  Ms\rk.x>=l  AND  Mark.x<— 2  AND  Mark.y>=tO  AND  Mark.y<-2 
Mark*r.typ?£=Mvk.x+  Mark.y  *2 
END  IF 
UNTIL  K=Cf 

PUT  2  EG,  1  CO.B .  ackrnemi|s3 
RETURN 
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PROCEDURE  T.ex» 

"Voilfl.  une  autre  procedure  iot^resssmte  pour  rep  r  Seen  ter  un  texte 
'graphtque  tur  1  Merlin-  La  chat  tie  Je  t*xte  ntvidie 
'peut  «kre  ^di t£e  de  quatre  fag  c  ue,  differentes, 

'La  touche  <BACKSPACE>  (vakur  ASCII  8}  permit  d'effacer  lie  dernier 
’caractfcrc  eaiei.  Les  quatre  touches  de  lichee  permettent  eti  plus 

’de 

1 

a)  determiner  jo  Longueur  optique  dea  chaince  de  corntRree 
'  <FLECHE  VERS  LA  GAUCHE^  =•  raecourcir 

*  <FLECHB  VERS  LA  DftOlTE>  =  rnlonger 

I 

1  b)  determiner  It  mode  d'esp^i cement 

'  <FLECHE  VERS  LE  BAS>  =  passer  d’urj  mode  a  I'autre 

|p 

La  touche  «dFLECHE  VERS  LE  HAUT>  permet  de  romcltrc  co  place 
’  Lit  representation  normal  e. 

¥ 

I 

'Vdub  trouverea  un  example  et  dea  expLications  plus  detaiHeea  dans 
’lc  paragraphs  TEXT. 

'La  gestion  d«#  foncttoriB  dee  touched  de  f)£ch«  est  dec  die  dans  le 
'paragrnphe  "PROCEDURE  T  eKtlen”. 

IF  Fkcjr.2%018  AND  Fkey.2%<>2T  AND  Fkcy.2%<>!3  AND  Fkey.SftoS 
AND  Fkcy*%oO 

'Si,  ni  la  touche  cTAB>  (valeur  ASCII  18),  i»i  la  touche  ^ESC> 

'{valeur  ASCII  27),  ni  la  touche  <RETURN>  (vnleur  ASCII  13),  ni  la 
‘touche  <I1ACKSPACE>  (valeur  ASCII  8),  maid  one  autre  touche 
‘quelctmque  (vale lit  ASCII  oO)  a  etc  e nfoncee  ... 

IF  (Fkey%<>?2  AND  Fkey$S<>75  AND  Pk«y9fi<>77  AND  Fkey%<>80)  AND 
Fkey.25g>li 

sans  «]iie  cc  soil  une  touche  de  flee  he  ... 

T_chnr$=Cim$(Fkey  2%) 

T _ atritvgf=T_strjrig$-»-  T_char$ 
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convert is  &lors  1ft  valeur  ASCII  d«  In  touche  enfbticie,  en  un 
cnrnct&re  el#  chains,  et  ajoute  le  b  la  chain  e  de  tex te¬ 
ll  e&t  cgEilement  possible  d'cotrcr  deo  carac tires  spici »ux 
<CONTROL>  -h  touche) 

Remarque  : 

II  eel  possible,  A  n'imporfce  quel  pnrtic  du  programme  (snuf 
pendant  la  ’’phase  de  tlignotagc"  deft  operations  de  bloc), 
d’ntiltHer  cgalement  lee  fonebions  de  desktop  an  tv  an  tee,  pour 
controler,  A  un  pixel  pres,  la  precision  du  diplacement  de  la 
flOuriB. 

<ALTERNATE>/ touches  de  fliche  = 

diplacer  le  curtieur  de  la  Souris  an  paa  de  S  pixels  danft  la 
direction  dee  fitches 

<ALTERNATE>/<SHlFT>/touches  de  fUche  = 

diplacer  Le  cureeur  de  La  eouns  aU  pas  de  I  pixel  dans  la 
direction  dee  fitches 

* 

<  ALTERN  ATE> }  <  INSERT>  = 
simulation  <le  la  touche  gauche  de  la  souris 

<ALTERNATE>/<CLRHOME>  = 
simulation  de  la  touche  droifee  de  la  sourie 

<;ALTERNATE>/<INSERT> /touches  de  fleche  = 
appuyer  Bur  la  touch#  gauche  «t  d 6 placer  simul  tenement 
(S  pixels) 

< A LTERN  ATE> /<S H IFT> / < IN S ERT > /touches  de  flecho  - 
fippuyer  snr  la  touche  gauche  efc  d£ placer  si  mu  It  augment 
<1  pixel) 

<ALTERNATE>/<CLRHOME>/toucheB  d#  fleche  — 
nppnyer  sur  la  touche  droite  et  diplftcer  ftirmiitancment 
(B  pixels) 
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<  ALTERNATE> } <SHIFT>  /  <CLRHOM£>/ touches  de  flfeche  = 
appuyer  sur  la  touch®  dr cite  at  d4plac«r  eirrmUnn^ment 
(1  pixel) 


END  I  F 
END  IE 

IF  K=2  OR  FkeyeS5=254 

’Si  Iei  touche  drolte  <te  La  eourss  ou  <DELETE>  (valeur  ASCII  2M)  a 

54fc4  enfonc4e,  efface  la  chain  e  de  texbe. 


T_8trmg$="- 

REPEAT 

D.um$=INKEYS 

UNTIL  D-um$="" 

'Cette  boude  REPEAT.,. UNTIL  vide  le  tampon  du  clavier 
ENDIE 

IE  Fkey.$%=fi  AND  LEN(T  Btring$>0 

'Si  <BACKSPACE>  a  4t4  enfone4et  r4duifc  )b  chainc  d’on  caractlsre  (le 

'dormer),  miua  flouloment  si  la  taiile  do  la  eh  able  cst  supfrieuro 

’a  on  car&ct4re.  Si  vous  eesayee  d'obtenir  un  caract4re  negatif  a 

Tuida  de  I’i  net  ruction  MXD3  (il  be*  Evident  que  cela  set 

Timpo&H ible}  ,  un  message  d’erreur  oat  affichC  II  pout  interrempre 

'le  programme  ct  d4lrulre  la  page-6cran  nctuelle. 

T_Etrin  g3 =MID  $  (  T_ie  t  ri  ug$ ,  1 ,  (LEN  (T__s  t  ring$  )  - 1 ) ) 

END  IF 

CRAPHMODE  3 

TEXT  X,  Y,T_grow%(  D)lT_efcr  ing$ 

TEXT  X,Y  ,T_gsrow%(0)  J^tnugt 
IF  K— 1  OR  Fkey.29S=13 
CRAPHMODE  Grafmod% 

TEXT  X , Y,  T_gro w% (0 ) ,T_s trin g  $ 

ENDIF 

RETURN 

PROCEDURE  T, ext  menu 
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GET  260, 160,300,280, BackmenuS 
T.  me  net  art: 

(®G  row .  sh  rin  k .  box(0 ,386 ,320.45 ,45 ,250 .1 50,140,130) 

DEFT  EXT  1,17,0,6 
DEFLINE  0,1, 0,0 
(E>Sct_menub  ac  k 
RESTORE  T.m.t«x4 
DEFFILL  ,0,0 
FOR  J^O  TO  1 
FOR  1=0  TO  1 

DEFTEXT  l,Rardom(l5),0,C 

PBOX  266+  rS6,!65+  J*55 ,319+ 1*55 ,210+ J*55 

TEXT  268+I+S5,li0  +  J*56f,’t«xte-*’ 

READ  T,men_tcxt$ 

TEXT  268+!*SS,200+J*56,T-m«i_t«xtl 
NEXT  I 
NEXT  J 
REPEAT 
UNTIL  MOUSEK 
REPEAT 

MOUSE  M.en_x1M.cn_y, Button 
UNTIL  Button=D 
Tt  .xp=INT{(M.en_x-266}/55)+ 1 
Tt.yp=lNT((M.efi_7“I62)/66) 

Tt.mcnpktssO 

IF  Tt.xp>=l  AND  Tt.xp<— £  AND  Tt.yp=>0  AND  Tt.yp=<l 
Tt.menpkt=Tt.?cp+Tt.yp*2 
ENDIF 

IF  Tt.menpkt-1  OR  Tt.mcnpltt-2 
DEFTEXT  l.i, 0,6 
(®Set__menuback 
DEFTEXT  l,l ,0,9 
GRAPHMODE  2 
BOX  281,190,301,210 
BOX  260,180,302,211 
BOX  341,190,361.210 
BOX  340,169,362,211 
IF  Tfc.mcnpkt-=1 

TEXT  280,1  aO^TYPE  DE  TEXTE" 

ELSE 
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TEXT  2T4,  1BQ,"  HAUTEUR  DE  TEXTE" 

ENDIF 

TEXT  266,205,"+" 

TEXT  346,205,**-" 

D EFTEXT  l,T.extvar (2) ,0 ,T-«xtv»r(4 ) 

TEXT  2©G  ,252  .SO."*  ext*'1 
IF  Tt-menpkl=l 

PRINT  AT(40119)iT.«xtvar(2) 

ELSE 

PRINT  AT (40,13)  ;T.extvar(4) 

ENDIF 

REPEAT 

UNTIL  MOUSEK  OR  (X<250  OR  Y<150  OR  X>3&0  OR  Y>260) 

GRAPHMODE  1 

REPEAT 

MOUSE  X.Y.H 
IF  K>0 

IF  X>281  AND  X<301  AND  Y>19C  AND  Y<210  AND  Tt.mcnpkt=l 
INC  T.«5ftvar(2) 

'  IP  T.**lvw(2)>31 
T,extvar(2}^0 
ENDIF 

ENDIF 

IF  X>341  AND  X<361  AND  Y>  190  AND  Y<210  AND  Tt.meni>kt=I 
DEC  T.cxtver{2) 

IF  T.fixfcvar(2)<Cf 
T.cxtvjir(2)=Sl 
ENDIF 

ENDIF 

IF  X>281  AND  X<301  AND  Y>lfi0  AND  Y<2!0  AND  Tt.menpkt=2 
INC  T.extvar(4) 

IF  T,txivar(4)>26 
T.exfcYEir(4)  =2 
ENDIF 

ENDIF 

IF  x>341  AND  X<361  AND  Y>190  AND  Y<210  AND  Tfc,menPkfc=2 
DEC  T.oxtvar(4) 

IF  T.extvar(4)<2 
T .  fext  v  ar{  4 ) = 26 
ENDIF 
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ENDIF 
PAUSE  7 
IF  Tb.menpkt=l 

PRINT  ATfiOjlS)  iT-eJttvar(2}’ 

ELSE 

PRINT  AT(40l13);T.extvar(4)1 
ENDIF 

DEFTEXT  l,T.«xtvw[2L0,T.*xtvar{4) 
j^)Contour(C) 

PBOX  263,212,376,238 
^Contour(I) 

TEXT  26612B21SOr"TEXTE'' 

ENDIF 

UNTIL  X<250  OR  YciEO  OR  X>3B0  OR  Y>280 
GOTO  T-nreiNsIsrt 
ENDIF 

IF  Tfc.menpkfc— 3 
<&Set_n»miback 
DEFTEXT  1,1, 0,6 
'  TEXT  320,219/* EAST" 

DEFTEXT  tIOOD, 

TEXT  323,204,  NORTH11 
DEFTEXT  „IB00, 

TEXT  309,21 3,"  WEST" 

DEFTEXT  ,,2700, 

TEXT  317,227, "SOUTH" 

BOX  327,209,370,223 
BOX  313,162,327,207 
BOX  270,209,313,223 
BOX  313,225,327,268 
DEFFILL  ,2,2 
PBOX  270,162,308,204 
PfcOX  332,162,370,204 
PBOX  270,228,308,268 
PBOX  332,228,370,268 
PBOX  317,211,323,221 
DEFTEXT  1,1,0,13 
REPEAT 

UNTIL  MOUSEK  OR  fX<250  OR  Y<1 50  OR  X>390  OR  Y>280) 
GRAPHMODE  3 
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DEFFILL  ,2, 8 
REPEAT 
MOUSE  X.Y.K 
IF  K>D 

IF  X>327  AND  X<370  AND  Y>200  AND  Y<223 
T.*xtv&r(3)=0 
PBOX  327,209,370,223 
PAUSE  S 

PBOX  327,209,370.223 
END  IF 

IF  X>318  AND  X<327  AND  Y>162  AND  Y<207 
T.€Xtvar(3)=9DD 
PBOX  813,162.327,207 
PAUSE  5 

PBOX  SIS.  162,327.207 
ENDIF 

IF  X>270  AND  X<313  AND  Y>200  AND  Y<223 
T-extvar(3)=ieC{) 

PBOX  270,205,313,223 
'  PAUSE  6 

PBOX  270,200,313,223 
ENDIF 

IF  X>313  AND  X<S27  AND  Y>225  AND  Y<268 
T.«EtvBr(3)=2700 
PBOX  313,225.327.206 
PAUSE  5 

PBOX  313,325,327.266 
ENDIF 
PAUSE  7 
ENDIF 

UNTIL  X<250  OR  Y<150  OR  X>390  OR  Y>280 
GOTO  T. manat  art 
ENDIF 

IF  Tt.menpkt=4 
(giSet^menuback 
DEFTEXT  1,16,0,6 

TEXT  278,  ISO COULEUR  DE  ,TEXTE" 

DEFTEXT  ,1„12 
TEXT  281,221,nWHlTEr 
TEXT  281 ,262, "BLACK" 
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BOX  277, 284,564, 2$G 
GRAPRMODE  3 
DBF  FILL-  ,2,8 
PBOX  277,203,364,225 
REPEAT 

UNTIL  MOUSEK  OR  (X<260  OR  Y<1S0  OR  X>390  OR  Y>280] 
REPEAT 

MOUSE  X.Y.K 
IF  K>0 

IF  X>277  AND  Xc364  AND  Y>234  AND  Y <15G 
T,0Ktvaf(l)=sl 
PBOX  277,234 ,364, 2E6 
PAUSE  6 

PBOX  277,234,364,266 
ENDIF 

IP  X>277  AND  X<364  AND  Y>2(I3  AND  Y<225 
T.extvor(l)=0 
PBOX  277.203,364,225 
PAUSE  5 

"  PBOX  277,203,364,225 

ENDIF 
PAUSE  7 
ENDIF 

UNTIL  X<250  OR  Y<150  OR  X>39G  OR  Y>28G 
GOTO  T.rnenstart 
ENDIF 
PUT  250,1 50, 

RETURN 

PROCEDURE  S«fc__meimb»ck 
GRAPHMODE  1 
DEFFILL  ,0,0 
PBOX  250,150,390,380 
BOX  251,151,360,279 
DEFF1LL  ,2,4 
PBOX  254,164,386,276 
DBFFILL  ,0,6 
PBOX  260,160,380,276 
RETURN 

PROCEDURE  Aronprocp 
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*11  eet  possible,  pour  le  menu  principal,  de  charger  une  partle 
'memoriBee  de  l'4crao  et  de  I'inserer  dans  !a  page-ecran  actuelle. 

Tour  <6vitcr  dca  crrturts  4  3a  suite  de  ca  processus  (il  cat 
'contrdll  par  la  mfme  procedure  que  les  for  el  Ion  a  MOVE/COPY), 

'il  faut  analyser,  en  entrant  dans  une  procedure  de  bloc,  s’il 
Vagit  d'une  dee  deux  fonctions  de  bloc  ou  dune  par  tie  de  I'Gcrara 
'qui  4  4W  cfcargfie. 

IF  Block.  flag%=2 

’St  unc  parfcie  da  recran  a  tt£  chargee,  va  dans  la  procedure  de 
'placement  et  etoinfcs  cue  cute  le  mode  COPY. 

^SeiareaB 
Areae%— 0 
C.opy%=0 
Bloek.f5og%=G 
GOTO  Monedo 
ENDIF 
@Rubb  going 
IF  Norubb%=G 
Rubbflag%— 0 
IF  Block -flag%<>X 

“"Bkck.flag^-2"  a  d4J4  rat  trap  p$  nupar&vant.  Il  no  rest*  qua 

''  Block.flag^Ei— 1''  ou  "Block  XI ag%<  >  T.  Block-<1ftg$6=r'  Eignifierait 
'qu’une  partie  de  J'ieran  a  dija  6t6  d&ftnte  et  doit  maintenant 
"fttre  g&uvegard^e, 

GET  Xg%,Y«%,XK%,Yy5StMc.psu-t« 

'Si  cela  ii’est  pas  le  cas,  il  nc  pcul  e’agir  quo  d'une  des  deux 
‘operations  de  bloc  (MOVE/COPY)  Sauve garde  alorfl  la  partie  chot&ie 
'dans  le  tampon  de  quad  tillage. 

ENDIF 

@5etnrens 

va  dam  la  routine  de  placement 
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ENDIF 

Non*do: 

RETURN 

PROCEDURE  Set, clipping 

*Voub  avea  deja  rsncontrft  1 'expression  '‘Clipp"  ft  pluaieurs 
'reprises.  Cette  procedure  permet  de  dafinir  la  partic  aux  horde  de 
'laqueHe  tone  les  afTichages  grnphiquee  aont  coupes  (clipping; 

'rvngl.  :  dicovipc).  BDe  ne  permet  cependant  pas  dc  eonfcrfiler  lea 
’fonctions  de  quadrillagc  SELF  et  MOVE /COPY. 


@CHpprec(2) 

DEFTEXT  l  ,1,0,6 
GRAPIIMOD1  3 
REPEAT 

MOUSE  Cl.x]%tCLyl%,Button% 

TEXT  Cl4tl^,Cl-yl^,"METTRE  EN  PLACE  LA  BOITE  CLIPP" 

TEXT  Cl.xl%,CLy)%i**METTRE  EN  PLACE  LA  BOITE  ’CLIPP'" 
tJNTlL  Button%>0 
(sRubbcelf 
ClXT%~Xx% 

C\-yi%—Yy% 

{&SET.paraa 

Cl)pp.«et%=0 

RETURN 
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PROCEDURE  Sclaruas 
@C)ippr&;(2) 

Mc.don«%=0 
IF  Block.flag%=l 

'Comme  cela  a  eta  decrit  darts  Le  paragraphs  "ArenprocB",  Lint  partlC 
'dc  L’icran  cat  Bauvegardde  ict  iur  diiquetfce- 

FILESELECT  "  \  *  .bio"  .".blo"  ,  Selected? 

IF  Selected! <>”\. BL 0"  AND  Selected! >“  AND  Selected!<>"V 
DEFMOUSE  t 
E  .xten  akm$=*  BLO“ 

{^Extend 

GET  Xg^,Yg%1Xx^1Yy%rMc.part$ 

'Aprfea  avoir  dtfinl  1c  fichter  danfl  lequel  doit  itre  eauvegnrdee  la 

‘partic,  chasae  Cette  partie  danB  le  tampon  tie  quad  rill  age, 

BSAVE  Selected$3VARPTRtMC.part3).LEN(Mc.part3) 

* 

et  aauvegsrde  aort  con  ten  u  sur  disquette. 

DEFMOUSE  0 
ENDIF 

Block,  flag  95=0 
Areas  %=€ 

C.opy%=0 

'L 'operation  eat  terminee,  retourne  a  la  boucle  principale. 

GOTO  S.hownobloek 
END  IF 
Block*  ops— 0 
Show  area: 

REPEAT 

'Ici ,  I'cffet  plane  ur  dc  la  partic  cat  cr&6. 

MOUSE  X . ofTa el  ,  Y . of f?ct% ,B utton?? 

PUT  Xg%KYg%lMc.part*16 
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PUT  X g% , Yf % j Me .part$ ,6 
KeyS=!NKEYS 

Key  %  =ASC(LEFT$  (Kay  $)  )«r  ASC  (RIG  HT#(Key$) ) 

UNTIL  MOUSEK  OR  K.ey9C=M  OR  K.ey96=72  OR  K  ey^=76  OR  K.«y%=S0  OR 
K.#y$£=77  OR  K.ey%=100  OR  K.oy%=l04  OR  K,ey%=t08  OR  K.«y9fi=sll2 


Lfi  boucle  "planeur"  (shew  are  a)  n'eat  quit  tee  que  si  I'um  dea 


touches  BuivantoB  ce5  enfortetfe  ; 
touche  d*  la  aourn 
cESC>  (ASCII=27,  »ci  :  "2=E4) 
cFLECHE  VERS  LA  GAUCIIE>(SCAN=7S) 


=>  de placer  bloc 
=>  appelle  menu  principal 
—>  effefc  mtroir  vertical  du 


bloc 

cFLECHB  VERS  LE  BAS>(SCAN-80)  effet  miroir  hoHtontal 

du  bloc 

cFLECHE  VERS  LE  HAUT>(SCAN=72)  ->him  en  forme  de  tonneau 
<FLECHE  VERS  LA  DROlTE>(SCAN-77)  =>  vague  sinus  du  bloc 
<SIIIFT> f < FLECH E  GAUCHE>  (SCAN=104)  =>tronqucr  Woe  horizon- 

talcmcnt 

<SIIIPT>/<FLECHE  HAUT>(SOANs=ll2|  ;=>  t  conquer  bloc  verfcica- 
r  lemon  t 

<SII1FT>/<FLECIIE  BA  5>  (SC  AN =100)  ==>  espacement  horizontal  du 

bloc 


-  <SHIFT>/<FLECHE  DROITE>{SCAN=I08)  =>  asp  acorn  cut  vertical  du 

bloc 


ON  ERROR  GOSUR  BJockem* 

IF  K.«y%=54 

'St  la  touche  <E5C>  a  6te  utiliscc,  quiets  la  procedure. 

GOTO  S.hownoblock 
ENDIF 

IF  Xx$$-Xg%<2  OR  Yy%-Yg%<2  AND  Block.ops=0 

'Afirt  d'eviter  dee  erreurs,  i]  Taut,  dans  le  cas  present, 

'dcltnir  tin  bloc  de  Cattle  minimum  (2*2  pixels}. 

ALERT  l/Bloc  c*t  trap  petit!  !|  (Mini  mum:  2  "  a)",!,"  OUI 
"  .BaekalurtSS 

GOTO  S.hownoblock 
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ENDIF 

'Voub  crouvcrea  plus  haut,  une  description  dee  hint  GOSXJB&  qui 
’yurvenfc, 

'Apr as  avoir  terminer  ee  trai  foment  ep6cla],  1«  programme  re tour re 
%  la  boucte  "pl&neur"[GOTO  Showarta). 

IF  K.ey%=*0 
Block, ops=l 
@BIock.h.mir 
GOTO  Showarea 
END  IF 
IF  K.ey%=7E 
Block.opa-1 
§S)oc](.v.inir 
GOTO  Showarca 
ENDIF 
IF  K.ey%=73 
Block  .ops =1 
<siB  lock  y.  clly 
GOTO  Showare* 

END  IF 
IF  K  ey$6=77 

B)ock.ope=l 
@Block.x.farie 
GOTO  Showarca 
ENDIF 

IF  K.*y%~100 
Block,  ops— 1 
@0)ock.h.graw 
GOTO  Showsres 
ENDIF 

IF  Key 96=112 

Block.  ope=l 
(SBlock.h,  shrink 
GOTO  Show&rea 
ENDIF 

IF  *Cey96=104 
Block,  ops =1 
(fBlock.v.  shrink 
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GOTO  S  ho  were  n 

END  IF 

IF  K.ey%=10S 
Block. ops— 1 
@Block,v,8Tow 
GOTO  Show  a  re  a 
EKDIF 
ON  ERROR 

IF  AND  K,ey%*=0  AND  Block. opa=0 

*Sj  1’option  MOVE  a  <JiG  cholaLo,  efface  la  partie  dans  taquelte  La 
'bloc  doit  £tre  "d^cDup^'*. 

GRAPHMODB  1 
DEFFILL  ,0,0 
(S/Con  fctmrj(0) 

FEOX  Xg^Ygft.Xx^Yyft 
(SiContour(l) 

@SET.para* 

END  IF 
Block. cps=C 
REPEAT 

'll  e'agit  ici  de  La  bolide  dc  representation.  Elio  eefc  pare  ou  rue 
1  junqufA.  ce  qua  la  louche  de  la  Bouris,  enfoncie  tors  de  la 
'derm  fere  boucle,  soit  relachfee.  St  elle  reste  enfonc^e,  il  eel 
'■possible  de  deplacar  le  bloc  but  L 'fee  ran, 

'Lc  mode  de  procedure  de  ce  type  de  representation  a  deja  fete 
'fetudife  plus  haut  pour  un  cas  simUaire 

MOUSE  X.x&,Y.y?5,BuMcn% 

IF  Showline6$C=I 
X-Xx% 

Y=Y.y% 

<&S. bowlines 
END  IF 

IF  Conflt.lineH?S=;I 
$G  one t. lines 
END  IF 

IF  grillemod^-l 
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X .  x%=IlS'T(  X  /t  rou  al  arge%)  *  i  ro  ueb  rge% 

V.y  % =1  NT(  Y  .y  %  /  fe  rouH  L  arge  % )  ^  tpouilargeSo 

ENDIF 

PUT  (Xjl%- [X.ofhet  %-Xg$6J),(Y ,y%'{Y.offBefc% -  Yg$6)) ,Mc.pnrt$.6 
PUT  (X.x%“(X.offBc|%-XJffSt))p(Y.y%-(Y.off«ct%-Yg%)),Mc.P6rt$l6 
UNTIL  B«ttoo$6=0  OR  Butt  on  $6=3 
IF  Button%=l  OR  But  ton $6=3 
Mc.done%=l 
IF  Button $6=3 

PUT  X g9o ,  Yg% ,Mc -part$ , 3 
ENDIF 
ENDIF 

IF  Button $6=0  AND  K.ey%=0 
(£  Change  mod 

PUT  (X.3t$fl-{X.off9et96-Xg%))1(Y.y$S-(Y.offset%- 
Yg96) )  rM  c  .part  $,  Q  uadmod  % 

ENDIF 

S.hownoblock: 

@G.etftip 

IF  Flip.done96=l  AND  S.wapper5|i=I 

'SI,  iorB  du  passage  d'un  ^crnn  &  un  autre,  MOVE  a  miec  en 
’place  "M.ove^*'  et  "C.opy%"  ont  <6t£  feh&ngdcs.  Une  foia  Paction 
’but  la  nouvelle  page- ter  an  tarminie,  le  programme  retourtte  &  MOVE, 
’ll  continue  edors  but  la  nouvelle  pngc-Ccr&n  ert  MOVE, 

S.  tapper  56=0 

SWAP  M.ove%,C.opy% 

ENDIF 

Flip.done%=0 

RETURN 

PROCEDURE  BJockerror 
JF  Etr=S 

ALERT  3luM4molre  saturae  U|  Chois  i&seE  iventimilement  |une 
partk  plus  petite  "T,*1  OKAY  ",Bockfi|crt% 

ELSE 

ERROR  Err 
ENDIF 

ERASE  Mir.memSQ 
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@J?.utflip 

RESUME  S.howneblock 
RETURN 

PROCEDURE  Rkwk.b.grow 

'Pro endure  pour  e  spacer  U  bloc  horiscntnloment 

ERASE  Ygd%() 

DIM  ¥gd%(0) 

’La  definition  des  dime  ns  ions  de  MYgd%"  n’a  Mlcllne  signification,  A 
’cause  de  la  longueur  du  programme,  une  eireur  de  geation  deB 
'adrefises  s’oit  produite  dane  La  version  bo  us  mas  yeux.  Cette 
'erreur  eat  an  mile  e  grace  &  La  definition  dea  dimeniione- 

Block  lineS%=YySS-Yg^ 

■Retourne  en  pixels  la  hauteur  du  bloc  ... 

f 

DIM  M ir.TncmS (B1  ockl i  n  es  PE ) 

prepare  un  tableau  nontenant  un  n ombre  d'd&nentB 
'correspond  ants 

FOR  1=1  TO  BlocklineeSfe 

G  ET  Xg%,Yg%  *  I  -  l,Xx%,Yg%+ I,Mir  .Kiemt  (I) 

’...  dicoupe  le  bloc  en  outwit  de  lignea  boriaontalea  de  pixels  ... 

NEXT  I 
CLS 

efface  la  page-iemn  pour  que  le  fond  ne  so  it  pas  repris  dnnB 
'le  notiveau  bloc  ... 


FOR  l-l  TO  BbckJines^ 

PUT  Xg9S,Yg9S+(r2),Mir,niem$(I),S 
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"...  compose  le  nouveau  bloc  ... 

NEXT  I 

Ygd&(»)=Yg%+  2*Hbcklincs% 

.  calcule  le  nouveau  bord  Inflriour  du  bloc  ... 

IP  Ygd%(0)>399 

a’il  dfpasse  le  bord  infericur  de  l'4cranf  dicoupa  li  nouveau 
'bloc  id... 


Ygd%(O)=30B 

ENDIF 

G  ET  Xg%,  Yg%,Xx9*  ,Ygd%(0)  (Mc  part  $ 

V-,  tr&nsmeta  le  nouveau  bloc  done  )c  tampon  dc  quad  rill  age... 

©P.utOip 

'...  et  r^affiche  l’ Image  acfcuelle. 

ERASE  MLr.mem$() 

RETURN 

PROCEDURE  Block. k. shrink 

’Cette  procedure  correspond,  en  gros,  A  la  procedure  pr4c6dente. 
'Dane  ie  ea§  present ,  copendamt,  le  nouveau  bloc  est  tronqui 
Verticalement  de  1:2. 

B|ock|jnea%s=Yy%-Yg% 

DIM  Mir. m«mt( Block llnes^) 

FOR  1=1  TO  Blocklmes% 

GET  Xg^lYg%+I-l1Xx%tYg%+  I.MiiMnernffl) 

NEXT  I 
CLS 

FOR  1-1  TO  Blocklines 

PUT  Xg96fY(f9t+INT(I/2)(Mir.m*in«(l),S 

NEXT  l 
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G ET  Xg% ,  Yg%  ,Xx%,Yg%+  INT(Blockli  ne*%/ 2) ,  Me.  part  3 
gP.ufcOip 

ERASE  Mir.memS() 

RETURN 

PROCEDURE  Block .v. grow 

'Lc  mime  proc£d£  que  pour  "Block .h  grow".  Id,  la  lurgeur  du  bloc 
feet  esp&ctie. 

ERASE  Xgd%() 

DIM  Xgd%(0) 

BlocklineB%=Xx%-Xg% 

DIM  MLr.mcin$  [Block  15  nes%) 

FOR  1=1  TO  Bl<xklinee% 

GET  Xg%+  l-l,Yg%,Xg% +■  I.Yy^.Mir.memStl) 

NEXT  1 
CLS 

FOR  1=1  TO  B[ocklmea% 

PUT  Xg^*I*2,Yg%,Mir.mem^I),3 
NEXT  'I 

XgdS6(0)—Xg%+  BJockline8%*  2 
IF  Xgd%(Q)>6S0 
Xgd%(G)=639 
ENDIP 

GET  Xg%,Yg%1Xgd%(0)  .Yy^.Mc.pnrtS 
(??P  .ut  flip 

ERASE  Mir.mem$() 

RETURN 

PROCEDURE  Bloc  fc.v  .shrink 

'Dc  nouveau  ta  mime  chofie  que  pour  "Bloek-h-ebrink".  Cette  foi®  la 
’largeuf  du  bloc  est  raccourcie 

BlockJinc*%=Xx9fi-Xg?S 
DIM  Mtr.mcm$(Biock[incs%) 

FOR  1=1  TO  Block!  uiob$d 

GET  Xg5n  +  1-1  ,Yg^ ,Xg9S «■  I»Yy% ,Mir.mern$(I) 

NEXT  I 
CLS 

FOR  1=1  TO  Blccklima^ 
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PUT  Xg%+Int(I/*),Yg%JMirtinem4(I),S 
NEXT  I 

GET  Xg%,Y$% ,X%% + INT  (BlocklineB%/2),Yy%>lc.p*rt$ 
(ffiP.ufcflip 

ERASE  Mir.memSQ 
RETURN 

PROCEDURE  Elockhmir 


’En  princlpe,  Is  pr^eente  procedure  ne  diffire  <Jga!cment  pae  de  La 
’procedure  precedent  c.  Sculemant  ip,  lea  borides  horicontalea  tie 
Timage  sont  affich^es  dans  Pordre  inv«r*G  do  la  aalaie,  L'offce 
'd«  miroir  horizontal  eat  done  act  if. 


B  locklin  e»9t = Yy  %  -  Yg!f£ 

DIM  Mir. mem$ ( B 1  ockl Lneu  5i5 ) 

FOR  1=1  TO  Blocktines^ 

GET  Xg%(Yg%+ M  ,TU%t Yg%+  f^MLrnwntf  (I) 
NEXT  I 
*CLS 

FOR  1=1  TO  Blocklin«% 

PUT  Xg%,Yy%-T,Mir.mem$(I)  ,3 
NEXT  l 

GET  Xg$6,Yg?S,Xx&iYy?«1Mc.ptirt& 

{EP.otfUp 

ERASE  Mlr.mem$0 
RETURN 

PROCEDURE  Block,  v.roir 
Block]ioc0?J=Xx%-Xg% 

DIM  Mi r.memt (Block lineal) 

FOR  1=1  TO  BlockLines% 

GET  Xg?fi+  i-l,Yg?$pXgS6+  I,Yy%,MLr  jtkic]$(I) 
NEXT  I 
CLS 

FOR  1=1  TO  Blocklioce% 

PUT  Xx%-l,YE%1Mir.r«em$(]),S 
NEXT  I 

GET  XtfS.YgSi.XxSS.Yy^Mc.p&rtt 
@P.utf)ip 

ERASE  Mir.mefn$() 
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RETURN 

PROCEDURE  Bloc k.y  .ally 


II  s’agit  sans  dome,  id,  de  la  procedure  Ka  plus  interessante  de 
tout  le  programme.  Elle  n’est  pas  speeialement  raffinee,  mais 
introduit,  par  contre,  une  nou veils  dimension  dans  la  programimtion 
graphlque.  Ses  astuces  nous  sont  deja  familieres  grace  a  la  tele. 
Tout  le  monde  les  connait,  mais  peu  savent  comment  elles  fonc- 
tionnent  :  la  representation  sur  trois  dimensions.  Ce  ne  sont  pas 
des  figures  mathematiques  dans  Tespace,  mais  des  images  complexes. 
La  conception  du  present  programme  n’est  pas  du  tout  adaptee  a  la 
gestion  de  ce  genre  de  procedures  volummeuses.  II  s’agit  d*un 
programme  graphique  et  non  d’un  atelier  de  bricolage  sur  trois 
dimensions.  Malgre  cela,  ce  genre  de  routines  pourrait  votis  inciter 
a  dcvelopper  vos  propres  idees  dans  Cette  direction  et  &  les 
realiser  ensuite. 

La  routine  ci-dessus  a  pour  ronction  de  transformer  la  partie  de 
I’ecran  thoisie  par  MOVE/COPY  en  une  image  vcGtee  comme  un 
tonneau,  grace  a  Pemploi  du  bon  vieux  Pythagore.  L^rientation 
du  tonneau  peut  alors  etre  choisie  comme  vous  le  souhaitez,  II  en 
resulte  une  projection  en  forme  de  cercle  ou  en  forme  d’ ellipse. 


Blocklifias3S=Xx?£  -XgSS 
DIM  Mir.  room$  (Block  II  nos  %) 

ALERT  2,nAvec  ou  sans  contour?", O'  AVEC  |  SANS  TI,B^kalort% 

’Pour  rendre  la  choee  un  peu  plus  itic^rcuatitc,  on  pout  choisir  qua 
'le  tonneau  ait  un  bord  notr  en  haul,  en  bas,  ou  pas  de  bord  du 
’tout, 

IF  Bnck  alert %=J 
SUB  Yg%,3 
ADD  Yy%,3 
ENDIF 
COLOR  1 
DEFLINE  C.S.O.O 
IF  Backolert%=l 
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LINE  Xg$fi,Yg96,Xx9ti,Yg?fi 
LINE  Xg%yy%,Xx%,Yy% 

'Si  out,  deux  liffnea  6paieses  acre  trnciee  &nx  horde  aupdrieur  et 
‘infcricux  du  blot. 

END  IF 

FOR  1-1  TO  Btocklmcs% 

GET  Xg%+M,Yg%-l,XIJ%+lIYy^+  l.M>rmem$(I) 

'Nous  connoisecns  deji  La  flaieie  de  tea  Jignes  grfice  aux  routines 
*pr4ctSdentes. 

NEXT  I 
CLS 

DEFLINE  ,l,t 

PRINT  AT(2 ,2);"  D^terminez  Darien  tat  ion  !n 

’Maintennnt  tine  boutlc  wt  d*vdoppe<j,  truant  vine  eliipec 
'modifiable  el  attendant  dcs  replacements  de  la  sourLe  ou  un  emploi 
'dee  touches  do  la  eouris.  Ceci  per  met  da  dtiflnlr  ['orientation  du 
'tonneau, 

GRAPHMODE S 
PAUSE  10 

RayX%= Block  Li  nea%  /i 
REPEAT 

MOUSE  EILxx,EU.yy,K 
Rny¥?£=AbB(2t}0-Eibyy) 

ELLIPSE  S201200lrayX%fray¥% 

ELLIPSE  32012001rayX^,rayY^ 

UNTIL  MOUSEK 
CLS 

B  loekrowB?S = Yy  % -Yg% 

'Dans  le  cas  present,  il  nous  faut,  outre  la  largeur  du  bloc,  ea 
'hauteur  sifln  de  pouveir  cal  cuter  en  suite  oil  se  trouvera  le  bord 
'inftrieur  de  la  future  Image  du  tonneau. 

Xg%=320-|BlockUn«^/4) 
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Yg%=0 

’Four  ne  pa  a-  avoir  trop  &  convertir,  une  position  eat  affects  au 
'nouveau  bloc,  qui  peut  £tr«  intigric  pin*  fad  Lament.  dsns  le 
■proccasuB  rnathimatique. 

H_y  po%—B  loekli  ncs  %/4 
H_ypo2%=rayY% 

'Pour  c&Iculer  I 'ellipse,  il  nous  faut  lea  rayons  dea  deux  CeTclca 
■qul  determinant  la  position  d«  ea  eourbc. 

'll  s’&git  dn  rayon  Y  da  1‘eUipse  auparavant  diftni  el  etc  la 
'largeur  du  tonneau  (di&mfctre  du  tonneou=lnrgcur  du  bloc/2)  devisee 
■par  2  (d/2=r),  done  largsur  du  btoc/4. 

Cent  cr.x%=Xg%+  H_ypo% 

Cent  er.y  56=  Yg%+  H_ypo% 

'lei,  le  centre  commun  des  deux  cercle*  d'origine  eat  calculi. 

4T 

#Tinny 

Ce,p>'5!5=YgS£i+  2*rayY%+BlockrDWB%+*l 

'tine  foie  lee  calculi  ct  k  deesin  du  tonneau  termini* a,  3c  bord 
'LnfirLeur  du  nouveau  bloc  eat  &  nouveau  calculi.. 

IP  ce.ry%>398 

*S*i)  se  Irouve  an  dehors  de  I’icran,  le  nouveau  bloc  eet  dicoupi 
’au  bord  inferieur  de  1'icran. 

Ce.ry%=898 

ENDIF 

GET  Xg%,Yg%+  lJXg%+3’*H_ypo%1Ce.ry96+  l.Mc.psrtS 
‘Entree  du  nouveau  bloc  en  tampon  de  quadrillage 
ff’P.Utflip 

'Rome tire  page-iersn  actuelle. 
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PROCEDURE  Tcxtrotttion  (HandletAnglt) 

‘Voua  pouvci  dffinir  1' orientation  dtt  c&ncttm  (voir  euiai 
DEFTEXT/perwn  3). 

DPOKE  CONTRL+  2,0 
DPOKE  CONTRL+6.1 
DPOKE  CONTRL+  12,H*itdle 
DPOKE  In  tin  Angle 
VDISYS  13 

RETURN 

* 

PROCEDU  RE  Text  graph  ( H  nndle.G  ra  p  h  mode) 

'Voua  pouvci  definir  le  mode  gr&phique  (voir  auui  GRAPHMODE) 

DPOKE  CONTRL+2,0 

DPOKE  CONTRL+6,1 

DPOKE  CONTRL+  12,Haitdle 

DPOKE  Intin.Graphmode 

VDISYS  32 

RETURN 

4 

PROCEDURE  Texltype  (Handle .Text lyp*) 

'Modification  du  type  de*  carsctirei  (voir  auafti 
*DEfTEXT/par*m.2)* 

DPOKE  CONTRL+2,0 
DPOKE  CQNTRL+6,1 
DPOKE  CONTRL+ 12, Handle 
DPOKE  Intin.Texttype 
VDISYS  106 

RETURN 

I 

PROCEDURE  Teatplx (Hand l«  ,X  pixel , Y pixel) 

‘Teat  de«  pixel  a  de  I'ieran  (voir  auaai  P  OINT), 

'"Pxaet*  retourne  ai  le  pixel  eat  poiitionn*  ou  non. 

'*Fxcoi*  contient  enauite  |a  v&leur  de  couleur  du  pixel. 

DPOKE  CONTRL+2,2 
DPOKE  CONTRL+6.0 
DPOKE  CONTRL+ 12. Handle 
DPOKE  Ptain,Xpixel 
DPOKE  Plain*  2, Ypixel 
VDISYS  106 
Pits  et  =  D  P  E  EK  ( In  tout ) 
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Les  noms  de  variable?  utilises  pour  le  dessin  ei-dessus  sont  dif- 
ferents  de  ceux  employes  dam  les  procedures  Qui  suivent,  L’algo- 
rithme  decrit  (mode  de  procedure)  est  ggalement  different.  Le 
dessin  doit  montrer  en  gros  le  principe  de  ce  mode. 

Ln  fait,  il  s’agit  de  la  mfime  procedure.  I!  existe  deux  cercles 
iniiiaux.  Le  diametre  du  premier  correspond  a  la  moitie  de  la 
largeur  de  la  partie  choisie.  Le  diametre  du  second  peut  61  re 
defiui  comme  vous  le  souhaitez. 

Vous  pouvez  maintenant  calculer  les  points  circonferentiels 
(largeur  de  la  partie=200)  de  Tellipse  selon  la  methode  decrite 
dans  le  dessin.  Les  bandes  de  1' image  sont  alors  placees  k  cm 
points.  II  faut  done  faire  le  calcul  suivant  pour  chacun  des 
points. 


FOR  l%=’l  DOWNTO  (H_ypo%*(-(l))) 

'Tout  d  &bord,  SO  pointe  A  partir  du  somme  t  on  direction  du  point 
'd' intersection  a  litre  le  ccrck  «t  l' axe  centra]  horizontal 

X. l«ftl%“Cente*\x%4 1% 

Y. leftl=Center.y%-SQR(H_ypo%‘2-£lSifi#(-l))"2) 

R  apport =H_y  p  o%  /  Y  J  eftl 

Y .  lefts  %=H_ypo2%/ Rapport 

PUT  X.kftl96,Y.leffc2%+ 1  ,M Wem.mdex%) .Quadtood^ 
Inc  Mem.index% 

IF  Mom.md«x%=H_ypo5S 
lS6=(H_ypoSS*(-(l)l) 

END  IF 
NEXT  195 

Mem.  tndeK%~3  *  H_ypo% 

FOR  I%=II_ypo96  DOWNTO  1 

'Puis,  k  quart  supgricur  droit  de  1 'ellipse  &  partir  du  point 
*d’  intersection  droit  entre  le  cercle  et  I 'axe  central  horizontal 
'en  direction  du  sommet, 
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X. lefit  l96=Center.x96+ 195 

Y. leftl-  CenUr,y%-SQR(H_y|>o%*2  -1» "  2) 

Rapport^ll_ypo%  /  Y .  left  1 

Y .  lcft29S>  =H_jr  po2  56  /Rapport 

PUT  X-l*ftl$6,Y.left29t+-  l,Mir*memt(Mein.index96)JQuadmod96 
INC  M«n.inde*% 

IF  Mesm.mdex96=4*H_jypo% 

156=1 
END  IF 
NEXT  1% 

M  em  .1  ndex% = H_y  po% 

FOR  l%=(R_ypo%*{-(l)))  TO  ~1 

'Ensuite,  50  points  &  partir  du  point  d’int  creed  ion  gauche  eotre 

Jlo  cercle  et  l’nxe  central  horizontal  en  direction  de  la  base. 


X -left  196=  Cen  ter.x%+  196 

Y.laftl=CefttBr.yS6^SQR(H_y|>o%*2-(m''(-l))"2) 
Rapport=H_ypo9fi  /Y  .leftl 
Y .  lefts  % = H_yp  o2%/Rnpport 

PUT  X-!eftI%,Y,leffc296+-  l(Mir.m*m$(Mem.index%),Quadmod% 
INC  M*m.lndex% 

IF  Mem.ind«e96=2*H_ypo96 
156=1 
END  IF 
NEXT  196 

FOR  196=1  TO  H_ypo% 

’c6  enfin,  encore  une  foie  50  points  h  partir  de  la  base  en 
'direction  du  point  d 'inters action  droit  entre  ie  eercle  et  I'axe 
'central  horizontal 

X.  Ieftl96= Center  .x%* 1% 

Y. Iem=Center.y%+3QR(H=ypo96"2-(l96+(-l»''2) 

Rapport =H__ypo?6/  Y  .left  1 

Y .  Ieft2  96 =H_ypo2 96 /Rapport 

PUT  X-IeRl%,Y,left356+l1Mir.nieiTi$(Meiii.inde>t56)iQutdmod% 
INC  Mem.index% 
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If  MenUndcx9G=S*H_ypo% 
Ift=H_yp©% 

END  IF 
NEXT  1% 

RETURN 
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PROCEDURE  Block  x-fode 

*Voil8  umo  outre  routine  intdrceesnte  pour  r^prCrstriter  d«e  image  a 
Jdeform&«8.  La  pertie  de  J'ecran  choiaje  eat  attaches  &  une  courbe 
ainu&  dont  vous  pouves  determiner  La  hauteur  comma  YOue  le 
'aouh  alter, 

E  l  ock  Li  n  e?%=Xx56  -Xg% 

Blockrowa%=Yy%’Yg% 

DIM  Mir. memif Block lines % ) 

FOR  1=1  TO  BLccklm«#% 

GET  Xg%+I-l,Yg%1Xff%+IrYy%1Mir.mem*(I] 

NEXT  I 
CLS 

'Jusqu'ici  tout  eat  d£jfc  connu. 

PRINT  AT(2,2);" Determines  la  hauteur  sinus  " 

’Uvse  tx> ucle  eat  fdore  diveloppfie  &  partir  de  Ik,  k  l'int4rieur  de 
'laquelle  la  hauteur  sinus  pent  etre  d£finie  a  l'aida  du 
’emplacement  de  la  sourla  suivi  de  l'empioi  de  ace  touches. 

GRAPHMODE  8 
DEFLINE  0,8,2, 2 
REPEAT 

MOUSE  X  Yein.K 

LINE  820, Ysin  ,820,809  -V si  n 

LINE  820, Y Bin ,820 , 3 90- Y ai n 

PRINT  AT(2 ,4)  ,Aba(Yain-(309~Ysin|)  ’ ’ 

UNTIL  MOUSEK 
CLS 

GRAPHMODE  1 
DEFLINE  0,1 ,0,0 
Courbe .  h  %  =Abs(  Y sin  -  (  899  -  Y sin ) ) 

'tokuler  hauteur  de  la  courbe,.. 

X.long%=0 


320  - 


L‘  a  h  c  du  CjA 


'..remettr©  A  Biro  lo  compteur  des  differ  on  tc&  bcvndos  dc  I1  Imago 

St.x%=Xe% 

\..  doubler  la  coordonike  du  bord  gauche  (die  Bern  rkeeftftftir©  en 

*tant  que  dibut  da  compteur) 

Vg%=200-(Blockrows%/2) 

placer  La  bloc  au  centre  do  la  pap-krnn  ... 

Yy%=Y  g%  4-  B  lockr  ows% 

calculer  la  caardonnee  du  bord  inferieur. 

FOE  I=PI  To  3"*Pl  STEP  PI/((Xx%-Xg%)/2) 

‘boucle  ‘pi  step1  pour  sinus 

INC  X,bng% 

‘k  compteur  do  bande*  4-1  ... 

Courbe.p%=lNT(Courbe.h%*SIN(I)*O.S) 
calcuEcr  lea  difterentE,  points  de  la  vague  ... 
yi.8in%=Courbf!.p^+  Yg% 

cakuEer  la  nouvelle  coord  onnOe  Y  aupfeieure  par  rapport  ft 
Tancienne  coordoim4e  Y  du  bloc  ... 

ADD 

'...  coordonnfte  X  relative  + 1  ... 

PUT  StIx%iYl.sin^,Mir.mDn4(X.lDn^j,QuBdmDd% 


-  321  - 


Le  Itvre  du  BASIC  G/A 


et  placer  la  bande  image  correspond  ante  sur  la  nouveUe 
'position. 

IF  X.long?S=Xx^-XgK 

’Si  la  boucle  a  414  parcourue  autant  de  folfi  qu'il  y  a  de  bandee- 

’images  difKrentc*... 

I=S+Fi 

sort  da  la  boucle  {vukur  finale  de  l«  boucle  —  SwPi). 

END  IF 
NEXT  I 

Sjpys%=Vg%-Courbe.h% 

Sinyi$$=  Yy  %+  Courbe .  h% 

'Calculer  le  nouveau  bord  sup4rieur  et  infirieur  du  bloc  ... 

IF  S»ny0%«J 

8inyi%=0 

ENDIF 

IF  Smyi%>&99 

Sinyi%=3f)9 

ENDIF 

et  dficouper  4ventuellcment  le  bord  de  l'4cran. 

GET  Xg%,Smya9£  lXx%,Sinyi%,Mc.part? 

'Nouveau  bloc  dans  1«  tampon  de  quadri  lings., 

^P.ulftip 

ct  roafTieher  la  page-ecran  actuelle. 

ERASE  Mir,mem$() 

RETURN 
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3,2-22  Leg  tone  lions  trigononiftHques 


SIN,  COS.  TAN 

Syntaxe : 

$lN{valeur) 

COS(valeur) 

TAN(valeur) 

La  fonction  SIN  retourne  ie  sinus  de  Tangle  en  radian  indique 
entre  parentheses.  Pour  obtenir  le  sinus  d'un  angle  en  degre,  il 
doit  etre  indique  comme  suit :  (nombre  de  degres  *  Pi  /  180) 

La  fonction  COS  retourne  le  cosinus  de  Tangle  selon  le  meme 
principe  comme  cela  a  ete  decrit  ciniessus. 

La  fonction  TAN  retourne  la  tangente  de  Tangle  selon  le  meme 
principle  comme  cela  a  et6  decrit  ci-dessus. 

Exempte  : 
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ATN 


Syntaxe : 

ATN(valeur) 

La  fonction  ATN  permet  de  calculer  Tangle  en  RAD  correspondant 
£  la  valeur  de  la  tangente  indiquee.  La  valeur  retournee  esl 
comprise  enire  -Pi/2  et  Pi/2.  Si  Ton  vent  convertir  cet  angle  en 
degre,  la  tangente  doit  etre  indiquee  corame  suit  : 

(tangente  indiquee  *  180  /  Pi) 

Example  : 

Le  programme  vous  demande  d’abord  d’indiquer  deux  longueurs 
de  cotes.  11  doit  calculer  les  tangentes  des  deux  angles 
hypotenuse/edte  (A;B)  d’un  triangle  rectangle,  selon  le  postulat 
"tangente  A  =  b  /  aYtangente  B  =  a  /  b\  Ensuite,  le  programme 
cateule  les  angles  en  degres  correspondants  et  fini  par  les 
reconvert ir  en  tangentes  et  longueurs  de  cOtcs.  Puis,  it  trace  le 
triangle  en  question. 


do 

CLS 

INPUT  "Longueur  cOfci  &  i^cAU.b 
INPUT  "longueur  cdt4  b  i*lyc6t£.b 
A  .tangentes  eot£  ,b/e6ti.& 

B  ,langente^c6l4.a/cdtAb 

PRINT  '’Tangente  A  :  n;  A. tangente 

PRINT  "Tangente  B  :  ^B.tang:enteiCHRS(10) 

A,ftngl*“ATN(  A,  tangent  e)  160/Pi 

B  .angle  ~  ATN  ( B .  I  an  gen  t  a]  *18C/Pi 

PRJNT  "Angle  A  :  n; A. Angle 

PRINT  "Angle  B  ;  ";B.Bngl6iCHR3(l0) 

PRINT  "Contr6Le  :";CHR*(lD) 

Na.tangente—TAN(A. angle"  Pi/ ISO] 
Nb,fcangentc=sTAN(B.  angle*  Pi /ISO) 

PRINT  "Tangente  A  nouveau  :  ";N&.fcangenle 
PRINT  "Tangente  B  nouveau  \  ^Nb.tEmgoftte.CHR.SflO) 
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i  .  .  ,  j..  .  1  .  ■ 

PRINT  "Total  rie  ton*  lei  angU»(180)  :* ;904- A. »ngl«+  B, angle 
Kypoti Jtu«e"SQR(c6t^  2+  cfltfe.b'2) 

N ,  c6t(5,a~hy  pofcinu  w4  $1 N  ( B .  angle  *  F  l/lSO) 

NxGt4  .b~kypot4nuie*COS{B.angle*Pi  / 180) 

PRINT  "Hypolfinuse  :  ,1';hypot*nute 
PRINT  a  nouveau  ; 

PRINT  "Cfiti  b  nouveau  i  ";N.c6t6.b 
PLOT  620,380 

DRAW  TO  T620sS80-(N.cat£.b)  TO  020-(N.c6M.a)1380  TO  620,380 
TEXT  6l5,3jB0’tN.c6tt.ty3)>*a" 

TEXT  620^N.t6tA*/3),$8S,ttb" 

TEXT  620  -(N:cdt6.a/2)1380-(N.c«6,b/2);te* 

TEXT  620  -LEN(STRt [B-&ngU))^f380-N .coii.b -2,B,an€fe 
TEXT  02(HN-t:6t4 .  a-LEN  £STR$  (A .  angla) ) 4  8 ,380 , A-  angl  e 
Sutface=iN*eflt§,  »4N,C&t4.b/2 

TEXT  620* (N  oftW. a/3) jB8p * (N.cdt£*b/ 4)  ,T ;  "+STR$(  surface) 
REPEAT 

UNTIL  LEN(INKEYl) 

bQop  - _ ••  "  • _ _ ' ' .  -■ - -  ;  ■  - - 


Longueur  cotl  8  :  472 
Longueur  cot£  b  :  302 
Tenge nte  A  !  B  63983050847 
Tanjcrite  8  !  I.S621139073 


Angie  A  : 
Angle  B  : 

Controls 


32.612353244 

57,187646755 


Tangento  A  nouveau 
Tangente  B  nouveau 


0 .6398 30 503 42 
1 .5629139074 


Total  dc  feus  les  angles  (1801  ;IB0 
Hypotenuse  i  518. 34632148 
Cote  a  nouveau  •  472.00080007 
Cote  b  nouveau  ;  3B2, BO0B0002 


F  !  71272.  €100016 


.32.61235 
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PI 

Syntaxe : 

n 

Vous  avez  rencontre  &  pi  us  lours  reprises  la  valeur  pi  dans  les 
examples  precedents*  En  BASIC  GfA,  ce  nombre  est  represente 
par  la  variable  r&ervge  PI  {3.1415926536),  Comme  pour  les 
fonctions  ERR  et  FATAL,  if  n’est  pas  possible  de  modifier  cette 
variable.  D'eventuelles  affectations  sont  accept6es,  mais  ne 
modifient  pas  du  tout  le  comtemi  de  fa  variable. 

Un  petit  "monument"  :  L’origine  historique  de  pi  n’est  pas  tout  a 
fait  eciaircie.  II  est  communSment  admis  que  les  Egyptiens  La 
connaissaiem  il  y  a  environ  3500  ans.  Le  rapport  de  rinclinaison 
des  cotes  sur  la  surface  de  base  de  la  plupart  des  pyramides 
egyptiennes  donne  souvent  cette  valeur.  De  toute  fagon,  elle  est  un 
des  acquis  les  plus  geniaux  de  L*humanit£. 

c 

Vous  pouvez  Tobtenir,  par  exemple  en  tra$ant  un  cercle  exact.  Puls 
vous  prenez  son  diametre  avec  un  fil  que  vous  places  ensuite  $ur  le 
perimetre.  II  est  possible  de  le  mettre  exactement  3.1415926536 
fois  (perimetre=diam&re*pi),  La  redecouverte  de  ce  nombre  est 
attribute  a  un  mathematician  de  la  Grece  Antique  qui,  le  premier, 
joua  It  ce  jeu  de  fil  et  de  cercle.  Ses  effets  sur  le  developpement 
de  la  culture  humain©  sont  plus  nombreux  qu'on  ne  le  pense.  La 
technologic  informatique  moderne  serait  inimaginable  sans  ce 
nombre.  S’il  n*etait  pas  deja  existant,  il  faudrait  V inventer  le 
plus  vile  possible. 


LOG,  LOG  10 

Syntaxe : 

LOG(  valeur) 
LOG  10(  valeur) 
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La  fonction  LOG  retourne  le  logarithme  naturel  (neperien)  de 
Fexpression  numerique  situee  entre  parentheses  (logarithme  de  base 
"cT  =>  2,718281828) 

LOGlO  calcule  le  logarithm©  decimal  de  Fexpression  numerique 
indiquee  entre  parentheses  (logarithme  de  base  10). 

Ixemple : 


A— S22.571 

PRitrr  LOC(A)M,LOGia(43.S83)  . 

Sortie  :  5,776323267  1.6422963099 


3,2.23  Les  fonctions  diflitles  par  sol-mime 


DEFFN 
Syntaxe : 

DEFFN  nom  de  la  fonetion[(variables)]=*expre$5ion  de  la  fonction 

DEFFN  at  une  instruction  confortable  pour  definir  de  fagon 
compact©  des  fonctions  mathematiques  ou  alphanumeriques.  11  est 
possible  d’y  ajouter  entre  parentheses  time  list©  optionnelle 
(facultative  ;  *ou  bien  ceci*  ou  bien  cela1*)  de  variables.  Leur 
contenu  est  ensuite  traite  a  F  inter  ieur  de  la  fonction.  La  liste 
peut  contenir  des  variables  de  types  differents  (nombre  reel, 
nombre  entier,  chaine  de  caracteres  etc.).  Mais  il  n’est  alors 
possible  d’executer  que  des  operations  correspondent  mi  type  de 
fonction  utilise.  Cete  sign  if  ie  que  pour  une  fonction  de  type 
chaine  de  caracteres  (nom  de  variable  +  M$"  ajoutee),  seules  des 
operations  de  chaine  peuvent  etre  executes.  Four  les  fonctions  de 
type  nu  merique,  ii  o' est  done  possible  d  Vxecuter  que  des 
operations  numcriques. 
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Le  choix  du  nom  de  la  fonction  est  enticement  h  votre  disposition. 
Vous  pouvez  mfcme  utiliser  des  no  ms  destructions  en  BASIC  ou 
des  variables  d6j&  existantes.  Ceci  est  possible,  car  le  nom  de 
fonction  est  inseparable  de  la  fonction  ainsi  definie.  II  n’est 
cependant  pas  autorise  d’ utiliser  les  noms  des  elements  de  tableau. 

Si  vous  avez  prgvu  une  liste  de  parametres,  il  faut,  lors  de 
Tappel  de  la  fonction,  utiliser  un  nombre  et  type  de  valeurs, 
chaine  de  caracteres,  autres  variables  ou  expressions,  corres- 
pondant  aux  variables  de  la  liste.  Si  les  types  de  parametres  ne 
correspondent  pas  k  la  liste.  s’il  y  en  a  trop  ou  s'il  n’y  en  a 
pas  assez,  le  programme  affiche  un  message  cPerreur. 

Les  variables  indiquees  ne  doivent  pas  forcement  £tre  utilisees 
dans  la  fonction  (dummies).  II  est  egalement  possible  d’ employer 
des  variables  qui  ne  figurent  pas  sur  la  liste  des  parametres.  Lors 
de  Tappel  de  la  fonction,  le  contenu  actuel  des  variables 
utilisees  est  repris  et  traites. 

La,  longueur  d’une  fonction  est  limitee  par  la  longueur  maximum 
d'une  ligne  (256  caracteres).  S’il  n’y  a  pas  suffisaniment  de  place 
pour  definir  entieremem  une  fonction,  il  est  possible  d'appeler  k 
Timerieur  de  celle-ci  d’auires  fonctions*  c’est-a-dire  d’enchai- 
ner  de  les  enchainer  comme  on  le  souhaite.  Une  fonction  peut  done 
ne  contenir  que  des  appels  de  fonction s  et  leur  enchainement  ! 

Le  contenu  tfune  fonction  peut  £tre  so  it  affiche  grace  a  une 
instruction  de  sortie  (PRINT,  WRITE,  TEXT,  OUT),  soil  affecte  k 
une  variable  correspondent  au  type  de  fonction,  ou  encore  etre 
integre,  par  example,  dans  des  tests  condition  riels.  C*est  sen  lenient 
Tappel  d’une  fonction  sans  une  de  ces  operations  de  traitement  qui 
est  impossible.  Dans  ce  cas  la,  le  BASIC  suppose  qu’il  s’agit 
d’un  appel  d’une  procedure  et  affiche  alors  te  message  d’erreur 
H  Procedure  introuvable". 

L'endroit  du  programme  oil  vous  definissez  une  fonction  ou  bien 
Tappel  d’une  fonction  avant  sa  definition  ne  fait  aucune  diffe¬ 
rence  pour  Pinterpreteur. 
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En  debut  de  programme,  celui-ci  recherche  les  instructions  DEFFN. 
II  connait  done  le  contenu  des  fonctions  avant  !’ execution  de  la 
premiere  ligne.  Ce$t  pourquoi  il  est  possible  d’appeler  une 
fooction  en  debut  de  programme  et  de  la  definir  seulement  a  la 
derniere  ligne. 


FN 

Syntaxe : 

FN  nom  de  fonction(iiste  de  parametres)| 

La  fonction  peut  £tre  appelee  a  Faide  de  FN  ou  par  le  signe  "(S)11 . 
Si  une  liste  de  parametres  est  existante,  il  faut  rajoutcr  a  cet 
appel  les  valeurs/chalnes  de  caracteres  ou  leu  rs  variables  (entre 
parentheses).  Comme  nous  ravens  deja  mentionne  plus  haul,  il  faut 
alors  prendre  soin  que  ces  indications  correspondent  aux  types  de 
variables  contenus  dans  la  liste. 

m 

Exemple : 

11  faut  calculer  le  centre  de  gravite  de  plusieurs  surfaces.  Les 
differentes  surfaces  sont  des  rectangles  de  tail  les  differentes, 
positionnes  sur  Fecran  comme  vous  le  souhaitez.  Tout  d’abord  on 
petit  cercle  est  affichd.  Il  represente  Forigine  des  coordon  tides, 
Placez-le  sur  une  position  quelconque  et  appuyer  brievement  sur  la 
touche  de  la  souris.  L’origine  est  maintenant  determines.  Au  debut 
de  chaque  definition  d'un  rectangle  apparaissent  les  coordonnees 
relative  a  Forigine,  ainsi  que  le  numero  de  la  surface  actuelle. 
Si  vous  appuyez  sur  la  touche  gauche  de  la  souris*  la  position 
actuelle  de  celle-ci  est  prise  comme  point  de  depart  pour 
determiner  le  rectangle.  11  est  possible  de  definir  la  faille  de  la 
surface,  en  continuant  a  appuyer  sur  cette  touche.  Le  programme 
affiche  alors  la  largeur  et  la  hauteur  de  k  surface*  sur  la 
position  de  la  souris.  Au  moment  ou  le  rectangle  correspond  a  vos 
idees,  vous  relachez  la  touche  de  la  souris  et  la  surface  est 
tracee. 
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Bn  appuyant  sur  la  touche  droite  de  la  souris,  vous  terminez  la 
saisie.  Le  centre  de  gravite  des  surfaces  entrees,  ainsi  que  ses 
coordonn£es  X/Y  relatives  a  I’origine,  sont  affiches,  L’emploi 
d’une  touche  de  La  souris,  vous  permet  maintenant  d’entrer  la 
prochaine  serie  de  surfaces  ou  de  terminer  le  programme. 


Exemple  1  : 


»o 

CLS 
CLEAR 
DEFFILL  ,3,3 
1=0 

GRAPHMODE  5 
OFFLINE  l,a 
REPEAT 

MOUSE  Xi^Ys&o.K 
CIRCLE  Xrim,Yafrci(r 
'  CIRCLE  Xwro.Ys**^ 

UNTIL  MOUSBK 

GRAPHMODE  3 

DEFLtNE  1,1 

CIRCLE  X*to,Y»$r«(F 

TEXT  "origin.  (0/D)* 

PAUSE  20 
DO 

GRAPHMODE  3 
INC  I 
REPEAT 

MOUSE  X/YiK 

TEXT  X.Y.STRJtX-X^foKV^+STRJtY^ro-Y)^’*  (i,+STR$(I)+,,)fl 
TEXT  XtY,STR*(X -X*4ro)+ " /"+  STR$(Yriro-Y)+  "  f + STRt(l)+  *)" 
UNTIL  MOUSEK 
REPEAT 

MOUSE  Xx,Yy,K3t 
BOX  X.Y.X^Yy 
BOX  XlYJXx,Yy 

TEXT  Xx  ,  Y y  tSTR$(  AB  S  (Xx  -X)  )«§■"/*  +■ STR j  [ABS  ( Y y  - Y )) 

_ _ _ TEXT  Xx  YvJSTRIf ABS fXx-X)) ± " /"frSTRt  (ABSf Yy-Y)) _ 
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UNTIL  Kkol 
EXIT  I?  Kk=2 
Larg«ur=ABS(Xx-X) 

Hauteur- ABS(Yy  -V} 

X*di£f=MXN(X,Xx)  -X*4ro 
Y,diff=Y^ro  -MAX(  Y ,  Yy} 

CRAJPKM0DE  2 
Xlo^@X.lo 
Ylost^Y.lo 
Xro=@X.ni 
Yrti— @Y.ru 

PBOX  Xlo/YloPXrufYru 
DECLINE  l, l 
LINE  XIctYID,Xru,YTU 
LINE  XlaYru.Xru.Ylo 
S ,  utfaeo^  @#urfw;a 
ADD  ArflBs,S,urf8ic« 

X .  moU  — (Sf>moU  i  6  (lnrgeur) + X  .diff 

Y. moiti&=@iTu?itie  (hauteur  J  +  Y.diff 
ADD 

ADD  Aruyn,f$Mulfcj(Y,moltlli) 

LOOP 

GRAPHMODE  1 

S*= An  .xn/  Areas 
Sy=Ac.yn/ Arena 
DEPL1NB  4,1 

LINE  0JY»4ro-Sy1640JYE4ro'Sy 
LINE  Xt6ro+-  Sx,G  ,Xi.£rQ4-  9x, S&9 
DEFLINE  ,S 

CIRCLE  XaAro+Sx.Ys&ro-SyJ 
PRINT  AT(l.l);nSX  t  ";fix 
PRINT  AT(I,2)f$Y  :  H;Sy 
REPEAT 
IP  MOUSEK 

ALERT  SrProchoine  sable?  V  *Oin|NON|FIN",t«|>anM 
ENDIF 
IP  r4p  onae^S 


EDIT 

ENDIF 

r4pone  =l 
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LOOP 

DEFFN  »ur fft c  e = hauteur' I  urgcur 
DEFFN  TODiti$(c6^)~cW2 

DEFFN  Mu1ti{H.e6t6)~H.c£td*surfac« 
DEFFN  X  lo=X«iro-(-X  d:ff 
DEFFN  Yk>=Y*4ra -hauteur -Y.diff 
DEFFN  X.ru— X*4rt>+  X  diff+ 1 argeur 
DEFFN  Y.ru-YR4ro-Y.<Ji« 


Exemple  2  : 

FOR  1=4  DOWNTO  0 
IF  @A=69 

PRINT  hFinv 
PAUSE  100 
EDIT 
ELSE 

ON  I  GOSUB  1,3(M 
"  PRINT  Bb* 

PRINT  #BI(fib*) 

PRINT  ®A 
ENDIF 
NEXT  r 

PROCEDURE  1 
Bb*=,W 
RETURN 
PROCEDURE  % 

Bb$— "deux" 

RETURN 
PROCEDURE- 3 
Bb$3*fcf£>j3* 

RETURN 
PROCEDURE  4 
Bb$=^quofcre" 

RETURN 

DEFFN  B*(B  b$)=B  bi+£TR$(@A) 
DEFFN  A= S4*I* AS Cf Bbll 
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origine  CO/OJ 


3/-268  C63 


Encore  quclques  examples  pour  les  f ©notions  trigonometriques  : 


DEFFN  sec(X)-l/cos(X) 

DEFFN  csc(X)=  1  /sin(X) 

DEFFN  $inh(X)=(exp(X)-exp(-X))/2 
DEFFN  cosh(X Hexp(X  )+exp(-X )>/2 
DEFFN  arcsinh(X)=Iog(X+sqr<X#X+l )) 
DEFFN  aiccosh(X)-log(X+sqr{X*X-I )) 


secante 
cosecantc 
Sinus  {hyperb,) 
cosinus  (hyperb.) 
sinus  (byp.-inv.) 
cosinus  (hyp -in v.) 


*Lea  deux  prochili  net  procedures  permettent  i’ adaptation  des 
'coordGnn&sfl  d*  POLYLINE  £  Ja  tnille  actuell*  du  Patch  nt  du  Rubb 


PROCEDURE  D.tfpaech 
Plnx(0)=X-moitis^ 
Piny  (0)= Y 
P1nx(l}— X<*- mottle  % 
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Piny  [  l)=Y-moitie% 

Pln»t(2)  =X+ moiti€% 

Piny  { 2)=Y+  moitic% 

PInx{  S)=X  rmoiti*  % 

Piny  { 3)  -  Y  +  moitieSt 
Plnx(4)=X-moitie56 
Piny  (4  }=Y-moitlc% 

Plnx  (  5  } =X  4- moi  ti  e% 

Plny(  5)= Y -moitie% 

RETURN 

PROCEDURE  D.efpotch.2 
Pl.nxxCCj^Xg^ 

Pl.nyy(0)=Yg% 

Pl4ixx(l)-Xx9$ 

PUyy[l)=Yg$6 

PLnxx(S)-Xx^ 

Pl-nyy(2)=Yy% 

Pl.nxx(3)=Xg% 

Fl.nyy(9)-Yy% 

Pi .  nxx  (4 )  =Xg9fi 
Pl.nyy(4)-Y*K 
Pl.nxx(G)=Xx% 

Pl-nyy(6)=YgK 

RETURN 

PROCEDURE  brancb^meriC 

r 

’ll  8'n.glt  d«  la  boude  brancfciement  principal. 

fElle  permet  de  contrGler  toil!  as  lea  operations  graph iq  ncs  et 

’toua  las  tea  la. 

» 

DO 

#Getfkeye 

'Tout  d'abord,  i)  esfc  demands  en  "Getfkeys",  si  une  touche  a 
'414  enfonc6e. 

'“Getfkeys"  rcpc6e*n te  la  procedure  de  tests  i  partir  de 
’laquelle  son!  branches  lee  appels  de  menu,  lea  modifications 
Jdes  choix  effect  ues  el  leg  foncltorm  sp4c tales. 

I 

Moitie?S— Patcheise5i/2 
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'"Patehale*i%"  eflfc  eoupdo  en  deux  pour  quo  1©  curscur  de  la 

'aourls  opparaisee  au  milieu  d«  la  figure. 

f 

Spr.x-BANDOM(2*moitie%) 

S  pr  .y=  RAND  OM  ( 2  *moit  ie% } 

'Lbs  ccordonn^ee  das  points  officii  6s  sont  choieie  au  hasard  ct 
'adapts  &  la  t&Ule  act ue tie  du  patch. 

Mirflag!S&=l 

MOUSE  XjY.K 

f 

'll  s’agit  des  coordonn^BS  de  la  souris  servant  commc  point 

'de  ddpnrt  pour  3ft  pJup&rt  doe  operations  gruphiquc*. 

» 

IF  Border9£=l 

t 

'Si  le  programme  ae  IroUye  en  mode  Border  ... 

f 

IF  X<1  AND  Y<3D0  AND  Y>100 

I 

"...  et  ei  le  curaeur  de  la  souris  touche  Le  bord  gauche  de 

Ticran  ... 

1 

Click%=G 

^Clicks 

c 

'attends  Pemploi  das  touches  de  la  so  uric  ... 

9 

’Due  fo  net  ion  sous  GEM  cat  utilises  dans  la  procedure 

’Clicks.  Cette  function  permet  dt  contr^ler  le  programme  en 

’function  du  nombre  de  clicks  effectues  i  L'aide  de  La 
’souris.  Voub  ccnnaieacs:  cette  fo  net  ion  par  lc  desktop 
’lorsqiie  voub  comp  tec  lancer  un  programme  du  ouvrir  un 
Tichier  pour  le  lire. 

’Pour  cel  a,  it  faut  cliqurr  deux  foie  de  suite.  Cest 
’exaetement  c©  double  cliquage  qui  peut  it  re  tests  gr&ce  & 
’Cette  function  sous  GEM. 
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'Si  you  a  determines  que  queique  chose  ae  passe  seulement 
'lors  d'un  double  cliquage,  ('execution  du  programme  n'est 
'pas  interrompue  dam  U  cn#  d'un  simple  cliquage. 

t 

I 

IF  Clicks =2 

@  Alter  screen 

I 

et  brsuiehe,  Le  cas  6cheanc,  Dur  I'affichage  de  La 
1  p  age-6 c  ran  a]  ternst  ive . 

ENDIF 

ENDIF 

IF  X<1  AND  Y>598 

I 

'Si  1c  coin  tnferieur  gauche  de  l'£cr&n  eat  lOUch4  ... 

I 

Click  K=0 
^Glcki 
IF  CHck%=2 
INC  Clou 
IF  Clou=l 

E  ,emem=D  .raw  mode  % 

D-rawraode%=IO 

» 

pouviona-toi  du  mode  d 'operations  grapbiquea 
’actuel  dans  le  cas  d'un  double  cliquage,  lore  du 
'premier  appe],  et  passe  en  mode  SELF. 

3 

ENDIF 
IF  Clou— 2 
Clou=0 

D,raw  mode  % =R  e mem 

I 

’Si  le  coin  est  touche  une  nouvelle  fois  et  si  un 
'double  cliquage  a  lieu,  rev  Sens  en  mode  prdcidenfc  (le 
’mode  retenu). 

’La  procbalne  foie,  SELF  est  4  nouveau  appeUe 
’etc-.* 
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ENDIF 
END  IF 
ENDIF 

IF  X>638  AND  ¥<300  AND  Y>100 

i 

'Si  le  bard  droit  de  I  derail  fiat  louche  au  milieu... 

i 

Cljck%=0 

^Clicks 

IF  Cllck%=2 
1 

at  si  un  double  cLiquage  a  lieu.., 

IF  Flipp.flag%— C 

GET  0f0,630,3&9  .Hcrecn .  1 3 
(©Starter 

PUT  0,0,  screen.  13,3 
ENDIF 

IF  FIlpp.flag9S=I 
*  GET  0,0, 039, 399, screen.  2  3 
@S  tarter 

PUT  G,Dp&creen.23,3 

ENDIF 

1 

\«  mets  1'^cran  actuel  en  memoirs  d*  quad  rill agfi 
'correspond ante  et  appelle  I'iditeur  ((SStarter).  Quand 
TiSditeur  aura  termini,  reaffiche  la  demiere  page- 
'<Jcrtuj- 

i 

ENDIF 

ENDIF 

IF  X>6SS  AND  Y>$98 

» 

*Si  le  coin  iofirieur  droit  eat  touche  ... 

* 

Click%=0 

@C  licks 

IF  Cilck%=2 

I 

et  si  un  double  dtquage  a  eu  lieu  ... 
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I 

INC  coordo 
IF  coordo— 1 

Showcoordo=l 

1 

metfi  le  flag  d’afflchaga  dee  Coordonflieo  pour  la 
'premiere  foie 
'a ur  "On".,. 


ENDIF 
IF  coordo=2 
Coordo=0 
Showcoordo=0 

I 

el  pour  In  Ibis  aulv&nte  aur  "Off'  etc.,* 

t 

ENDIF 

ENDIF 

ENDIF 

IF  X>27C  AND  X<S70  AND  Y>S9& 

T 

JSi  1h  bord  intSrieur  eat  tcuchi  au  milieu  ... 

1 

Clfck%=D 

@Clicke 
IF  Clicks* 

@Showhelp 

I 

’.*.  et  si  un  double  cllquoge  &  lieu,  nppellc  le  menu 
'd 'options  graph  iq  us  a 


ENDIF 

ENDIF 

ENDIF 

IF  Showcoordo=l 


'Si  t«  flag  d'afffchage  de&  coordo nnees  est  rate,  nfTichc  lea 

1  coord  onn^en. 


DBFTBXT  1,1,0,1s 
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GRAPHMODE  3 

TEXT  3I15,STR$(X]+"  /  n+STR$(Y) 

TEXT  StlS,STR|(X)4  "  /  "+STR*(Y) 

^Set. paras 

EM  DIF 

IF  grl)lcmod%=I 
* 

JSi  voua  fetes  en  'mode  grille*,  eonvertis  lee  coordcnn^ee  de 
'la  b-o li ri a  dans  Le  quadrillage  correspondent- 

il 

X=INT(X  /  irons]  arge% )  *  trousl  arge  % 

Y=|NT(  Y  /  tr  o  ue  1  arge?S  )  *  trou  s  larged 

ENDIF 

IF  Showlin<iB%=l 

'Si  le  "rilicule  mobile*  eel  allumfe,  tnontre  !e  conatamment  a 

’la  position  act  utile  de  la  souria. 

■ 

@tClippr«rc(2) 

<£fS -hotlines 
^Set. paras 
ENDIF 

IF  Const.lineH%=l 

i 

'Si  J«  "rfeticu  Ifc  fixe*  est  ftllume,  monfcre  le  conetammcnt  &  la 
’peel  Lion  dfefmie. 

(SClipprecfaj 
@C.onst.  lines 
(S*Set.paro8 
ENDIF 

IF  (Are*s%=l  AND  K=l)  OR  Bl  load95-I 

1 

'Si  une  dee  deux  fonctiom  de  quad  rill  age  (MOVE/COPYJ  cat 
*  mlw  en  place  ou  si  un  bloc  a  fetfe  charge  &  partir  de  la 
’disquette,  v a  a  la  procedure  de  chargerncnt  de  bloc. 

I 

BUoad95=0 

(2'AreaprocB 

ENDIF 
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IP  Ar*ftB%=0 

i 

'Si,  ni  MOVE,  ni  COPY  n’eal;  mi»e  «n  place,  v»  h  l’opfiration 
’gcaphlque  dictate - 

i 

ON  D.rftwmodeK  GOSUB  F,flrecp,L.Brccp,A-BrecpJP.rrecplL-rrecplA 
,  rreep ,  F  .c  p ,  L  .c  p ,  A.  cp.Iconp  ,P  srec  r,  L  arecr,  A .  b  r  ecr,F  .Freer  tL .  rrec  r 
,A.rrccrJF.crrL.cr,A.crlS,l»n1P.iI]proiPl.HprlPl.Bpr1MRrker1T.eixt 
END  IF 


ON  COSVB 
Syntaxe  : 

ON  INDEX  GOSUB  procl[,proc2,proc3,...] 

Cette  instruction  permet  de  regrouper  plusicurs  procedures  dans 
une  liste.  Cette  Lisle  est  alors  appelee  en  fonction  du  contenu  de 
1' Expression  on  de  la  variable  qui  doit  €tre  affeciee  k  GOSUB. 

L’ instruction  ON  A  GOSUB  1 ,2,3  remplace  done  simultan&nent 
trois  tests  IF  different.  Dans  ce  eas*  il  faudrait  alors  demander 
le  contenu  de  11  A"  pour  branehcr  le  programme  sur  la  procedure 
souhaitee,  en  fonction  de  ce  contenu.  Les  tests  IF  seraient  les 
suivants : 


if  A  ■  l 

GOSUB  1 
END  IF 
IF  A  =  2 
GOSUB  2 
ENDIF 
IF  A  ss  S 
GOSUB  3 

_  bndif 
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^instruction  ON  GOSUB  pent  decider  sur  quelle  procedure  le 
programme  doit  se  brancher  seulement  au  pas  de  I,  en  augment  ant. 
II  n’est  done  pas  possible  de  faire  un  branch ement  ou  ume 

augmentation  de  valeur  conrmnen^ant  apr£s  I .  En  principe,  cette 
instruction  branch©  le  programme  dans  fordre  de  la  liste  des 
procedures*  h  partir  de  1,  en  augmentant.  Le  branchement  est  done 
effectue  comme  suit  : 

valeur  >=  l  <  2  ==>  premiere  procedure  sur  la  liste 
valeur  >=  2  <3  ~=>  deuxieme  procedure  sur  la  liste 
etc. 

S’il  s’agit  d’une  valeur  plus  grande  que  le  nombre  de  procedures 
indiquees  sur  la  liste  ou,  si  la  valeur  est  egale  &  zero,  le  pro¬ 
gramme  poursuit  sur  la  ligne  situee  apreS  GOSUB. 

Exemple ; 


DO 

A'- RANDOM  (4) 

ON  A  GOSUB  1,2,3 
LOOP 

PROCEDURE  I 
PRINT  -proc  1- 
RETURN 
PROCEDURE  2 
PRIMS'  ”proc  r 
RETURN 
PROCEDURE  3 
PRINT  -proc  T 
RETURN 


IF  MirrotS^>D  AND  Aieae?i=0 
1 

*Si  ume  dea  fond  Ion  -miroir  eat  rntae  en  place  at  non  MOVE  ou 
'COPY,  va  %  la  proc*durc-miroir  correa  pond&n  I*. 

i 

Mirflag%=€ 

ON  MiirorK  GOSUB  mir.l ,im , Z.mir-S.mjr.* 
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END  IF 
NorubbS^O 
LOOP 
RETURN 

’L«&  quatre  procedures  sihy  antes  permettent  d'obtenir  lee 
Vrardonn^es-miroirB  correspo n  dan t ea .  Apre#  Lea  avoir  obtenuen, 

■Jcb.  operations  graphiqueo  correspond  antes  boh!  4  nouveau 
'appel^ea  pour  deeeiner  lee  itguree-nuroirB. 

PROCEDURE  mir.l 
X=«39-X 
Xg5*=639-Xg% 

Xx%=6S9-Xk% 

(SiD  .cfpatch 

RubbflagSS— 1 

ON  D.rawTnode%  GOSUB  F.Brecp1L.BrecplA.HrecpIF,rrecp1L.rrecpJA  r 
rscp.F.cp.L.cp.A  cpJIconp.F.*rei:rIL.Brecr,A-iitec:r,F.rrecr!L.rrecr 
, A  rite rlF.crJL.cr,A.cr,S.linlF.ULprolFl ,  sp  r(  P  t ,sp r,M  arke rtT , ex t 
RETURN 

PROCEDURE  rair.2 
Y-S99-Y 
Yg9S=399-Yg% 

Yy%=S09-Yy% 
gD.ef patch 
Rubbf]ag%=l 

ON  D.rawuwMle%  GOSUB  F-BrecpjL.Breep^.BrecpjF.rrecp.L.rrecpA.r 
re  cp,  F  .cp ,  L  .cp  t  A  t  p(  I  conp  ,F  .a  r  ecr,  L ,  ei  qc  r  r  A ,  ar  cc  r  ,F .  freer,  L .  rrect 
,  A .  rrecr ,  F  .cr ,  L .  er,  A  ,c  r,  S ,  lin  ,F  .i  llpro  ,PJ  .sp  r  ,P  t .  s  pr  .Marker  ,T.  ex  fc 
RETURN 

PROCEDURE  mir,S 
X-6SB-X 
Y=399-Y 
Xg%=6SB-Xg% 

Xx96=6S9-Xx% 

Yg9$=399-Y*% 

Yy%=39D-Yy% 

@E.ef  patch 
Rubbf)Qg%-l 
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ON  D.r&wmode%  GOSUD  P.arecp,L.sr6cp,A.sr«cpfF.rrecp,L,rrecptA,r 
recp ,  F .  cp  ,L.  c  p ,  A  .cp ,  Iconp  ,F  .erecr  ,1*  urccr.A  .erccr  ,F .  rrccr  tL.  rr  ccr 
,A. rr6crfFcriU.Gr,A.cr,S .)in,F  .illpro  ^i.aprjPt-epr ,MurkeraT.ext 
RETURN 

PROCEDURE  mir.4 

(Scn.ir.2 

©rnlr.l 

RETURN 

PROCEDURE  Getfkeye 

’Procedure  de  test  principal 

t 

^GHpprec{2) 

GRAPHMODE  1 
MOUSE  X,Y,K 
Hdpm%=0 

i 

'remetlrc  find  ice  du  menu  &  t4ro 
* 

tF  Y<SO  AND  IMp.on%=l  AND  K>G 

’Si  !e  menu  graph  L<*ue  cut  divert,  si  le  curecur  d*  la  sourie 
'est  place  deasiiR  et,  si  en  merat  fceinpe ,  |&  touche  de  la 
’ecuris  cat  enfontte  ... 

H 

Hclpm%-JNT(X/G4)T  1 

* 

calcule  de  la  fa^on  babituelle  l1  indice  du  tableau  de 

'menu  Sur  Sequel  ue  trouve  So  cu  recur  do  la  anuria. 

» 

END  IF 

Keygel$-INKEY$ 

I 

'Test  du  clavier 

w 

Fkey .  1^=ASC[RIG  HT$(KeySett)) 

Fkcy.2$H-ASC(LEFTi(KeygG68)} 

1 

'Diviaer  en  deux  les  deux  SigneB  possibles  avec  INKERS. 
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Fkeys% =Fkey .  1  %+■  Fkey  .1% 

IF  Fkcye?£>0  OR  Hclp.on%>0 

i 

’Si  une  touche  a  6t6  enfoneSc  ou  si  («  menu  graphique  e*t 
’oiivert  „„ 

REPEAT 

UNTIL  INKEY$="'f 

i 

vide  d’ftbord  la  m^moire  du  clavier. 

k 

IF  Fkeya5S=64  AND  Hclp.on%=0 

'Si  le  menu  graphique  est  ferm6  et  si  la  tOUChe  <ESO>  «t 
'enfcncle,  appelte  le  menu  principal, 

I 

@Mainmenuc 

ENDIF 

IF  (Fkeys%=E©  AND  Fkey.1%-59)  OR  Helping  1 

I 

'Si  la  touche  <F1>  a  4t4  enfooc#®  ou  m  le  premier  tableau 
'du  menu  a  4t4  clique,  va  4  I 'augmentation  de  I' indite  du 
’motif  de  remplistagc 

l 

(Sbppattern 

ENDIF 

IF  (Fk*ys%=<5©  AND  Fkey.1%^60)  OR  Helping 

1 

'<F2>  enfoncee  ou  deuxilmc  tableau  cliqui  — => 

'diminution  du  motif  de  remplissage 

* 

l®D  o  wn  pat  tern 
ENDIF 

IF  (Fkcye96=61  AND  Fk@y.i%=6l)  OR  Helping —3 

i 

*<F3>  enfoncee  ou  troieiime  tableau  cl»qu4  «=> 
'augmentation  de  la  large ur  de  trait 

I 

{rtiUp!&r||£ 
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ENDIF 

IP  (FkcyB%-62  AND  Fk*y.l%=«2)  OH  Helping =4 

j 

,<F4>  cnfoncce  ou  quatrieme  tableau  clique  =— > 

’diminution  de  la  largeur  de  trail 

1 

(S)D  own  large 
ENDIF 

IF  <Fkcys%=€3  AND  Fkcy.I%=63)  OR  He»pinft=6 

'<F5>  cnfoncec  on  cimqifeme  tableau  clique  s==>  choix  du  type 
'de  trail 

P 

(pTrtype 

ENDIF 

IF  (Fkeye$£=64  AND  Fkcy.l%=64)  OR  Helpin%-0 

I 

*<FC>  enfonc£e  on  sixiema  tableau  clique  — — >  cboix  du  type 
'(Textr^mite  &  la  fin  de  la  lignc 

r 

I 

^Trforme 

ENDIF 

IF  (FkeyaSt-CG  AND  Fkdy.LS$-G5)  OH  Helping =7 
# 

*<F7>  enfoncae  ou  septiime  tableau  clique  ==>  augmentation 
'de  la  bailie  du  patch 

(StJppateh 

ENDIF 

IF  (Fkeys%=G6  AND  Fkey.l%=<H5)  OR  Helping =8 
1 

■<F8>  enfonc^e  ou  huitiime  tableau  clique  ==>  diminution  de 
'la  taille  du  patch 

(SDownpatch 

ENDIF 

IF  (FkcyB%=67  AND  Fkey.l%=eT)  OH  Helpin%=9  OR  (FkcysS£=:l8  AND 

Helpon%=l) 

1 
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’<F0>  enfbncie  ou  ncuvierrte  tableau  clique  =— >  choix  d*3 
'operations  grsphiques 

I 

@Sctdrttwmode 

ENDIF 

IF  |Pkeyg%=:68  AND  Fkey.1%— G8)  OR  Helping— 10 

i 

'<F10>  enfonc4e  ou  dixiimc  tableau  clique  =■—>  choix  du  mode 

’graphique 

• 

(SSe  tgTafmode 

@Chang«ntiKl 
END  IF 

IF  H«lp.on?£=l  AND  K=1 

3 

’Determine  Is  largeur  du  pn*  pour  le  choix  de  In  tailie  du 

’Fateh. 

j 

#Set#fcepe 

ENDIF 

IF  Fkey«%— 18  AND  Kelp.on^=;0 

l 

’SL  le  menu  graph  tque  esl  term*  el  at  la  touche  <TAD>  cst 
'cnfonc^e,  ouvre  1*  menu  graphique. 

I 

<gfShowhe]p 

ENDIF 

IF  D .  raw  mode  %=2S  AND  Areas^fi— 0 

B 

’Si  TEXT  eat  mia  en  place,  demands  aux  quatre  touches 
‘do  fleche,  at  eiled  ont  effect  iin  dee  modifientiom  de 
’lonfusuT  de  texte 

I 

(®T_oxtkn 

ENDIF 

IF  Fkeys%=98  AND  Fk*y.l%«98 

i 

‘Si  la  touche  <HELP>  est  enforteta,  affiche  le  texte 
’d’ information  aetuel. 

I 
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(3 lH.dpteXt 

ENDIF 

IF  Fkeya%=71  AND  Help.on%=0 

I 

'Si  la  menu  graph  ique  eat  ^ taint  el  »i  la  touche  <CLR-HOME> 
Jeat  enfoncie,  demand*  ei  la  pag*-6cran  act  uclle  doit  4tr« 
'cffac6e  ct,  1c  caa  dchennt,  efface-ta. 

i 

ALERT  J.’Tffacor  page-fomn  ??",V  OKAY  |  NOW 
•^BaekalertUS 

IF  B  ackalert  %=l 

HasMd%=RAND0M(2) 

FOR  1=1  TO  26 
IF  hatard%— 0 

PRINT  AT{1(26};CHRS(13) 

ELSE 

PRINT;  AT(l,l)iCHR$(ST)rr 
ENDIF 
NEXT  I 

'  IF  F)ipp.flag%=Q 

GET  C,0,6SDrSft9,Scr«nfix.un3 
GET  0 p0 ,639,399 ,s  c r  eon .  1  $ 

ELSE 

GET  9 ,0, 639,399, Sareenfbc.deux^ 

GET  0ie,6S9,3&9,9crcen.2i 
ENDIF 
ENDIF 
ENDIF 

IF  FJceye&-&7  AND  HeEp.cn%-0 

I 

“SI  le  menu  gr&phique  eet  fetelnt  ct  ei  let  touche  <UNDO>  eet 
'enfoncCc,  dernnnde  at  La  aerie  dee &i  nee  lora  de  la  derni^re 
'utilisation  d*  <INSERT>  dolt  otre  efface  «tp  le  cn# 

'ech^ant,  efface -la. 

9 

ALERT  2rEff*cer  dernl*re|  aerie  ?7",2,“  OKAY  |  NON 
".Backitert'SG 

IF  Bflckalei:t%~i 
IF  F1ipp,0ag56=fl 

PUT  0,0,Sereenfix  .un$,3 
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GET  6,0,6S9,Si9,serc<!ii.l$ 

ELSE 

PUT  0,0,  Scree nrix.deux$j3 
GET  0 ,0  ,€  39 ,39  9  ,ae  reen .  2$ 

END  IF 
END  IF 
ENDIF 

IF  Fkeye9£=B2  AND  Help.on%=0 

I 

'Si  le  menu  gr&phique  est  it  tint  et  fit  la  touche  <1NSERT>  a 
‘4t4  enfoncie,  deman  etc  si  la  page -4c  ran  act  nolle  doit  etre 
■flnuvegard^p  et,  le  cm  4ch4anG,  sauvogardc-la. 

‘Ce  programme  graphique  dispose  de  deux  mimoires  pour  une 
■page-4cran. 

'Dans  I'une  de*  deux,  lea  pages -tier  ana  ne  sont  s&uvegnrdees 
'qui  si  vous  lee  aver,  jugies  bonnes  &  comterver.  Si  cel  a 
l«st  le  cas,  vous  p&uvess  "bouBiller"  Hmage  comma  vous  le 
’fiouhaitez, 

'St,  fin  at  erne  nt,  voua  n'aimet  pas  voire  image  ftx4e,  il 
'fau(  Bimplement  nppuyer  buf  <UNDO>  et  la  demiltre  image 
'bou&tllie  eet  remise  cn  4tat.  Gr&ce  &  cet  “eff&eement  de 
’tableau'1,  voub  nvee  nssce  de  jeu  pour  deaainer  votre  image 
'graphique.  Cel  a  youb  per  met  d'easayer  lee  diffe  rente 
’motifs  de  rempliseage,  lee  formes  et  lee  effeta 

'grapliiquee  sane  detruire  1 'image  deja  fixes  au-dcsBouB. 

i 

ALERT  2, "Fixer  l' image  |  actuelle  7" ,2.*  OKAY  |  NON 
"  ,B  nek  alert 

IF  Backalert%— 1 

IF  Flipp-f!ag%=0 

GET  0,0,639, 399, Scrccnfix.unt 
GET  0,0.639,399 screen.  1$ 

ELSE 

GET  0,0, 639 ,399,  Screenfix.  deux  $ 

GET  0,0,639, 399 .screen. 2$ 

ENDIF 

ENDIF 

ENDIF 

ENDIF 
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{SSet-pnraa 

I 

'Apr£«  ton*  los  efforts  neceasakea  pour  appclcr  Is  menu,  lei 
'model  d 'operation*  *t  ]ei  cholx  dtiffcvis  par  I'utiliiateur  Bofjt 
'fin  element  refit  aur4a. 

t 

RETURN 

PROCEDURE  Textlen 

I 

'Proridw  permettoot  de  determiner  la  longueur  du  text# 

t 

IF  Fkeys%=72 
T_gro  W  %  (0) —0 

ENDIF 

IF  Fkeyi%=7E  OR  Fkeya%=77  OR  Fkey»%=80 
T_fToW%(0)=T_grDW%(  1) 

IF  Fkeys%=7& 

SUB  T_grow%{o)t4 
^  IF  T_gTOW%[0)<0 
ADD  T^grow^O^fi 
END  IF 
ENDIF 

IF  FkeyB%=77 

ADD  T_growK(0),4 
IF  T_grow%  (0)  <0 
SUB  T_grow95(0),8 
ENDIF 
END  IF 

IF  Fkeya%=8Q 
INC  T_Bign^(0) 

IF  T_sign%(0)-2 
Tjrign%(0)=0 

T_gxow%(0)=ABS(T_gi'ow%(0)) 

ENDIF 

IF  T_aign9S{0)  — 1 

T_grDW%(0)=T_grow%(0}*(-l) 

ENDIF 

ENDIF 

T_grow%(  l)=T_gWw9fi(0) 

ENDIF 
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RETURN 

PROCEDURE  C.onst, lines 

I 

'Procedure  permettnnt  dc  reprisenter  la  "rftkuk  fixe" 

i 

DEFLINE  0,1,0,11 
COLOR  Trcoul% 

DEPTEXT  1 ,1.0,6 
GRAPHMODE  3 

TEXT  Har.co55,Ver.co%+ 6rCo.txt$ 

TEXT  Kor.Co%yer.cv%+  6,Co.txt$ 

LINE  0IV.ilne^1639,V,Hfxe% 

LINE  H.lme%,01H.line%,39S 
LINE  0,V.lin«St,6a0,V.litrt96 
LINE  H.Un{j%,(i,H.1ine%,339 
RETURN 

PROCEDURE  S.howlincs 

ft 

’Procedure  pcrmettant  do  reprtsenter  le  ’rdtlcule  mobile" 

DEFLINE  0,1, 0,0 
COLOR.  Trcoul% 

GRAPHMODE  S 
LINE  Q.Y.C^Y 
LINE  X,0,X,399 
LINE  OjYjGSOjY 
LINE  XJ0,Xi39& 

RETURN 

PROCEDURE  Set. paras 


'Procedure  permetfcatii  de  rcstaurer  des  choix  effective 

I 

GRAPHMODE  Grafmod^ 

DEFLINE  Trty  pe%  ,Trl  arge%  ,Ted4bu  t  %  ,Trf  in  % 

DEFFILL  ,Rtype%,Rjnotif% 

COLOR  Trcoul^ 

DEFTEXT  T.«xlv»r(l),T.ej{tv&?(2)  ,T.ex.lvar(S)  ,T-cxtvor(4) 
@C1  ipprec(C  .lipp% } 

RETURN 

PROCEDURE  Mauimenue 
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i 

'Preparation  de  I'appel  du  menu  principal 

f 

G  arbage%— Fre(9) 

^G.  fit  flip 

GET  0 ,0.319, 199  ,F  .screen  9(0) 

GET  320, 0,639,1 99 ,F.icr««n  9 ( 1 J 
GET  0, 200, 319.399.F. screen!  (2) 

GET  320,200,639,399, F-tcreen! (3 ) 

$Orefmtnue 

RETURN 

# 

Lea  once  procedure*  qui  auivent  permettent  de  met  I  re  en  piece 
'let  fonctlons  da  menu  graphique  touheiU«t 
'CelLes-ci  aont  appeLAes,  soil  en  appuyant  tur  la  touche  tie 
’fonctlon  correspond  ante  (Fi  *  FlO),  toil  en  diquant  le  tableau 

’du  menu  gT&phique  ouvert. 

« 

PROCEDURE  Uppattem 
lNC*RmbtLf% 

IF  (Rmotif^aZf  AND  Rtyp«%=2)  OR  (Rm°tif%=12  AND  Rtype%=3)  OR 
(Rmotif%=l  AND  Rtyp«%=0) 

ADD  Rtype%,l 
IF  Rtype96=i 
Rtype%=2 
ENDIF 
Rfnotif%=I 
ENDIF 

IF  Rtype%e4  AND  Rmotif^>  1 
Rtype%-0 
Rmoiif%=0 
ENDIF 

IF  H«lp*on%=l 

DEFFILL  ,Rtype96.Rmotif56 
PBOX  14,62,123,107 
PAUSE  6 
ENDIF 
RETURN 

PROCEDURE  Down  pattern 
DEC  Rmotif% 
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IF  Rmctif%<=0 
DEC  Rlype% 

IF  Rtype96<0 
Rfcype%=4 
Rmotir%2 
END  IF 
IF  Rtype%~l 
Rtype%=0 
ENDIF 
IF  Rtype9$=3 
RmotLf%-II 
ENDIF 
IF  Rtyp«5C-2 
Rmotif^~24 
ENDIF 
ENDIF 

IF  HeLp.on%~l 

DEFFILL  ,Rtyp«%IRniotJLf% 
PBOX  14,62,123,107 
PAUSE  6 
ENDIF 
RETURN 

PROCEDURE  Uplarge 
ADD  Trl»rg«%,2 
IF  Trtarge?6>40 
Trlarg«%=40 
ENDIF 

IF  H*)p.on%=l 

DEFLINE  O/Trlnrgcft.O.O 
PAUSE  2 
COLOR  1 
LINE  1 45,64, 244 ,64 
ENDIF 
RETURN 

PROCEDURE  Downlarge 
SUB  Triargeft,* 

IF  TrlargeSScO 

Triarge%~0 

ENDIF 

IF  Help  cn$6=1 
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PAUSE  2 
DEFFILL  ,0,0 
PBOX  140,02,240,107 
DEFLINE  O.TrlargeSt.O.O 
COLOR  1 
LINE  145,84,244,64 
ENDIF 
RETURN 

PROCEDURE  Tflyp* 
TrcoulSS— 1 
COLOR  Treoul% 

INC  TftypeSt 
IF  Trtyp«&— 7 
Trtypc%~  O 
ENDIF 

IF  Tnyp«%=© 

Trcoul%sO 
COLOR  Ttcou!% 

ENDIF 

IF  ffeTp-on%=l 
DEFFILL  .0,0 
PBOX  268,62.812,107 
DEFLINE  TrtypeK,  1,0,0 
LINE  269,84,809,84 
P  AUSE  C 
ENDIF 
RETURN 

PROCEDURE  Trforme 
INC  Trd4but% 

IF  Trdlbut96=S 
INC  Trf.nft 
Trd4but%=0 
IF  Trfm%=3 
TrfirS$=0 
ENDIF 
ENDIF 

IF  itclp.o»%t=l 
DEFFILL  ,0.0 
PBOX  329,62,875,107 
COLOR  1 
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IDBFLINE  1 ,6,T  rd£but%  ,Trfm% 

LINE  334,34,370,81 
END  IF 
PAUSE  6 

RETURN 

PROCEDURE  ScUtcpi 
GRAPHMODE  2 
DEFTEXT  1,1,0,© 

TEXT  308,73,00*1  6  1©  2©  50* 

IF  X>S8S  AND  X<500  AND  Y>©0  AND  ¥<77 
GRAPHMODE  3 
Lrttep96=0 

In*Up%=INT{X/33)-16 
IF  In»t*p%-1 

Pulsrgc^  =  Init  cp9£ 

TEXT  308.73,99,"  5  10  20  SO" 

ENDEF 
IF  loitep^^l 
Pxlttgt%=f 

'  TEXT  398,73,99*1  10  20  5tf 

END  IF 
IF  Imtcp%— 3 
Paal&rg«%=10 

TEXT  308,73.99"!  5  20  50" 

END  IF 
IF  In<tep%=4 
pMlamc%=20 

TEXT  398,73,90*1  S  10  60* 

END  IF 
IF  liutip%=G 
PailurseSt— 50 

TEXT  39® , 73,99  "1  S  I©  20  * 

END  IF 
END  IF 

RETURN 

PROCEDURE  Up  patch 

ADD  PatchM»%lPMt&rgc% 

IF  Pntctuis«%>6$0 
Patch«i)i«%=6S0 
END1F 
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IF  Help.onSt^I 
GRAPHMODE  1 
DEFTEXT  1,16,0.20 
TEXT  4I6,IOO,0,STRi(Palehsise9t)-*-"  * 

PAUSE  4 
ENDtF 
RETURN 

PROCEDURE  Downpatch 
SUB  Palchtite^  .P  aal  nrgc% 

IF  Pntcb«i«%<0 
Paict)iiie%-0 

ENDIF 

IF  Help.on%=l 
GRAPHMODE  1 
DEFTEXT  1,16,0,20 
TEXT  426p10O.O1STRHPatch9iM95)**'  " 

PAUSE  4 
ENDIF 
RETURN 

PROCEDURE  Seldrawmode 
Icnx%=10 
Icny96=10 

i 

'Ce*  deux  variables  conlicnnent  la  position  X/Y  dc  I’icfinc 
'SELF 

’Si  cctte  icdnc  a  4U  “perdue"  lora  du  trailement  (ditparoe 
Vera  un  cfiR  de  I’icrait  el  plus  retrouvic),  rile  pcut  itrt 
‘relrouvie  dans  un  "bureau  d’objct*  Iron  via"  [knx5fit=10,Icny%=I© 
'=>Coin  supirieur  gauche  de  I’ecran)  aprb  ur»  autre  appel  de 
'SELF 


Clou-0 

IF  Heip.tm%=l  AND  knfl»g%=l 


Co  programme  permei  d'effectuer  des  "chargements  rapides"  sans 
menu  d’operalions  graphiques  (menu  comenani  les  petites  images). 
Tout  au  debut,  il  demande,  si  les  icdnes  du  menu  graphique 
("Micons")  se  trouvent  sur  disquette. 
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Mftme  si  cela  n’est  pas  le  cas,  it  esl  quand  memo  possible 
d'utiliser  le  menu  graphique.  II  faut  alors  choisir  ('option  MODE 
DRAW  du  tableau  du  menu.  Si  vous  faites  votre  choix  &  1'aide  de 
la  touche  gauche,  le  programme  vous  met  sur  P operation  suivante. 
En  appuyant  sur  la  touche  droite,  vous  etes  mis  sur  Poperation 
precedente.  Vous  aller  ra pi  dement  apprendre  cet  ordre  par  coeur. 
D’ailleurs,  il  s’agit  du  m£me  ordre  que  celui  utilise  pour  les 
petites  images  du  menu  MODE  DRAW  (s’il  existe). 

Si  vous  ne  disposes  pas  d’une  serie  d'i cOnes  de  menu,  il  est 
possible  de  dessiner  ces  petites  images  facilement  soi-meme.  Pour 
cela,  il  vous  faut  d'abord  un  repertoire  sur  votre  disquette  de 
programme  que  vous  allez  appeler  "M_ieons\  Ensuite,  lancez  le 
programme,  allez  a  Pediteur  d'i cones  et  mettez  en  place  un  bloc 
contenant  46  lignes  et  44  colonnes.  Maintenant  vous  pouvez  creer 
vos  icOnes  de  menu.  Il  faut  noter  que  la  premiere  icdne  de  menu 
(MlCON_l)  doit  etre  creee  4  nouveau  lors  de  la  premiere  edition, 
la  mise  en  place  du  nouveau  bloc  ayant  modifier  la  longueur  de  la 
chaine  de  caracteres.  Si  vous  ne  le  faites  pas,  vous  risquez  un 
plantage  du  programme  lors  du  prochain  lancement  car  la  longueur 
de  chaine  prepares  est  depassee. 

Apres  avoir  creer  une  icdne,  cliques  la  bone  SA  de  Pediteur  et 
sauvegardez  1* image  sous  le  nom  "M1CON  "  +  P indice  du  tableau  de 
menu  que  vous  venez  de  creer  (par  exemple  pour  le  premier  tableau 
de  menu  "carre  rempli  avec  contour"  le  nom  i,MICON_r  etc.). 
Maintenanf  vous  pouvez  creer  la  prochaine  icdne  et  la  sauvegarder, 
etc...  Vous  trouverez  les  noms  egalement  a  la  fin  du  programme  sur 
la  ligne  DATA  correspondante. 

Afin  de  rester  dans  le  bon  ordre,  voici  les  tableaux  de  menu  et 
leurs  indices  (nom€ro$)  : 


carrt  , rempli 

.a.  contour 

=  i 

carrA  (vtde 

-  2 

c&rrA  .rempli 

jt,  contour 

=  S 

enrri  .arrondi, rempli 

,a.  contour 

=  4 

carre  ,arrcndi,vidc 

=  S 

earri  (arrcndi  rempli 

contour 

=  6 

circle  , rempli 

contour 

=  7 
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circle  .vide  =  8 

cere  I e  .rcmpli  contour  «  9 

11  est  possible  de  modifier  (m£me  en  dess  inant)  la  taille  des 
neuf  premieres  figures  grahiques  grace  aux  tableaux  de  menu 
PATCH  PLUS  et  PATCH  MOINS  ou  par  Pemploi  des  touches  <F7> 
et  <F®>. 


Self-  , defined  .Icon  =  10 

La  fonction  SELF  reprend  1' image  actuellement  situee  dans  le 
tampon  de  quadrillage  (egalement  ies  parties  choisies  par  MOVE/ 
COPY  et  Ies  images  cremes  par  Pediteur  d'icdnes)  et  I'utilise 
comme  "pinceau",  Si  votis  appuyez  sur  la  touche  gauche  de  la  souris, 
rieftne  de  Pec  ran  est  dessinee  dans  le  mode  graphique  qui  est 
actuellement  mis  en  place.  II  est  possible  de  la  deplacer  sur 
Pecran,  grace  a  la  touche  droite  de  la  souris. 


S  rubb  .rcmpli  con  lour 

= 

U 

S  rubb  .vide 

— 

12 

S.rubb  .rcmpli  re.  contour 

— 

13 

R  rubb  , rcmpli  ,a.  contour 

S 

14 

R  rubb  ,vidc 

= 

IE 

R  rubb  .rcmpli  ,s.  contour 

— 

16 

E.robb  .rcmpli  contour 

— 

IT 

E.rubb  .vide 

= 

18 

E  rubb  .rcmpli  contour 

= 

19 

Ces  neuf  figures  attendent  un  clic  de  la  souris  a  Paide  de  la 
touche  gauche  sur  n’importe  quelle  position  select ionnte.  Continuez 
a  appuyer  sur  la  touche  et  tracez  la  figure  en  question.  Pour  que 
la  figure  ouverte  soil  dessinee,  il  faut  simplement  relacher  la 
touche  de  la  souris. 

Si  vous  souhaitez  Peffacer,  il  faut,  outre  la  louche  gauche  deja 
enfoncee,  appuyez  egalement  sur  la  touche  droite  et  ensuite, 
relic hez  la  touche  gauche  d’abord,  puis  la  touche  droite. 
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Maintenant  il  est  possible  d’ouvrir  ime  nouvelle  boite, 

LINES  =  20 

II  exisle  trois  possibilites  en  mode  LIKE.  La  touche  gauche  de 
la  souris  permet  de  dessiner  k  main  levee,  et  la  touche  droite 
d’affieher  un  point  et  de  posit ionner  une  droite.  Si  vous  appuyez  - 
a  pres  avoir  enfonce  la  touche  droite  -  en  plus  sur  la  touche 
gauche,  la  ligne  placee  est  tracee. 

FILL  =  21 

En  cliquant  la  touche  gauche  de  la  souris,  la  zone  qui  se  trouve 
sous  le  curseur  de  la  souris  est  remplie  par  le  motif  de  remplis- 
sage  choisi. 

Plot-  ,  SPRAY  «  23 

Patt-  ,  SPRAY  =  25 

Ces  deux  fonctions  peuvent  egalement  fitre  modi  f  ices  par  la 
combine ison  des  touches  de  la  souris.  Les  points  affiches  k  l’aide 
de  la  touche  gauche  sont  pctits,  ceux  affiches  grace  k  la  louche 
droite  sont  moyens  et  ceux  affiches  par  Temploi  simultane  des  deux 
touches  sont  grands. 

MARKER  -  24 

La  fonction  MARKER  (rep£re)  contient  un  petit  sous -menu  qui 
peut  etre  appelc  (lors  de  l’affichage  du  texte  de  menu  MARKER) 
commc  pour  le  sous~menu  de  TEXT  ou  bien  grace  k  un  autre  emploi 
de  <TAB>  (les  icOnes  de  menu  sont  inexistantes)  ou  encore  en 
cliquant  k  I’aide  des  deux  touches  PicOne  MARKER  du  menu 
graphique.  Vous  pouvez  ensuite  choisir  un  des  six  symboles -marker 
disponibles  et  dessiner  avec  celui-ia,  com  me  vous  le  faisiez  deja 
en  mode  Patch  (les  neuf  premieres  figures). 

text  =  28 
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La  fonction  TEXT  comprend  plusieurs  sous-menus.  Pour  appelcr  le 
menu  principal  de  TEXT,  il  faut  proceder  de  la  mfeme  fag: on  que 
pour  MARKER.  Vous  obtiendrez  alors  un  menu  divise  en  quatre 
parties,  vous  permettant  de  choisir  voire  texte  (faille,  type, 
couleur,  direction).  Cliquez  le  tableau  souhaite,  un  nouveau  petit 
menu  est  affichfe.  Mettez  en  place  1’effet  desire  et  ecartez  ensuite 
le  curseur  de  la  sour  is.  Le  menu  principal  de  TEXT  est  r£affich£. 
Pour  le  quitter,  il  faut  cliquer  sur  Tecran  a  cdte  du  menu. 

Une  fois  que  vous  avez  cree  et  sauvegarde  les  difftrentes  icOnes  de 
menu,  vous  pouvez  admirer  vos  propres  images  de  menu  apres  le 
prochain  lancement  du  programme,  k  chaque  fois  que  vous  appelez 
le  MODE  DRAW. 

Lors  du  lancement  du  programme,  celui-ci  demande  egalement  sVil 
existe  sur  disquette  une  couverture  s'appelant  *’PRE_PRO.PIC\  Si 
cela  n’est  pas  le  cas,  vous  pouvez  cr£er  voire  propre  couverture. 
Cette  couverture  sera  alors  la  premiere  image  chargee  lors  du 
lancement  du  programme  et  elle  est  stocks  dans  les  deux  memoires- 
ecrans  * 


Dessinez  done  une  image  ordinaire  sur  la  total ite  de  1’ecran  et 
sauvegardez-4a,  ensuite,  grace  a  SAVE  SOME  (option  DISKY  du 
menu  principal)  sous  le  nom  indique  ci-dessus  Comme  la  fonction 
SAVE  met  automat  iquement  r  extension  .PRO,  il  suffit  main  tenant 
de  changer  celle-ci  grace  k  la  fonction  NAME  SOME.  Et  voiia, 
votre  couverture  est  prete  ! 

A  partir  de  maintenant,  ce  programme  est  votre  programme  gra¬ 
ph  ique  personnel. 

@  G  row .  sh  r  ink .  bo  x  (0 ,  543,85 , 1 0 , 1 0,200 , 1 2 2 , 288,258) 

GRAPHMODE  1 
DEFLTNE  0, 1,0,0 
DEFFILL  ,0,0 
PBOX  200,122,456  582 
BOX  201,125,457,381 
BOX  303,124,456,380 
DEFFILL  .3,4 
PBOX  304,136,454,378 
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FOR  J=0  TO  4 
FOR  1=0  TO  4 
INC  Icnindec 

BOX  111+  (1*47)  ,133+  (J*47)p211+47+  (I*47)piSS+47+(J’47) 

PUT  212+  (r47),134+  (J*47),M.)coii$(Icnindex) 

NEXT  I 
NEXT  J 
knindcx=0 
l.ntodnwr 
REPEAT 
UNTIL  MOUSEK 
REPEAT 

MOUSE  X,¥.K 

Dmx  index— INT({X-211)/47)+  1 
Dmy.index=INT([¥-I33)/47) 

t 

'Determine  in  colonne  et  le  ligne  du  menu  sur  leequellee  *e 
■irouve  lc  cuntur  de  la  souria. 

#  IF  Dmx.mdex>=l  AND  Dmx.index<=&  AND  Dmy  index>=G  AND 
Dmy  .index  <=4 

I 

'Si  le  cureeur  de  la  >ouri»  u  Irouve  I  I’intirieur  du  menu 

t 

D  -rw  mode  96 = D  mx .  i  ndex + Dmy . .  index*  5 

t 

retourne  le  mode  d 'operation  du  tableau  choiti. 

'Celle  petite  formule  permet  de  num&roter  dans  le  bon  or  dr* 
*4giUcnient  l«s  option*  dee  menus  sur  deux  dimensions 

i 

PUT  SlS^^MjeonltDrawmodcft)^ 

ENDIF 

IF  K=3  AND  D.nwmode%=34 

• 

'Com me  Ice  deux  options  de  menu  MARKER  et  TEXT  eonliennenl 

'respectivcmcnt  un  ou  plutieun  sous -menus,  it 

'eel  possible  de  lee  appeler  grlce  4  un  die  d«  deux 

'touche*  de  la  so  uni 
• 
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^Mukcrmcnu 

@G row  shrink  box{  1,530  320,45,45,260  150,140  130) 

GOTO  l.niodrsw 
ENDIF 

IF  K=3  AND  D  rawmodc$S=25 

t 

'Voir  plus  haul. 

£T.  ext  menu 

^Grow  shrink. box(l,S7S  320,45,45  250 150, 140,130) 

GOTO  I.nlodrsw 
ENDIF 
UNTIL  K=0 

GET  0.0, 636.120 .Help areal 
^P.utflip 

PUT  O^tMelpare&i.S 

ENDIF 

IF  H#lp.«n%=0  OR  (Help  on9fi=lL  AND  |cnflag%=0) 

’Si  1«  menu  graphique  tit  fermt  on  ouvert  sans  confcenir 
'd'kdnes,  branch*  Le  programme  sur  la  prtsente  par  tie 

I 

IF  K-l  OR.  Fk«y*9fi=67 
« 

’Si  vout  cliques  I'option  de  menu  MODE  DRAW  avee  la  touche 
’gauche  de  la  aourli.  ou  si  <F9>  eat  enfon«-4e,  augment* 

Tind  ce  de  I'opiration  ’D.raeroodK*  par  un. 

t 

INC  D.rnwrnode% 

IF  D  .raw  mode  %  >  25 
D  .rawmodeSG = 1 
ENDIF 
ENDIF 
IF  K=2 

i 

’Si  I  option  de  menu  DRAW  MODE  tit  cliqute  grtce  A  la  touche 
’droite  de  la  eourie,  dinunuc  "D  rawmodc5{"  de  un. 

I 

DEC  D  raw modeSt 
IF  D.rawmod#55<l 
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D.rawmod«%=2$ 

ENDIF 

ENDIF 

IF  (D  rawmcxicSti— 24  OR  D  rawmod«S£=25]  AND  HeIp.on%=I  AND 
Fkeya9&=18 

i 

'Si  It  menu  gmphtqua  tit  ouvert  et  li  le  tableau  contient 
'•oil  MARKER  soil  TEXT  et  si  <TAB>  at  enfonefe 

t 

IF  Icnftag%=I 

f 

*...  a] ora  met  en  place  l'icfint  de  menu  act  u  elie  (ai 
’elie  ait  exist  ante  (Icnft&f%=l)) 

i 

f 

PUT  5l9,63,M.ieont(D.rawmci<Jc%),3 
ELSE 

t 

*ou  tfllcht  ie  texte  <le 

*  Tops  rati  on  actual  la  dans  la  fenfire  (si  elie  cat 

'inexutante). 

I 

CRAPHMODE  1 
DEPTEXT  1,1.0 .4 

TEXT  &20,7SID.m^e$(D.rawmode%,l) 

TEXT  SSO.SS.D.modeltD.rawmode^.S) 

TEXT  5 2 0,95 ,  D  mod  e  I  (  D  .rnwmodeSS  ,3) 

ENDIF 

IF  D.nwmodt%=24 
(SMarkermenu 
ELSE 

@T.  ext  menu 

ENDIF 

ENDIF 

ENDIF 

R  e  mem .= D .  raw  mode  % 

IF  Help  onSt-I 
IF  Icnftng%=l 

PUT  519,63  M. icon J(D  rawmode96)  3 
ELSE 
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graphmode  i 

DEFTEXT  1, 1,0,4 

TEXT  S2017S1D.*fiodi!i(D.rawmode96il)| 
TEXT  52Q18S,D.mode8[D,rai*mode96,2) 
TEXT  520,95 ,D  model  (D  .rn*rmde% ,3) 
END  IF 
PAUSE  10 
ENDIF 
RETURN 

PROCEDURE  Seigrafmode 
INC  GrafmodSS 
IF  Grafmod%=S 
Gr&fmodSt  — I 
ENDIF 

IF  H«rlp.onK~l 
GRAPHMODE  1 
DEFTEXT  1, 1.0.4 
IF  Cnfmod%-l 

TEXT  583,80,0, -REPLACE- 
TEXT  583  93,0  "  MODE  * 

ENDIF 

IF  Crafmod%-2 

TEXT  £83 ,80 ,0  "TRAN  SP  * 

TEXT  583,93,0*  MODE  “ 

ENDIF 

IF  Gr&fmod9S=3 

TEXT  583.80,0  •  X  O  R  " 

TEXT  £83,93,0*  MODE  * 

ENDIF 

IF  Grafmod%=4 

TEXT  B88,80,0i"lNVERS - 
TEXT  583 ,93,0, -TRANSP  - 
ENDIF 
ENDIF 
PAUSE  20 
RETURN 

PROCEDURE  Srtnewmenu 
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‘Cello  procedure  re  to  Limn  le#  ehoix  nctucl#  pour  chaque 
appel  de  menu  et,  «n  fonction  de  eel*,  detente  t  nouveau  le 
'contenu  du  menu. 


£?Clipprec{2) 

CRAPHMODE  1 
DEFFILL  Rtype%,RmolT96 
COLOR  1 

PBOX  14,62,123,107 
DEFLINE  0,Trlarge%,0.0 
LINE  146,34,244,84 
DEFFILL  .0,0 
PBOX  266,62,312,107 
IF  Trtype56=0 
COLOR  0 
ENDIF 

DEFLINE  Trtype%,  1,0,0 
LINE  269.84,300,84 
COLOR  1 

PBOX  329.62,376,107 
DEFLINE  1.6tTrd4bui%.Trrm% 

LINE  334,84,370,84 
DEFTEXT  1,16,0,20 
TEXT  42eilOO,QlSTR$(Patch*L»«%)+'’  " 
IF  Icnfleg%— 1 

PUT  519,G3,M.ieon$(D  rawrnode%),3 
ELSE 

DEFTEXT  1.1 .0,4 

TEXT  SZO.IS.D.modt^D.rawmodeX,!) 
TEXT  620,88 ,D . m  od  e  $ ( D  r awmode9£  ,2) 
TEXT  620,96, D  mode$(D.rawmode9S, 3) 
ENDIF 

DEFTEXT  1,1, 0,4 
IF  Grafmod%=  1 

TEXT  583,80,0 'REPLACE" 

TEXT  683 ,93,0'  MODE  * 

ENDIF 

IF  Grafmod%— 2 

TEXT  583.80,0, ’TRANSF." 

TEXT  883,93,0’  MODE  ’ 
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ENDIF 

IF  GrafmoeJ96=3 

TEXT  683,80.0,'  X  O  R  * 
TEXT  683,03,0,"  MODE  * 
ENDIF 

IF  GrafmodS&=4 

TEXT  683 ,80 ,0." I NVERS -* 
TEXT  683,93, 0-TRANSP- 
ENDIF 
@Set  paras 
RETURN 
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PROCEDURE  Sho  whelp 

t 

Procedure  permettnnt  do  rtprtienter  le  menu  graphiquo. 


Help.on%=I 
(»G  etflip 

IF  Ife]pBt»rtfiag%=I 

FOR  196=0  TO  120  STEP  10 
PUT  0»- 120+ 1%,  Helps  real  ,3 
NEXT  196 
ENBIF 

IF  Helpe  larlft  ag% — 0 
COLOR  1 
CRAPHMODE  1 
DEFLINE  1. 1,0,0 
DEFF1LL  ,2,2 
PBOX  0,0,630,120 
DEFFILL  ,0,0 
PBOX  4,4,035,116 
BOX  1,1,036,120 
BOX  4,4,635,116 
BOX  5,5,634,115 
F.«o%=0 
LINE  5,23,634.23 
LINE  5.25.634,26 
LINE  5,51.634,51 
LINE  5,53,634,63 
DEFFILL  .2,16 
PBOX  5,5.633,23 
FOR  I%-6  TO  5T2  STEP  63 
GRAPHMODE  1 
INC  F.cc% 

IF  Fxo56=6  OR  F.co5£=6  OR  F.co%=0  OR  F.cc%=10 
LINE  1%, 5,196,1 15 
LINE  !%+63,S,t%+63,llS 
DEFFILL  .2,4 
PBOX  I%+ 3,66,1%+ 60,1 12 
DEFFILL  .0,0 
PBOX  155+ 7,60,1%+ 66,1GB 
BOX  I%+ 8,61,1%+  55,107 
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BOX  196+9.62,196+58.107 
ENDIF 

IF  F. co 96= I  OR  F.eo96=3  OR  F.co9g=7 
LINE  196.5,196,50 
LINE  196+63,5.196+ 65, 50 
IF  F.co%=3 

LINE  196,51,196.118 
ENDIF 

DEFFILL  .2,4 
PBOX  196+ 3,56.196+ 123,  m 
DEFFILL  ,0,0 
PBOX  196+7,60,196+119,108 
BOX  196+8,61,1%+ 116,107 
BOX  196+9,62,196+111,107 
ENDIF 

CRAPHMODE  2 

DEFTEXT  1,17,0,6 

TEXT  196+  13,18.0,-F-+STR*(Fxo96) 

DEFTEXT  .16 

-  TEXT  196+  1S,18pO.*F’'+STRI(F.co96) 
NEXT  196 
DEFTEXT  1,0, 0,6 
RESTORE  Gr&fmenutext 
FOR  196=1  TO  20 
READ  X  .1x96 ,  Y.  tx9£  .M.txS 
TEXT  X.tx96,Y,ix96.0,M  lx» 

NEXT  196 
LINE  391,77,600,77 
FOR  196=1  TO  108  STEP  22 
LINE  391+ 196.63, 391 +196 ,77 
NEXT  196 
DEFTEXT  1,1, 0,6 
TEXT  398,73, 99*1  6  10  20  60" 

G  ET  0 .0,639 . 1 20 ,11 el  paren  t 
Help«Urtfl&g96=l 
ENDIF 

@S«tn«wmenu 
GRAPHMODE  1 
DO 

$Getfk«y« 
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EXIT  IF  (Fk*y*%>B8  OE  (Y>120  AND  K>0))  AND  Fkey-l%<>49 
LOOP 

GET  0 ,0,639. 120, Hflp*r«a$ 

FOR  1%=120  TO  0  STEP  ‘12 
PUT  0,'120+I%,Hdj>wM$p8 
NEXT  I % 

(®P -U I  flip 
Help,on%=0 

RETURN 

PROCEDURE  Change  mod 

I 

Procedure  permtttsnt  d 'adapter  le  mode  de  quadriHage  au 
'GRAPHMODE  choui. 


IF  Grafmod96=l 
QuBdmod9€=S 
ENDIF 

IF  GrftfmodS6=S 
Quwlmod?5=T 
ENDIF 

IF  Gralmod9t=S 
Qundmod%— 6 
ENDIF 

IF  Grafmod%=4 
Quadmod%=12 
ENDIF 
RETURN 
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PROCEDURE  Starter 

I 

‘Procedure  pemettB.nl  d’accfder  &u  eoua-programme  de  l  idileur 


Grace  a  t’editeur  d’ icones  el  de  motifs,  qui  esl  integrS  dans  ie 
present  programme,  nous  aliens  mettre  en  evidence  les  principes  de 
base  de  la  programmation  relative  a  robjet- 

Le  premier  avantage  d'un  tel  programme  reside  dans  la  facilite  dc 
I'adaptcr  a  diverses  situations  et  necessites.  Le  programme  de 
rediteur  n'est  pas  entierement  base  sur  Pobjet  car  son  utili¬ 
sation  est  limitee  au  mode  monochrome.  En  principe,  il  pourrait 
facilement  litre  modifie  et  tourner  en  modes  HIRES,  MIDRES  ou 
LOWRES.  Dans  ce  cas,  le  changement  le  plus  important  sera  it 
F&daptation  des  affichages  graph iques  a  l’organisation  de  la  page- 
ecran  et  la  possibilite  de  choisir  des  couleurs  differentes. 

En  ce  qui  concerne  cette  variete  d'emploi,  une  modification  du 
programme  de  fediteur  est  preferable  au  dcveloppement  d’un  nouveau 
programme.  Vous  ailez  remarquer,  en  utilisant  Pediteur,  que  sa 
conception  est  basee  largement  sur  les  fonctions  de  fenfctres  du 
desktop  "fermer,  ouvrir,  modifier,  deplaccr,  scrolling  etc.".  En 
principe,  le  present  BASIC  permet  done  egalement  une  telle 
conception  confortablc  du  programme. 

Le  premier  critere,  pour  choisir  ce  genre  de  programmation  est, 
tout  d’abord,  la  vitesse  d’execution  des  commandos  de  ce  langage 
de  programmation.  Comme  la  vitesse  du  present  BASIC  eclipse  tous 
les  autres  inter preteurs  BASIC  disponibles  actueilement,  il  est 
possible  d’aborder  mam  tenant  des  fonctions  plus  osees  : 

COLOR  i 
DEFLINE  0,1 .0,0 

graphmode  1 

ALERT  2."  Que  faut-il  Miter  ?  ",0,“ 

lCONES]PATT£RN|FIN^ack*lert% 

IF  Back»!ertK=3 
GOTO  Edout 
ENDIF 
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EcUtart: 

IF  Back#lert55=I 
Bbbb=0 

ALERT  2,"Conaerver  ancien  bloc  ?•.□."  OKAY  |  NON  ".Bbbb 
IF  Bbbbsl  AND  Pat.flag%=l 

ALERT  3~Imposaible  !ll|L«s  blocs  pattern  nt  [pen vent  pu 
«re  conserves  r,!,"  OKAY  "fAaaa 
Bbbb=2 
ENDIF 
Pat.flig%=0 

IF  Bbbb— 1  AND  hgnesclO  AND  colonne«<10 

ALERT  3, "Impossible  I!l|II  faut  dtfinir  au  moms  une|fois  une 
ic6ne  At  bloc  r.I  *  OKAY  ".Aaaa 
Bbbb-2 
ENDIF 
IF  Bbbb =2 

ERASE  Ra»terS6() 

^Set.raaterform(l) 

(3)Set  ra«terform(  2  J 

DIM  Rutcr%( colon  n  es , I i gnu) 

ENDIF 

ENDIF 

IF  Back»lert%=2 

Bbbb=Q 

ALERT  3,'Conierver  ancien  motif?" ,0,"  OKAY  |  NON  ",Bbbb 
IF  Bbbb=| 

ENDIF 

IF  Bbbb^l  AND  colonne«<>i6  AND  lignesolfi 

ALERT  S^lmpouible  lf1|Bloc  ne  correspond  pu|au  format  du 
motif  r,l“  OKAY  \A*aa 
GOTO  E  da  tart 
ENDIF 
IF  Bbbb=2 

t 

'SI  lor*  do  1'appel  de  l'*diteur,  PATTERN  a  choiaie,  t« 
'bloc  de*  motif*  de  rem  plies  age  eat  prii  comm*  bloc  de 
T4dit«ur. 

JL«a  variables  "ligues"  et  "colonnee"  contiernent  enatiite  It 
’format  indiqu*  du  bloc 
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ERASE  Euter%() 

Ligne«=lG 

Cclonnu-16 

DIM  RMler%(lGJI6) 

ENDIF 
Pat.fi«g%=l 
ENDIF 
L.b,3=26 
L.b.S— 40 
Lb3=l$ 

'Pour  la  nprtMnlotion  'Ghotl'  dc  la  fcnitrt,  lor*  de  son 
'ouverture,  il  nouc  faut  lea  largcure  dc  bord  cneadrant  la  vroie 
’fenfctre  de  itiiie. 

IF  &bbb=l 

I 

'Ea  appelant  I'lditcur  d'icdne*  pour  la  demure  foie,  il  eat 
'possible  de  choiiir  ft  I'ort  touhaile  conserve r  I'ancieit  bloc 
'de  V*diteur,  y  comprut  son  contenu,  ou  si  I'on  vcut  Le 
'reddfinir. 

’Si  1'ancien  bloc  doit  (tec  conserve,  lee  definitions  de  base 
'de  I  iditeur,  aauvegardies  avant  de  I1  avoir  quittf  aont 
rd  affect  tea  aux  variable*  utilises 

I 

X*^Xg.2 
Yg— Yg.2 
X— X.2 
Y=Y,2 

Lign&c  — isgne*  2 
Colo  n  n  e* —col  o  ones .  2 
Ca=Ga.2 
Su-Su.2 
Dr— Dr.  2 
ln=ln.2 
L«n=lsr|.l 
Haut=haut.2 
ENDIF 

IF  Bbbb-2 

> 
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'Si  l'tditcur  d*  motif  eit  ippdt,  n  position  «t  dtttrminfo 

’id. 

« 

X=220 

Y=UO 

ENDIF 

GRAPHMODE  1 

DEFFILL  ,2,4 

PBOX  460,100,620,300 

DEFFILL  ,0,0 

PBOX  470,00.610,200 

BOX  472,112,603,288 

GET  4 60 , 100,620,300  Edit  inf  of 

DO 


aH  I'agit  id  de  la  boucte  principal*  de  l’editeur  Celt  & 
Tinttrieur  d*  eett*  boudt  que  iont  effrctuti  1m  travail  x 
pr^p&rxtifi  ct  qu«  lent  d4t*rmjti4e*  lei  condition* 
^’interruption 

ft 

^P.utflip 

PUT  460 , 100 ,E  .di  ti  nfo  f.S 
IF  Sottte%=l 


C.anc«l%=l 
GOTO  E.dloopout 

ENDIF 

IF  Bbbb=2 

1 

’Si  l*4diteur  d’icdnei  *  414  ippdl,  vs  4  is  procedure 
permettant  de  difinir  Is  taille  de*  fmltm. 

* 

I^Rubbtrbox.  1 
ENDIF 
jftQuiy 
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’"Busy"  eat  tine  petite  procedure  affichant  le  mmige  "BUSY* 
'{cngl  ;  occupy)  pendant  qua  le  programme  eat  occupy  par  de 
‘longs  trsvaux- 


@Initvar.wl 

i 

’"Initvar  wl"  permet  d 'adapter  tout**  lee  donn^e*  d'objet  t 
'la  definition  de  but  de  la  fenttre.  April  avoir  difmi, 
'modifie  0*1  diplact  la  fenfttre,  il  faut  adapter  In  donirfet 
'd’abjet  i  la  nouvelle  situation 


Cette  gestion  des  donnees  d'objet  s'appelle  aussi  "liste  des 
objets"  pubqu’elle  comprend  une  lisle  de  toutes  les  coordonnees 
importantes  relatives  atix  differents  objets.  Le  nom  de  procedure 
"Initvarwl"  indique  qu*il  est  facilement  possible  de  gerer 
simultanement  plusieurs  fenetres  (wl,  w2,  w3  etc.),  Le  probleme 
majeur  est  alors  de  savoir  quelle  est  la  fenetre  qui  est  actuel- 
lement  active  (se  trouve  au-dessus)  et  de  gerer  le  programme  gra- 
phique  cn  ce  qui  concerne  I’ordrc  des  fenctres  super posees.  Mab 
quelquefi  bonnes  idees  vous  aideront  sOrement  a  trouver  une  solution 
a  ce  probleme. 


Fenitra^l 

I 

‘Souvians-toi  qua  la  fenEtre  ait  ouverte. 

^5  et  plane 
• 

'"Set plane*  pcrmet  da  tranapoaer  lea  coordonntea  di  termini**  A 
Taida  da  "Jnitvar  wl",  dana  un  detain  riel  represent  ant  alort 
’la  totality  da  la  fcnitre,  y  comp  ns  toutei  las  fonctions 

’d’utiliaation. 

» 

(gDrnw.edpic 

• 

N>  Draw,  ad  pic*  pcrmet  de  dcaamer  la  content!  de  1'tditeur  an 
'fonction  da  la  position  at  da  La  taille  actuclla  de  la 
‘fenttre. 
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($Rr&dy 

* 

'April  Avoir  termini  le*  long*  travaux,  "Ready"  attic  he  t« 

’menage  READY  (angl  :  prit). 

► 

0T  eit  _de_la__*o  urii 

l 

*Va  I  la  procedure  de  test 

a 

E  dloopout: 

EXIT  IP  e.ancel96=l 

i 

'Si  I'iditcur  doit  *tr#  quitti,  remplit  le  tableau  privu  pour 
’le  contenu  de  l’tditeur,  avec  le  conlenu  actual 

R 

$Bu*y 

0lnit  array 

Ready 

Fen4trc=0 

*  • 

at  ■ouvien*-toi  qua  la  fenetre  reitera  fertnie  &  pvtir  de 

'main  tenant 

t 

LOOP 

IF  Pat.flag%=l 

'Dart*  le  cai  oil  I'iditcur  du  pattern  itmt  act  if,  demands  s'il 
*faut  afflcher  lee  donniei  du  pal  tern... 

4 

ALERT  Z/Aflichagee  dn  donneeeldu  pattern  ? 

M,*  OKAY  l  NON  *,B.aJert% 

IF  B  alert%=l 

# 

et,  le  cat  ichtant,  affiche-lei 

■ 

ALERT  2  “Moniteur,  Imprinter  ouldieque  ?  *,I  *MONITBUR[ 

LMPRlMER|DlSQUE",BackaIert% 

IF  Backalert%=I 
DEFFILL  1.0,0 
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DEFTEXT  1,16.0,6 

PBOX  200,100.440,500 

BOX  202,102,458.208 

TEXT  208,1 12,222  •PATTEBN-DATAS*’ 

FOR  1=0  TO  15 

TEXT  208,130+ 1 *10* Li gne  dti  paUem*+ STR|{IJ+-  ;  * 
TEXT  380.130+ 1* 10.STR*(P*tword%(!)) 

NEXT  I 

TEXT  228,205  "(enfoneer  touch*  de  1b 
REPEAT 
UNTIL  MOUSEK 
ENDIF 

IF  Bacltn3ert%=2 
FOR  1=0  TO  SS 

LPRINT  *  Eigne  Mf  ;  *;Patword%{!) 

NEXT  1 
ENDIF 


3.2.24  lies  operations  sur  imprimante 


LPRINT 
Syniaxe  : 

LPR I  NT  [ expression}  t|;  |*  )expression[,][; ][*  J 

Si  vous  faites  partie  des  heureux  possesscurs  d’une  imprimante, 
vouS  disposez  ici  d'une  instruction  qui  (ft  part  le  posinonnemeni 
'*AT(XP1YPf)  est  rigoureusement  identique  ft  (’instruction  PRINT 
quant  a  sa  syniaxe  et  son  utilisation.  La  seulc  difference  est  quc 
LPRINT  n'affiche  pas  les  caractCres  souhaites  sur  Pecran,  mais  ies 
sort  sur  imprimante.  A  fin  de  pouvoir  contrdler  la  tele  d’ecriture 
si  cela  est  necessaire,  nous  vous  conseillons  de  regarder  de  plus 
pres  le  vnanuel  de  votre  imprimante.  Vous  y  trouverez  les  insi ruc¬ 
tions  de  contrdle  utiles  pour,  par  exemple,  simuler  Pargumem 
supplemental  re  *’AT(XP1YP)".  Vous  trouverez  egalement  d’autres 
renseignements  supplemental  res  dans  le  paragraphe  PRINT. 
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LUST 
Syntaxc : 

LLIST 

L'instruclfon  LLIST  permet  d’imprimer  !e  listing  de  votre  program¬ 
me.  Aucun  parametre  ne  iui  est  a  joule.  Si  Pinterpr6teur  rencontre 
cetie  instruction,  il  ne  sera  plus  possible  alors  d’empecher  la 
sortie  du  listing  sur  imprimante.  Le  seul  moyen  de  Parrfiter  est 
de  mettre  1' imprimante  en  "off  line'*  ou  de  la  debrancher  carrement. 
30  secondes  environ  s*ecoulent  alors  avant  que  le  programme  ne 
reprenne  la  main. 

Selon  le  type  et  la  marque  de  V imprimante,  ce  genre  d* interruption 
peut  avoir  des  effels  differents.  Pour  la  plupart  des  impri mantes, 
cette  sortie  brutale  n’a  pas  de  consequences  graves.  Quelques  unes, 
cependant,  pourraient  le  prendre  mal.  Vous  savez  sans  doute  deja  si 
votre  imprimante  fait  partie  ou  non  de  cette  derniere  categorie.  En 
ptincipe,  il  faut  la  laisser  eteinte  pendant  environ  3  a  5  secondes 
avant  de  la  remettrc  en  marche.  Cette  pause  de  reflexion  fail,  pour 
ainsi  dire,  partie  de  Son  entretien,  Elle  vous  le  rendra  par  une 
longue  vie. 


IPOS 
Syntaxe : 

L POS( argument  muct) 

La  fonction  LPOS  vous  retourne  la  position  dans  le  buffer  ou  se 
trouve  actuellement  la  tete  d'ecriture  virtuelle  de  I* imprimante. 
Comme  elle  ne  correspond  pas  tou jours  A  la  position  physique  reelle 
ou  se  trouve  la  t&te  d’ecriture  (celle  qui  fait  le  bruit),  il  peut, 
le  cas  ech£ant,  £tre  important  de  connaitre  sa  position  actuellc  en 
memo i re.  La  valeur  ajoutee  £  LPOS  peut  etre  choisie  arbitrairement. 
Ce  soi-disant  "argument  mucf  (angL  :  dummy;  attrape,  duperie)  n’a 
aucune  importance. 
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Exempte : 


FORi=X  TO  50 
LPRINT  LPOS(l); 
NEXT  i 
A=LPOS(l) 
PRINT  A 


IF  B«efc»tart%=3 

I 

'Si  l'option  DISKETTE  n  tU  choisie,  Its  donates  dies 
'different  cs  ligne*  du  met  if  de  remp  Image  iont  4c  rti«a  stir 
’disqueUe  cn  tint  que  lignei  DATA  Le  non  de  fichicr  sous 
'  I  equal  la  ligne  doit  tire  sauvegardee  eil  arbitraire  Lc 
'programme,  par  centre,  y  rajoulera  1'cxteniion  LST,  mtme  si 
’you*  en  indiquet  une  autre.  Ceci  vous  permit  d‘instrer  la 
'ligne  dans  n'impcrte  que)  programme  grftce  a  MERGE,  sans  ttre 
'tnnujr*  par  la  anisic  da  donates.  Comma  lc  curseur  de  la 
'sou rift  ct  lea  sprites  sent  constitute  de  16  *  16  pixels,  vone 
pQiivu  aiitment  erect  en  abon dunce  dn  formes  de  sourii  on  Hes 
'sprites,  et  lei  utiliser  dans  vos  propres  programmes. 

i 

PILESELECT  ”  LST" ,m  LST*  .Selected! 

IF  Select  ed|>''"  AND  Selected!  <>"\*  AND  Selectedlo’.LST" 

E-X  t  e  nd  er  J  "LST" 

^Extend 

OPEN  ■O",  ^  1, Selected  J 
PRINT  #l;*Data 
FOR  1=0  TO  15 

PRINT  #  1  ,ST R|{P al word%{!) J ■* ; 

NEXT  I 

PRINT  #1;CHR*(13) 

CLOSE  #1 
F.ND1F 
ENDIF 
ENDIF 
ENDIF 
C.snccl^=G 
Fenttre— 0 
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Sortit%=0 

» 

‘Emuitc,  le  programme  ret  lent  la  dtfitiilien  de  bate  de  la 
‘fenitre  afin  de  pouvair  les  rfamployer  la  prochame 
■foil  quc  I'ancien  editeur  tern  utiliit 

i 

Lignes.l^Ugnea 

Colon  ne«2 -colon  nd 

Ga.2=Ga 

Su.2=Su 

Dr.2=Dr 

In. 2— In 

Large  2 —  large 
Haut.2~hout 
E.  do  ut: 

0  Set.  par  u 
RETURN 

PROCEDURE  Set.raaterfoim(S.L*e%) 

* 

"Cette  procedure  detain*  le  fond  de  la  dr&gboit  qui 
'determine  la  taille  du  bloc. 

I 

GET  200 ,120 ,44 0,260 .Grid backS 
GRAPHMODE  1 
DEFFILL  ,0,0 
POOX  200,120,440,260 
BOX  201. 121,439 ,269 
BOX  205,12$.43S,25S 
DEFTEXT  1,16,0,13 
IF  S.ite%=l 

TEXT  220,1 SO  ."Nombr*  dc  lignn  de  bloc  i" 
R.index9G— 1 
END1F 
IF  S.iw%=2 

TEXT  21 S,  l  SO, "Nombr*  de  colonnes  de  bloc 
R.index%=2 
ENDIF 

DEFFILL  ,2.4 
PBOX  220.160,420.200 
DEFFILL  .0,0 
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PBCX  225,105,415,195 

BOX  327,167,415,193 

BOX  502,220,540,245 

BOX  305,221.539,244 

@Dr  agbcxf  1 ,229 , 169,6, 2  2,229. 169, 182  22} 

PUT  200,1 20.Gndback$,3 
R.indcx%— 0 
RETURN 

P  R  O  C  ED  U  RE  T«t_de_l*_wuris 
DO 

i 

'Le  programme  reiie  5  rint&rieur  de  eette  boucle  tint  que 
Ms  bolte  "OK"  (on  h>ut  &  droit  e)  ou  la  bolte  *  Can"  (cel) 

'(juil*  1  gauche  de  "OK”)  n’est  pas  diqutf  (voir  fin 
'de  boucle). 

Em  clirquant  la  bolte  "OK",  le  contemi  actual  de  I'lditeur 
'e*t  trsntfirt  dwi  la  tableau  pr4vu  pour  contanir 
’”Ra*ter%  (colo ones, lignaa}"  et  le  motif  de  t'icAne  dev  lent 
'dieponible. 

’Si  "Can”  eit  diqute,  le  programme  quitte  Paditeur 
*i  mm4d  i  at  e  men  l . 

'L'icflne  act u ell e  n’eit  pas  reprise 

I 

REPEAT 

'Le  programme  rest  era  4  I'lnttrieur  de  cette  boucle 

't6nt  qu'aucune  touche  de  la  souris  n  aura  4t#  enfoncie 

■ 

MOUSE  X,Y,K 

IF  X>472  AND  X<608  AND  Y>112  AND  Y<28®  AND  Pat  flag%=l 
» 

Si  le  curseur  de  la  eourta  «>t  positionn*  dan*  la  partie 

’"ORIGINAL”  et  ii,  an  menu  temp*,  I'edttcur  du  pattern 

*(Pat.flagSt=l)  e*t  act  if  ... 

* 

pBuay 
Qlnit  array 
(&P  a  ted  it 

DEFFILL  ,4,1 

PBOX  4 781Mic.b.yd+ 25,002 ,282 
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@R eady 
• 

aflichc  dant  cells  feolle  le  motif  d«  r*mpli»age  crt* 
'juiqu’alor*  comme  exempli. 

ENDIF 

UNTIL  MOUSEK 
MOUSE  X,Y.K 

IF  X>S-d  fejcg  AND  X<S  d.b  xd  AND  Y>S,d  b  yg  AND  Y<S.d.b.yd 

4 

’Si,  lor*  de  lemploi  de  la  touche  de  I*  lourie,  It  cur  spur 

J«  trouve  dim  l&  bottc  *S.d.fe*  (Scroll. Down. Box)... 

* 

@Bu*y 

Q'lnlt  array 

■ 

rep  rends  le  contenu  actud  de  l’idlteur  ... 

I 

FOR  Isdignt*  DOWNTO  1 
FOR  J=0  TO  colonnee-l 

Ra*lcr%(J,0=Ra»ler%(J,I-l) 

NEXT  J 
NEXT  I 

4 

*...  el  place  let  ligne*  de  bloc  dam  le  tableau  RASTER 
'd'une  ligne  ver»  Le  baa. 

4 

FOR  1=0  TO  colonnea-1 
Ruter9£(I,0)=Q 

NEXT  I 
« 

'Efface  la  premikre  ligne  ... 

t 

@C  tear  plane 

@Drawraater 

(^Dr&w.cdpic 

t 

el  desaine  &  nouveau  le  contentl. 
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#Ready 
EM  OIF 

IF  X>S.u.bJte  AND  XO.u.bjed  AND  Y>S.«i.b.yg  AND  Y<  Sub.  yd 

i 

'Si  •Scroll. Up -Box"  a  clique  ... 

t 

<aBusy 
<9 1  nit  array 

rttieni  la  content]  actual  de  I'iditeur  ... 

I 

FOR  1=0  TO  lignes-i 
FOR  J— 0  TO  colontie*-] 

Ruter%(J,l)=R>itet%{J(l+ 1) 

NEXT  J 
NEXT  I 

a 

d* pi  ace  lea  ligne*  d«  bloc  d'une  ]jgn<  ver»  le  haul  ... 

< 

FOR  1=0  TO  colonnec-1 

Rutcr%(l,]ignes)=0 

NEXT  I 
» 

efface  la  darmtre  ligne  ... 

P 

$CltwpUni 

@  Dr  awr  luster 

@Draw.cdpic 

* 

«t  denint  ft  nouveau  le  contcnu  de  1'tditeur 


Vous  rencontrerez  &  plusieurs  reprises  rappel  des  procedures 
"Initarray’V  "Initvarwl1*,  "Clearplane".  ■Drawraster*  ct 
"drawedpic"  dam  le  listing  qui  sum.  Ccst  pourquot  les  fonciiom 
de  ees  procedures  seront  etudiees  ci-apres. 

Par  la  suite,  nous  supposerons  que  vous  savez  &  quoi  correspond  un 
tel  appel.  La  fonction  de  la  procedure  "Initvar.wl”  a  dejft  ete  de- 
crite  plus  haul. 
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"Initarray*':  Grace  &  la  boucle,  le  programme  retournc  les  dif- 
fer ents  tableau  du  bloc  de  l'editeur  qui  sont  noirs.  En  fonction 
de  celat  soil  1  (noir=  posit ionn£),  soil  0  (blanc=absent),  sont 
affectcs  aux  elements  du  tableau  "Raster^)*  qui  correspond  a  ces 
points. 

M  Clear  plane” :  La  surface  de  saisie  de  l’editeur  et  la  fenfire  af- 
ficham  les  tallies  originates  des  icOnes  et  pattern  sont  couvertes 
par  une  boite  blanche. 

" Drawroster" :  La  presente  procedure  suit  toujours  k  ’’Clearplane”. 
Elle  a  pour  fonction  de  tracer  les  lignes  du  bloc  de  rediteur. 

u  Draw  Ml  pic":  Cette  procedure  est  appelee  pour  redcssiner  a  rinte- 
rieur  du  bloc  de  l’editeur  le  nouveau  contenu,  apres  avoir  effec- 
wee  d’eventuelles  modifications  de  la  surface  de  l’editeur. 

(aRcady 

END1F 

'  IF  X>Sl.bxg  AND  X<S.I  b  xd  AND  Y>S  l  byg  AND  ¥<S.I,b  yd 
* 

’Le  mime  procidi  qtie  pour  "S  ri  b"  el  "S.d.u*.  Celle  foil, 

'Le  ccntenu  de  l’editeur  «t  dicali  v*n  In  gauche. 


fsBtwy 

@lnitarray 

FOE  1—0  TO  colonnc*  1 
FOR  3-0  TO  Lignei-1 

RMter9t(I.J)^Raiter%(U  I.J) 

NEXT  J 
NEXT  I 

FOR  1=0  TO  lignee-1 
R  uter%(  colon  nei  ,1)  =0 
NEXT  I 
^Cleuplane 
ffDnwrMtcr 
(iDrnwedpic 
(S  Ready 
ENDIF 

IF  X>S  .r.b  xg  AND  X<S.r.b.xd  AND  Y>Sr.b.yg  AND  Y<S.r.b.yd 


-384  - 


U  a  b  c  du  G/A 


t 

'Lk  mtme  chote  que  plus  haul.  Le  conlenu  Mt  dicali  v«rs  la 

'droit  e. 

« 

@Bu»y 

^Initarray 

FOE  I=colonu»  DOWNTO  I 
FOE  J-0  TO  lignei-1 

Rutcr%(I,J)~Rutcr%(I~l,J) 

NEXT  J 
NEXT  I 

FOR  1=0  TO  llgnes-1 

Ruter^(0,I)=0 

NEXT  I 
gdearplane 
^Druruttr 
£Dr*Wedpic 
gilUndy 
ENDIF 

IF  X>Sa.b.xg  AND  X<Sa-bxd  AND  Y>Sabyg  AND  Y<S*  b  yd 

» 

"Lb  "Save  Box"  b  iti  clique*. 

i 

ALERT  2,"Sauvegard*  ?  *,1,"  OKAY  |  NON  ’.Back  alert  % 

IF  Bukalert%=i 
IF  Pat  !lag%=0 

V 

'Si  le  content!  doit  itre  aauvegardt  et  ti  ]'Cd  teur  dc 
Tic6ne  rat  actif,  va  I  la  procedure  "Iconaaver" , 

V 

(Slconiiver 

ELSE 

* 

'Si  IMdiieur  pattern  cit  act  if,  branch*  aur 
'Pattemaaver*. 

I 

(^Pattern*  aver 
ENDIF 
ENDIF 
ENDIF 
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IF  X>M.v.b.xg  AND  X<M.v.bjtd  AND  Y>M.v.b.yg  AND  Y<M.v  b  yd 
» 

'La  "Mirror- Ver I ■  kal. Box”  a  IU  diquie. 

'Dan*  le  eu  prtaent,  I'tffct  miroir  n’eit  pa*  ridiii  ici, 

*mai»  par  "draw  edpic"  (voir  au  paragraph*  concern^). 

t 

(3  Busy 
M.v.Oagsl 

I 

'Si  le  "M.vilag"  wt  tgal  A  1,1*  programme  aail  ce  qu’il 
Taut  fair*  dam  "draw.edpie". 

i 

@Init  array 
Qdearplane 
^  Draw  raa  ter 
&  Draw.edpie 
M.v.f1ag=0 
Ready 
END  IF 

*  IF  X>M-h.b.xg  AND  X<M.h  b.xd  AND  Y>M.h.b.yg  AND  Y<M  h.b  yd 

f 

'Si  la  "Mirror  Horiaontal  Box*1  a  4U  diqule  ... 

$Btuy 
@Init  array 

FOR  1=0  TO  {ligne*/2)-i 
FOR  J=0  TO  colonnct-1 

SWAP  Ratter^ ( J ,1) ,Ruter%( J ,(ligne*~  1)-I) 

NEXT  J 
NEXT  I 

i 

*...  lem  ligne*  de  l'Aditeur  con l  Aeh&ftgeem  le*  premiere*  cn 
'aval  centre  le*  derniim  *n  amont  Pour  itre  plu*  clair  : 

'la  pre mitre  ligne  eet  Achangie  contra  la  dormer* ,  la 
'deuxiime  contre  1'avant-demiire,  etc...  jmqu'A  ce  que  lee 
'ligne*  se  rencontrent  &u  milieu.  II  a  <U  determine  par  la 
'procedure  "Dragbox".  que  le  nombr*  de  lignee  de  Pediteur 
'dee  ic&nci  doit  ttre  une  valeur  pair*.  Cert  pour  quo  i  cette 
'"action  d  ^change"  march*  toujour* 
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'Quant  ft  I'lditeiir  pattern,  t«  nombre  de  hgnea  correspond 

'toujours  b  tine  valeur  pair®  (16). 

« 

^CletrpUne 

gDrmwraster 

@Draw_edpic 

^Ready 

ENDIF 

IP  X>Cle.b.xg  AND  X<Cle.b.xd  AND  Y>Cle.b  yg  AND  Y<Cle.b.yd 

■ 

'“Clear. Box*  (cn  deuoui  de  "Okay  Box')  a  *14  cliques.  Elf  ace 
'la  fenitre. 

f 

$Buiy 
gfrCLearplane 
0ln  it  array 
^Drawraater 
(B  Ready 
ENDIF 

IF  5e>Can.b.xg  AND  X<Can  b.xd  AND  Y>Can.b.yB  AND  Y-cCan.b  yd 

t 

■"Cancel  Box"  a  4t4  diquic.  Met  en  place  le  flag 
‘d 'interrupt  ion. 

I 

Cancel%=l 

ENDIF 

IF  X>Inv  bxp  AND  Xclnv.bjtd  AND  Y>Inv.b.yg  AND  Ydnvb.yd 
« 

'Cette  function  aussi  n'nt  pu  effective  mm*di  element,  mail 
**u  lament  4  llntdrieur  de  “In  it  array". 

'Pour  tout™  action*  da  fenltre,  lee  different!  points  du 
'content!  de  l'4diteur  doivent  £tre  obtenus  lor*  de 
Ini t array",  Pour  inverter  ct*  points  graphiques, 

'll  iufnt  de  modifier  La  condition  sur  laquelle  rst  bas4e  la 
'decision  du  programme,  si  un  point  eat  positionn*  ou  non. 
'Normalement,  1  est  mis  pour  l 'element  du  tableau  nontenant 
'un  point  notr* 
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'Si  le  point  de  I'iditeur  eat  blanc,  0  e*i  mi*  Si  on  met 
'#lon  1  dan*  le  eas  oti  le  point  eat  blanc  et  0  dan*  le  eu 
’ou  le  point  e*t  noir,  le  content!  de  I'lditeur  est  invent. 

i 

@Buiy 
ItivDag— 1 
<$In  it  array 
^Clcarplane 
{feDrawr  aster 
($Drawedptc 
lnvflag=Q 
<$Re»dy 

ENDIF 

IF  X>B.l.xg  AND  X<B  l.xd  AND  Y>B  l.yg  AND  Y<B  l.yd 

* 

'"Rubber  Box"  (rubb;  angl  :  efTacer,  go  miner)  a  it  A 
'cliqule  En  ce  qui  concern*  le  prtaent  programme,  cette 
'expression  coma  pond  4  tin*  bolt*  dont  le  coin  *uplrieur 
'gauche  «t  fixe  et  le  coin  infiricur  droit  suit  le  curseur 
'de  la  tourit  (i  part  "Ellypt  Rubb"  du  menu  graphs  que) 

'll  eat  done  possible  de  modifier  tinii  la  Uille  de  la 
'fcnltrt.  Dana  le  cu  prlacnt,  la  "Rubber .Box”  ce  trouve  tout 
'en  baa  4  draite 

'En  diquant  le  tableau  "Rubb*  de  I’lditeur.  II  faut 
’appuyer  *ur  la  touch*  de  la  couna,  juaqu'4  ce  que  le 
'meacage  "READY"  *oi|  officJil  dan*  la  fen  it  re  "ORIGINAL" 

'll  apparait  main  tenant  unc  bolt*  "Cheat"  qui  «uit  ie* 
'diplacement*  du  curaeur  de  la  *ouna  jucqu'a  un  certain 
'point.  En  relachant  le  curaeur,  I’cnsemble  de  la  fenttre,  y 
compel*  |«  content!  de  I'iditeur,  eat  detain!  dam  cm 
nouvelle  tail]*.  Pour  avoir  un*  petite  idle  de  tout  ce  que 
'le  programme  dolt  rtaliecr  pendant  le  court  lap*  de  temp*  du 
'detain,  voir  le*  procedure*  "Setplaine",  "Initnrray"  et 
'"Draw  edpic"  11  «*t  vraiment  impreaaionnant  de  voir  4 
'quell*  viteau  I'interprlteur  risliu  cca  travaux  Outre  ion 
con  fort  able  I  an  gage  et  an  import  ante*  poiiibiliUi 
'd*  application,  cela  comtitue  a  an*  doute  un  de* 

'avantagn  le*  plu*  important*  du  BASIC  GfA  par  rapport 
'aux  autre*  interpNteura  BASIC. 
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OBuay 

fain  it  array 
• 

*  Retoume  d'abord  li  content)  de  I'tdittur  ... 

I 

@Rul>berbox.2 

t 

*...  cuiiitt,  fait  determiner  la  taille  d*  I'idlteur  par 
'[’utiiiiiteur  ... 

i 

GET  460,100,620  300, E  dttinfoS 

I 

sAtivegarde  la  fenfire  ** ORIGINAL*... 

t 

$Putflip 

I 

*...  mat  an  place  l'act utile  poge-icran  graph  qua  ... 

* 

PUT  460, 100.E  ditinfot ,3 

r 

I 

re  met  la  fen  it  re  "ORIGINAL1*  a  as  place  ... 

■ 

(9lnitvar.wl 

* 

rest  a  Ur  e  let  donnfea-objeti  ... 

£SSet  plane 
@Drawedpic 

B 

*...  «t  detune  &  nouveau  la  fenfire  de  I  fditeur 

B 

@Ready 

ENDIF 

IF  X>Clo.b.xg  AND  X<Clo  b  xd  AND  Y>Clo.b.yg  AND  Y<Clo.t>.yd 

f 

'Quand  la  "CIom.Bdx*  (tout  an  haul  h  gauche)  a  ftf  eliqufe 

I 

a** 

t 

@Bu»y 

^Initarray 
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Gxg=Ga 

CygsSu 
Gxd— Dr 
Gyd-In 

f 

louvieni-toi  dei  anciennt*  coordonft4c*  de  U 

••Grow.ahrink.box"  ... 

• 

X. *d=INT(l  S0/(co1onn«»/2)) 

Y. ed=INT(lBQ/(ligne»/2)) 

Xg=40 

YB=40 

X=Xg+  X  ed'colonne* 

Y=Yg+Y.cd*lign« 

I 

cakulc  leu  nouvellet  coord  on  nie*  ... 

* 

$G  ro  w  .ehr  in  k .  box|  0 ,  G  xg  ,Gy  g ,  G  x  d ,  Gy  d  ,Xg,  Yg ,  X.  Y ) 

1 

douine  une  "Growbox"  ... 

I 

GET  460l100r620,S00,B.ditinfo$ 

<aP.utflip 

*...  r^affiche  la  page-tcran  actuelle  ... 

PUT  460,100,E.ditinfo*,3 

9tnitvtr.wl 

• 

a.  .rtitBure  lea  donn6ei~objetu  ... 

£Set  plane 
(®Draw.edpic 

4 

et  detain*  6  nouveau  I'tdiUur. 

4 

^Rtady 

END1F 

IF  X>D.b.xg  AND  X<D  b  xd  AND  Y>D.b  yg  AND  Y<D  b.yd 

f 

'La  "Drag.Box"  (drag;  angl.  :  tirer,  trainer)  a  4t4 
'cliqute.  Ce  term*  eat  util  it*  um  eouvent  dans  la 
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'documentation  anglaiae  cur  le  GEM  pour  dierirt  d'une  f»;on 
'ginirale  Ic  diplacement  dti  "  Ghost  icons’*  (image  dc 
'•ptctni). 

'Un  ’Gho»t)conf  eitt  par  exemple,  un  petit  cadre  qui  est 
’dipiati  iur  l'tcran  pour  melt  re  un  fichier  du  desktop  4  la 
’poubelle. 

’Dana  ce  cai,  you*  tvct  eliqut  la  petite  bolte  tout  en  baa  4 
’gauche  du  cadre  de  iWitiur. 

'Laisser  la  touche  de  la  aourie  enfoncie,  juiqu  &  ce  que  le 
’"Ghost i con*  apparaicae.  Ensuite,  vou#  pouvea  diplacer  La 
’aurface  de  I'iditeur  aur  une  autre  position  de  1’icran  en 
laiasant  la  touche  enfoncie.  Lorsque  vouc  rel&ches  la 
’touche,  I'iditeur  eat  4  nouveau  dessini  4  i’endroit  en 
’quest  ion. 

t 

(SBusy 
(ftlnit array 
^DrngwVndow.  1 

GET  460p100J6201S001E.ditmfo| 
gaP.utflip 

PUT  teO.lOO.Editinfof.S 
0lmtvarwl 
^Set  plane 
@Draw.edpic 
@  Ready 
END1F 

Xx=lNT((X-Ga)/large) 

Yy=INT((Y-Su)/haut) 

t 

’Voua  aver  dij4  rencontri  cea  deux  definitions  dca  Indices  de 
Tiditeur,  4  un  autre  endroit,  dans  un  but  ehniLaire  (la 
’definition  d’un  tableau  de  menu). 

’Voua  obtenea  ici  un  das  nombreux  points  de  I'iditeur  aur 
‘kquel  ae  trouve  le  curseur  de  la  aouiia- 

P 

IF  Xx<colonne«  AND  Xx>=0  AND  Yycligne#  AND  Yy>=0 

l 

'S’il  ae  trouve  aur  La  surface  de  I'iditeur  ... 

» 

^Setpoint 
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t 

*..*  va  ft  la  routine  qul  attic  he  [touche  gauche)  ou  qui 
Efface  (touche  droite)  lea  points 

ft 

ENDIF 

EXIT  IF  (X>Ok.b  xg  AND  XcOk.bxd  AND  Y>Ok  b  yg  AND  VcOk.byd) 
OR  C.ancel%=l 

l 

Si  la  "Okay  .Box"  ou  "Cancel. Box"  a  4t#  eliqufte,  quitte  la 
'boucle  et  amt),  I’tditeur.  La  "Oltay.Box"  ae  trouve  tout  an 
’haul  ft  droite  du  cadre  de  fiditsur 

I 

LOOP 

IF  C.ancel%=0 

t 

'Seulemcnt  ai  la  'Okay. Box”  a  414  diquie  ... 


IF  Pal.flag3{  =  Q 

*  GET  Mic.b.xg+3,Mic.b.yg+  S.Micbjtd-SjMicbyd-S.Mcp&rtl 

I 

et  ai  IVditeur  dee  lc6nea  eat  actif,  trammel  I1  image 
'trMe  dam  le  buffer  de  bloc  "Me  parti" . 

i 

ENDIF 

IF  Pat.flag%=  1 

ft 

'Si  I'4ditcur  du  pattern  eat  act  if  ... 

ft 

£»Buay 
@In  it  array 

0  Pat  edit 

« 

remet  le  tableau  dan  a  l*4tat  actuel  et  4crit  lea  don  nice 
r(du  "Patedit")  dana  k  tableau  du  GEM. 

I 

@Rcody 

ENDIF 

ENDIF 

Sortie%=l 


-392  - 


L  a  b  c  du  GfA 


RETURN 

PROCEDURE  Busy 
GB  APRMODE  1 
DEFF1LL  ,0.0 
PBOX  600.288,680.275 
DEFTEXT  1 ,5,0,6 
TEXT  6 1012G71601"BU§  Y1* 

RETURN 

PROCEDURE  Ready 
GRAPHMODE  I 
DEFF1LL  .0,0 
PBOX  500,258,560,275 
DEFTEXT  1 ,5,0.6 
TEXT  610.267.e0,*READY" 

RETURN 

PROCEDURE  Clearplane 
DEFF1LL  ,0 

PBOX  Ga+  l,Su+  l.Dr.in 

PBOX  Micbxg+i.Mic.byg#  l.Mic  b  xd-I.Mic  b.yd-1 
DEFFIEL  .1 

RETURN 

PROCEDURE  Dr&wrutrr 

FOR  J=Ga  TO  Dr  STEP  Large 
LINE  J.Su.J.In 
NEXT  J 

FOR  J=Sw  TO  In  STEP  Haul 
LINE  Ga.J.DrJ 
NEXT  J 
RETURN 

PROCEDURE  Rubbcrbnx.t 

’La  cooperation  entr*  let  troim  routines  crte  tine  "Rubberbox". 

'L*  GEM  permit  &uui  d«  determiner  um  telle  bolte,  malt 
Wriement  twee  un*  taille  maximum.  Pour  le  GEM,  cette  t&ille 
‘correspond  au  bord  de  1’lcrtn  I)  cat,  cepe nd ant,  niceitaira 
‘pout  le  prtsent  programme,  de  pouvoir  definir  la  taille  maximum 
’de  Cette  bo  it  e,  scion  see  propres  bcioins.  Il  a  done  fallu  crier 
’uiie  “Rubber box*. 

t 

DEFTEXT  1,1 .0,6 
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GRAPHMODE  S 
DEFFILL  2  1 
REPEAT 

MOUSE  X,Y,K 

TEXT  X,YtO,"M«ta  an  pi  oca  la  botte  EDIT* 
TEXT  X.Y.orMet*  cn  place  la  bolle  EDIT" 
UNTIL  K=1 
Xg=X 

IF  Xg<ilO+eolami^ 

Xg=  20+  colonnen 

ENDIF 

IF  Xg>440-{2*B  J  6+  E*ceIonn«J 
Xg=440-(2*B  J.S+  5*colonn«a) 

ENDIF 

¥g=Y 

IF  Yg>415-(2*B.1.S*  5*lignea) 
Yg=4I5-(3*B.].5+  5’Iignea) 

ENDIF 
IF  Yg<40 

'  Yg— 40 
ENDIF 

^Wttehbounds 

RETURN 

PROCEDURE  Rubberbox-2 
GRAPHMODE  3 
DEFFILL  ,2,1 
DO 

EXIT  IF  MOUSEk=l 
LOOP 

(»W  atchbounda 
RETURN 

PROCEDURE  Watch  bounds 
DO 

MOUSE  X.Y.K 
IF  X<Xg+5*coIonne* 

X=Xg+  5*  colon  nc* 

ENDIF 

IF  ¥<Yg+Etlign« 

Y=Yg+5*lignes 

ENDIF 
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IF  X>43$ 

X=435 
ENDIF 
IF  Y>30O 
Y-S&O 
ENDIF 

Rubbxg=Xg -B.I.6 
Rubbyg=Yg  B.1.5 
Rubbxd  — X+  (B  l  5  B  l  3)+  1 1 
Rubbyd=Y  -t-(B.LS-B  .1.31  ■*  SO 
PB OX  R ubb xg , Rubbyg  R  u  bb x d  R ubby  d 
BOX  Ru bbxg . Rubbyg  R u b b x d JRubbyd 
P  B  OX  Rubb  Kg  ,R  ubbyg ,  Ft  u  bb*  d  R  ubby  d 
B  OX  Ru  b  bx  g ,  R  ubby  g ,  Rubbxd  .R  u  bb  yd 
EXIT  IF  K=0 
LOOP 

GRAPHMODE  I 
RETURN 

PROCEDURE  Sctplftita 

M 

■ 

'll  t'tgit  ici  d«  la  procedure  diji  mention  nit,  peirnettant  d« 
'dMfintr  tJUtet  lei  particularity*  d*  I'iditeur  Ml  on  let 
'coordonntn  definie*  dans  "Imtvar  wl". 

f 

DLFFILL  .1,1 

PBOX  P1.5  xg.Pl  S  yg.PI  5  xd.PI  5  yd 
BOX  PI  S  xg,Pl  S.yg.Pl  S  xd.Pl.5  yd 
DEFFILL  .2.1 

PBOX  PU.xg.PM-yg.PU  xd.PU-yd 
BOX  Pl.4  xg.Pb4 -yg.PL4.xd.Pl .4 .yd 
DEFFILL  ,2.0 

PBOX  Pi-3  xg.Pl -3.yg.Pl .3 Jtd ,PI .3  yd 
BOX  PI  .3  -Xg,PI -Sy  g  ,P  I  -3.xd  ,Pl  .3  .yd 
DEFFILL  .2,4 

PBOX  PI.2.xg,P1.2.yg,Pl  2  xd.Pb  2  yd 
BOX  P1.2.xg,PI.2.yg,PI.2.xd,PL2.yd 
DEFFILL  ,0.0 

PBOX  PI  I  xg.Pl  l.yg.PL.l  xd.Pl.l.yd 
BOX  PI  I  . xg.PI  l.yg.Pl.I.xd.Pl.l.yd 
@Dr»wmler 
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DEFFILL  .0 
G  wb»giSi=Fw(0) 

PBOX  S-l-b.xgp$Xb.yg,S.l.b.xd,S  l.b  yd 
PBOX  S  r.b  xg.S  r.b.yg.S  r.bxd  S  r  b  yd 
PBOX  S.u.b.xg  S  U  b.yg,S.u_b  xd,S.u  b  yd 
PBOX  S.d.fa.xg,S.d.b.yg,8.d,b.xd,Sdbyd 
PBOX  St-h.X8lSk.b.yglS».b.xd  Sa  b  yd 
PBOX  M.v.bJcgJM.v.b.yg,M-v-b.xd,M.v.b.yd 
PBOX  M,h.b.xg,M.h.b.yglM,h.b,xdJM.h.b.yd 
PBOX  Can.  b.xgtCati.b.yg, Can.  b.xd.Can.  b.yd 
PBOX  C1«.b . xg ,CI« .  b .  yg ,  C1«. b.xd ,C1 « .  b.y  d 
DEFFILL  ,2,7 

BOX  Cle.b  xg*  2,C1c.b  yg+  2,Cla.b  xd -2,CI«.b.yd-2 
LINE  Cle.b.xg+  2,Cle  b  yg+  2,Cle.b  xd  -2,Cle  b  yd  -2 
FILL  Cl«b.xd~4ICte.h.yg+4 
DEFFILL  .0.0 

PBOX  Ifiv-b.xg1lnv.b.ygrlnv.b.xd,lnw.b.yd 
PBOX  Mic.b^(gIMic.b.yglMic.b.xdlMic.b.yd 
BOX  S.l.b.xg,$.lb.yglS.l.b.xd,S.l.byd 
*feOX  S.r.b  xg,S  r.b.yg  S.r.b  xd  S.r  b.yd 
BOX  S  u.b  xg.S.u.b  yg  S  u  b  xd  S  u.b  yd 
BOX  S.d-b,xg>S.d.b.yg,S.d.bJcdlS.d.b.yd 
BOX  M.¥.b-xglM.v.b.yglM.v.h.xd,M,v.b.yd 
BOX  M.h.b.xg.M-h.b.yg.M.h-b.xd.M.h-b-yd 
BOX  C&n.bJcg.Cxn.b.yg.C&n.b.xd.C&n.b.yd 
BOX  Cl' b  xg,Cle.b.yg,C]e.bJtdrGl«  b  yd 
BOX  Inv.b.xg.Jnv  b.yg.Inv  b  xd.Inv.b.yd 
BOX  Inv.b.xg+  3,Inv.b.yg+  3,Inv .b.xd-3,Inv.b.yd-S 
BOX  Inv.b.xg+S.Iny.b.yg+S.Inv.b.xd'i.lriv.b.yd-l 
BOX  SB-b-Xg1§a-b.ygISa.b-xd1Sa.b.yd 
BOX  Mie.b.xg*  l,Mic.b.yg+  l.Mic.b  xd- l.Mic.b. yd  l 
PBOX  Ok  b.xg.Ok.byg.Ok  b  xd, Ok. b.yd 
BOX  Ok.b.xg.Ok.b.ygrOk-b.xd.Ok.b.yd 
DEFFILL  ,2.2 

PBOX  Ok  b.xg+  2JOk.b.yg+  21Ok.b.xd-2,Ok.b.yd  -2 
BOX  Ok.b.xg+  2,Ok.b.yg+2tOk  b  xd  2  Ok  b.yd  2 
PBOX  CIo.b.xg,Clo  b  y g.Clc.b  xd .Clo.b.yd 
BOX  Clo.b.xglClo.b.yg,Cto.b.xd,Clo.b.yd 
PBOX  D.b.xg,D.b.yg]D.b.xd,D.b.yd 
BOX  D.b.xg.D.b.yg.D.b.xd.D.b.yd 
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PBOX  B,1  xg.B  I  yg  B  l.xd.B.l  yd 
BOX  ELI.xg,B.byg,B-l-xd,B.l.yd. 

GRAPHMODE  2 
DEFFILL  .1,1 
DEFTEXT  1,0,0,13 

TEXT  Clo.b.xg'*-  6  ,Clo.b.yd+ 1 .O.CHRJ  ( 2  49) 

DEFTEXT  1,16,0.13 

TEXT  4&0,Mlc.b.yd-f-  20, 100, "ORIGINAL* 

DEFTEXT  1.17.0,13 

TEXT  400,Mic.b.yd+  20,100 ."ORIGINAL* 

DEFTEXT  1,1, 0.4 

TEXT  Can.b,xB+3pCan.b.yd-7,{Can.b.xd-CaJi.b.xg)-5,’,Can* 
TEXT  Sa.bxg+l,Sabyd-4,“Sv* 

DEFTEXT  1,0,0,13 

TEXT  S  Lb.xg+  8,S  Lb.yd  2,0*" 

TEXT  $.r.b.xg+81S,r.b.yd-2.0” 

TEXT  M.v.b.xg+  E,M  v.b  yd-2,0,CHR*(237) 

DEFTEXT  „900, 

TEXT  Iftv.b  xd-6.Iiiv.b.yd -6.0,- 
TEXT  'S.d-b.xd  -2.Sd.byd -7,0."" 

TEXT  S  u  b  xd ^.S  u  b  yd-B.O,"* 

TEXT  M  h.b.xd-3,M  h.b.yd-S.O.ChrSfTa?) 

LINE  B  l.xg,B-byg,B.l.xd,B  l.yd 
LINE  B  l  xd.B  l.ygrB.l.Kg,B .l.yd 
LINE  D.b.xg,D-b.yg+£.D.b.xdFD-byg+  8 
LINE  Dbxg+  01D-b.yg,D.b.xg+8.D.b.yd 
LINE  D.b.xg,D.b.yg+  10.D  b.xd.D  h  yg+  ID 
LINE  Db-xg-t  10,D-b.yg,D.b,xg+ lO.D.b.yd 
GRAPHMODE  I 
DEFTEXT  1 .0.0, IS 
RETURN 

PROCEDURE  Setpoint 


‘lei  font  affichb  ou  effaces  lea  different#  points  de  I’iditeur. 
* 

MOUSE  X.Y.K 
X  indeX%  =  INT({X-Ga)/|arge) 

Y.index%=INT((Y-S«)/haut) 


'Determiner  a  nouveau  lea  point*. 
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IF  Xind«9G<0 

X. index%=0 
ENDIF 

IF  YtndexXcO 

Y. index%=0 
ENDIF 

IF  X.indcx%>celonnes-l 
X  index! =colonn«  - 1 
ENDIF 

IF  Y.index!>li|nti-1 
Y.index%=lignei-1 

ENDIF 

» 

'L«i  quatre  didtrenU  teste  prtctdente  voue  retournent 
T  informal  ion  si  le  eurteur  do  la  souris  H  trouve  en  dehor*  de 

'la  surface  de  dess  in  de  I'lditiur. 

» 

IF  K~1 

* 

I 

*Si  la  touche  gauche  de  la  ■ouri*  a  At  enfencle  ... 
Ruter%(X  indent ,  Y  mdex%)= 1 

I 

met  riUmcnt  de  tableau  en  quest  ion  *wr  I. 

I 

gSet-black 

B 

'Va  4  la  routine  “point  noir*. 

i 

ENDIF 

IF  K=3 

* 

‘S!  la  louche  gauche  a  £14  enfoncie  ... 

4 

Rut er%( X  i  n  dex9G , Y  .1  nd ex%  ) =0 

t 

'met  Filament  *ur  0  ... 

> 

<2  Set.  white 
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» 

ct  v&  4  la  routine  "point  blanc", 

I 

endif 

RETURN 

PROCEDURE  Set  white 
* 

’lei,  let  point*  blanct  (eftaclt)  tout  afTichfi.  Le  nom 
"■Mic.b"  tignifi*  d'aillturt  "Micro .Box".  II  a'sgit  de  In 
'petite  lurfaci  de  la  fenitrv  "ORIGINAL"  qui  contimt  I ’image 

’crMe  dan*  m  taille  riellc. 

» 

DEFFILL  ,0,0 
(SContour(O) 

PBOX  Ga+3+{(Xx)*large)  ,Su+2+  ((Yy}*haut).Gn+  large* 

2+  ((Xx)  *large)  ,Su+ hau  t  -2+  ((Yy)*haut) 

PBOX  Mic.b.xg+ S+Xx,Mic  b.yg+  3+  Yy,Mie.b.Xg+  S+Xx  Mic.b  yg+  3+  Yy 
@  Contour  (1) 

RETURN* 

PROCEDURE  Set  .black 

t 

'Let  point*  noire  (potitionrkt). 

i 

DEFFILL  ,2,8 

PBOX  Ga+2+((Xx)*larg#)JSu+2+((Yy)*haul)1Ga+ large- 

24  ( (Xx}*  large)  ,Su+ haul  2+  [(Yy)*haut) 

PBOX  Mie.b  xg+S+  XxMic  b-yi+S+Yy.Mic  b  xg43+XictMic.b  yg+  3+ Yy 
RETURN 

PROCEDURE  Draw.edpic 

* 

'La  routine  permett&nt  de  detainer  le  eontenu  de  l'£diteur. 

» 

DEFFILL  ,1,1 

'Met  le  motif  de  rcmpUuage  eur  noir 
FOR  L.igne=0  TO  lignce-1 

f 

’Parc ours  une  ligne  aprit  1' autre. 


-  399  - 


Le  livre  du  BASIC  G/A 


1 

FOE  C.olann*=0  TO  eolonikei-l 

I 

*Et  iur  cheque  ligne,  cheque  point  different. 

i 

IF  Ruter%(C.oVonne,L.ign«}^l 

I 

'Si  rtliminl  du  tableau  correspondent  au  point  en  question 
'eat  k  1  (posit  ionn£s)  ... 

i 

IF  M.v.flag^l 

I 

*...  destine  ei  I’effct  rmroir  vertical  a  iU 

'louh&iU 

» 

PBOX  Ga+  34  (((colonnes-l)- 

C  .olonne)  *large}(Su+  2+  (L  igne*haut),Ga+  large-2*  ({{coloftne*-l)- 
C  oloxme)  •]  nr  ge)  ,Su  ♦  haul  -2  +•  {  L.  if  ns*  haul  J 

PBOX  Mic.b,xg+3+{(colonne*-l)- 
C  olonne) ,Mic  by  g+  3+  L  ignc  Mic  b  xg 3+  ( (colonneft- 1 )- 
C  .olonne)  JMicbyg*  3+  L.ignt 

I 

lea  different*  points  en  part  ant  de  la  droite  vers 

’la  gauche  ... 

» 

ELSE 

> 

ou  si  I'effel-miroir  n'ett  pu  louhtill  ... 

t 

PBOX  Ga+2+  (C.  olonne*  large)  ,Su+  2-1-  ( L  igne* haul), Ga+ large - 
2 + (C.  olonne*  large}  ,Su+- h  nut  -2+  ( L-igne*haut) 

PBOX 

M ic.bxg-*- 3+  C. olonne .Mic.b-yg*  3+  L  igne,Mic.b  xg+ $+  Cdonne.M 
ic.b  yg+  3+L.igne 

4 

en  part  ant  de  la  gauche  vers  la  droite 

ENDIF 

ENDIF 

NEXT  C. olonne 
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NEXT  L.lgne 
RETURN 

PROCEDURE  lmtarray 

i 

’|ci,  )«  tableau  prftvu  pour  It  content!  d«  1  ftditcur  eat  difiRi. 


IF  Invflag=l 
* 

*Si  la  "Invew.Box*  (i  drolfce  de  la  "Clote  Box")  a 

'cliqute  ... 

* 

Sctflag^O 

I 

'  ...  m  tient  Cample  que  des  points  b lanes  (point*  de 

Tftditeur  sans  contenu). 

* 

ELSE 

Setflag=l 

i  * 

’St  cela  n’tit  pnj  It  cm,  tient  compte  d«  points  noire. 

I 

END  IF 

FOR  L.igne-0  TO  lignet-1 

i 

'Parccur*  t  nouveau  chaque  tigne  ... 

I 

FOR  C.olonne-Q  TO  colonne*  l 
« 

et  sur  chaque  ligfte,  chaque  point. 

I 

IF  Point((C.olonne*large)+-  Ga+  (large/?  },(L  gnc*haut) *■  Su+ (haut 
/2))=Setflag 

ft 

'St  te  point  correspond  au  flag  dftcrit  plus  haul  (l  ou  0) 


R&ster%(C  olonnefL  ign«)=l 

t 

met  l  i\€ men t  du  tableau  &  1. 
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i 

ELSE 

Raater%{C.olonnc,L  ignc)=0 

f 

’Si  Le  point  it*  correspond  pu  &u  flag  met  1'iUment  &  0. 

1 

ENDIF 

NEXT  C  olonne 
NEXT  L.igne 


3.2.25  Quatrifeme  par  lie  graphique 


POINT 

Syntaxe  : 

POINT(Px,Py) 

* 

Encore  une  autre  fonction  du  BASIC.  En  mode  HIRES,  la  fonction 
POINT  permet  tie  savoir  si  un  certain  point  de  Pecran  est  blanc  on 
noir.  11  faut  alors  indiquer  entre  parentheses,  les  coordonnees  X/Y 
de  la  position  du  point  en  question.  Si  ce  point  est  allurne,  POINT 
retourne  la  valeur  I.  S'il  est  etemt.  0  est  retourng.  Pour  les 
modes  MIDRES  et  LOWRES,  la  fonction  POINT  retourne  la  valeur 
de  la  couteur  du  point  en  question  (LOWRES=16  couleurs  0-15  / 
M1DRES-4  couleurs  0-3). 

Exempt  e : 


DEFFILL  1,2,1 
FOE  1=1  TO  400 
X=RANDOM(10O) 
Y=RANDOM{JOO) 

PBOX  X,Y,Xf  S.Y+E 
NEXT  I 

FOR  1-0  TO  99 
FOE  J=0  TO  99 
IF  POINT(JJI)=l 

s' 
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PLOT 
Syntaxe : 

PLOT  X,Y 

L'instruction  PLOT  permet  de  placer  des  points  sur  I'ecran.  Leurs 
positions  soul  indiquees  par  des  coordonnees  X/Y.  L’instruction 
PLOT  ft’est  pas  affectee  par  la  definition  de  la  largeur  du  trait,  & 
F  exception  d’arrondir  le  debut  et  la  fin  des  lignes.  En  principe, 
on  seul  pixel  est  affiehe.  La  definition  de  la  couleur  grace  a 
Pinsi ruction  COLOR  a,  cependant,  aussi  un  effet  sur  PLOT. 

Excmple : 


DEFFILL  ,3,4 

PBOX  0,0.639,309 

FOR  1=0  TO  1000 

A=RANDOM(20) 

B= RANDOM  (4)  -1 

C=RANDOM{3)-l 

RAN  DOM  (640) 

Y=RANDOM(400) 

DEFL1NE  Ji,BtB 

COLOR  C 

PLOT  X.Y 

NEXT  ! 

U-INP(2) 

EDIT 
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DRAW  TO  TO 
Syntaxe : 

DRAW  [TOJ  X.Y 

DRAW  X0,Y0  To  XI  ,YI  [TO  X2tY2  TO  X3,Y3  TO  ...| 

L’inst  ruction  graph ique  DRAW  sans  Pargument  TO  est  idem  iq  ye  a 
1*  instruct  ion  PLOT.  Une  paire  de  coordonnees  indique  ta  position  du 
point. 

L'instruction  DRAW  TO  trace  une  ligne  a  partir  du  dernier  point 
affiche,  grace  a  DRAW,  LINE  ou  PLOT. 
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Si  DRAW  TO  est  utilise  sans  qu’une  des  instructions  precedents 
ne  marque  un  point  final,  la  ligne  est  traces  a  partir  de  Forigine 
des  axes  (coin  superieur  gauche  de  Fdcran)  jusqufau  point  indiquc 
par  DRAW  TO.  L’argumeni  TO  permet  egafement  de  relier  dans 
Fordre  des  paires  de  coordonnees  par  des  droites. 

Exemple  I  : 


DRAW  100.100 

DRAW  TO  110.100  TO  110,110  TO  100,110  TO  100.100 


Exemple  2  : 

Pour  ne  pas  <Hre  obligd  d’entrer  a  chaque  fois  les  differentes  co- 
ordonnees  des  points,  vous  trouverez  ci-apres  un  petit  programme 
auxihaire,  A  pres  Favoir  lance,  vous  pouvez  affichcr  differents 
points  a  Faide  de  la  touche  gauche  de  la  souris. 

Les  dimensions  de  deux  tableaux  ont  ete  definies  pour  rcpresenter 
les  coordonnees  X/Y  du  point  en  question.  Chacun  des  deux  tableaux 
contient  1000  elements.  Vous  pouvez  done  afficher  au  maximum  1000 
points  differents.  Si  ce  nombre  de  points  est  atteint  ou  si  vous 
appuyez  sur  la  touche  droite  de  la  souris,  les  deux  tableaux  sont 
sauvegardes  sur  disquetle  sous  le  nom  "Draw.Lst"  et  sous  forme  de 
lignes  DATA.  Le  premier  programme  est  maintenant  termind, 
Chargez  grace  a  MERGE  le  fichier  DATA  en  memoire  prtncipale  et 
lancez  ensuite  le  deuxieme  programme.  Vous  verrez  que  votre  dess  in 
est  a  nouveau  affiche  sur  Fccran  grace  aux  lignes  DATA  et  a 
Finstruction  DRAW'. 

Programme  1  : 


DIM  Px(  1000)  ,Py (1000) 
DO 

MOUSE  X.Y.K 
IF  K-l 
PAUSE  1 
PLOT  X.Y 
INC  Count 
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Px(  Count  )=X 
Py(Count)=Y 
ENDIF 

EXIT  IF  K=2  OE  Counts  1000 
LOOP 

OPEN  * O* ,  #  1  ,*DAA W .  LST” 

FEINT  #l;"D.ra»koo#  "'CHEf(ISj 
FOE  J“1  TO  100 
PRINT  #l;~DaU  •; 

FOE  1=1  TO  10 
INC  Cl 

PRINT  #i  ;STRf  (Px{G0);  V;STRt(Py(Cl)); 
IF  I<10 
PRINT  #1;V; 

ENDIF 
NEXT  I 

PRINT  #l;CHRi(I3) 

NEXT  J 

PRINT  #t;"D»t»  -;STRI(1U1) 

-CLOSE  #1 

EDIT  _  _ 


Programme  2  : 


DIM  Px{l000)  ,Py (1000) 

DEFFiLL,3,4 

RESTORE  D.ran»koo« 

READ  Px{l)py(l) 

PLOT  Px(l),Py(l) 

FOR  1=3  TO  1000 

READ  Px(I),Py(I) 

DRAW  TO  Px(I).Py(J) 

EXIT  IF  Px(I)=llU 

NEXT  I 

U=INP(2) 

EDIT 
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Remplacez  la  lignc  comenant  1' instruction  DRAW  par 

I  PBOX  PxfI),PyqitPx[Ii»  MJWIU1 fl  _ 

el  vous  obtenez  tom  de  suite  un  nouveS  effet. 


RETURN 

PROCEDURE  Dragwindcwl 

dragbox 

Xg=Dx+B  1.2+ 11 
Y  g=  Dy  -Draghout  -B.1.3~ll 
X=Dx+lDraglarge+B-l.$+ 11 
Y=Dy 
RETURN 

PROCEDURE  E.dragbox 
D  EPF  ILL  ,2,1 
GRAPHMODE  3 
Dragiarge=Dr-G& 

Dr  a  ghaut =ln  -S  u 
REPEAT 
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MOOSE  Dx.Dy.Dk 
IF  Dxt-  Drag] orge >383 
Dx— 383  -Drag)  arge 
ENDIF 

IF  Dy  -  Dr  aghaut  < = 70 
Dy-70+  Draghaul 
ENDIF 
IF  Dx<=20 
Dx-20 
ENDIF 
IF  Dy>3flO 
Dy— 380 
ENDIF 

Chostxg=Dx-B.l  3/2 
C hostyg— Dy  D raghaut - 2  * B  1.2  B  1.3 
Gho»txd=Dx4  Draglarge4  2*B  I.2+  B-13 
Ghoatyd=Dy+2*B  I.2-*  |d 
PBOX  G  hot  txg  G  host  yg,  Ghost  xd ,  G  hotly  d 
BOX  GhoBixg.Ghoityg.Chostxd.G hotly d 
'  FBOX  G  hostxg  G  hotly g  rG  hostxd  ,C  host  yd 
BOX  Ghottxg, G  hotly  g.Ghostxd.Ghostyd 
UNTIL  Dk=0 
GRAPHMODE  I 
RETURN 

PROCEDURE  Patedit 

'Celle  procedure  per  met  d’attribuer  le  motif  de  remp!  hinge  aiix 
’tableaux  du  GEM  cn  question 

Nous  n'abordcrons  pat  iei  tee  details  sue  Is  fa^on  dont  cel  a  tit 

effect ue  Des  renseignements  plus  explicitci  concemant  le  GEM 

'seronl  donnes  sprh  )e  listing  luivsnt. 

• 

ERASE  Patword^Q 
DIM  Patword%[13) 

DPOKE  Contrl4  2  0 
DPOKE  Contrl+6  16 
DPOKE  Contrl+  12.2 
FOR  J=0  TO  IS 
FOR  1=0  TO  IS 
IF  Raster^ 
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ADD  Patword9$(J),2*{lE-I) 

ENDIF 
NEXT  I 

DPOKE  Intin+ J  a2,Patword%(J) 

NEXT  J 
VDISYS  1M 
RETURN 

PROCEDURE  Initvar.wl 

» 

'La  lilt*  del  objets.  L’ alpha  et  I'onwga  de  la  progr&mmation 
'd'objeta. 


Les  noms  cTobjet  ont  la  signification  suivante : 


Ca 

Su 

Large 

Haut 

Dr 

In 

Xg-2 

Yg.2 

X. 2 

Y. 2 

B  l  I 


=  “Gauche4*;  le  Lord  gauche  du  tableau  de  J'Aditeur 
“Sup*neur"  ;  U  bord  iup4neur  du  tableau  de 
1'tditeur 

=  La  largeur  den  different!  points  de  l'4diteur 
diulte  de  la  largeur  de  la  bolt*  da  definition 
divide  par  le  n ombre  dee  colonnes  du  bloc. 

—  Lb  hauteur  de*  different!  points  dc  1’editeur 
riiuLte  de  la  hauteur  de  la  bolte  de  definition 
divide  par  tc  nombre  de  lignci  du  bloc. 

"Droite";  le  bord  droit  du  tableau  de  l*£diteur 
rtsulle  de  "Gi"  +  "Large"  *  nombre  de 
colon nea  “Inferieures";  le  bord  inftrieur  du 

'  tableau  de  Piditeur  result e  de  “Su"  +  “Haul*  * 
nombre  de  I  ignis 

Les  coordonnies  de  la  bolte  de  definition  sort 

—  sauvegardiis  pour  elre  utilises  lori  d’un  prochain 
appe). 


"Bord.  largeur,  I* 
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BI.2 

B.1.3 

Le*  variable*  "B.l."  repr**entent  la  large ur 
de*  bo  rdf  different*  entourant  le  tableau  dt 
l‘4diteur  Par  txtmpl*,  le 

B.L4 

contour  blanc  du  tableau 

«t  "BXI*  etc. 

B.1.6 

Clo.b 

D.b 

R.b 

Ok.b 

Sub 

=  "Cloee  Box';  la  boKe  *up4(ieure  gauche 

—  *Dr*g-Box“;  la  bolte  inftrieure  gauche 
=  "Rubber. Bax*;  la  bolte  infhieure  droite 
=  "Okay, Bax*;  la  bolte  «up4rieur*  droite 
=  "Scroll  Up  Box";  la  bolle  au-daaoua  i  gauche  d« 
•CloV 

S  d.b 

=  "Scroll. Oown.Box";  la  bolte  »u-de*iu*  4  gauche  d« 
"D.b" 

Mhb 

rs  "Mirrar.IIorlBontal.Box";  la  bolte  au  milieu  A 

S.l.b 

S.r.b 
*  Mic  b 

gauche 

s  “Scroll  .Left  Box";  la  bolte  &  droite  de  "D.b" 

=  “Scroll. Right. Box";  la  bolte  &  gauche  de  “R  b* 

=  “Micro -Box";  la  petite  boite  t  I'inWrieur  de  la 

f entire  ORIGINAL 

M.v.b 

=  "Mirror -Vertical. Box";  la  bolte  au  milieu  4 

droite 

Ck.b 

Sab 

Can  b 

Inv.b 

—  "Clear. Box";  la  bolte  au-deuoua  a  droite  de  "Ok.b* 

=r  "Save. Box";  la  bolte  au 'dnsui  t  droite  de  "R.b* 

=  “Cancel .Box";  la  bolte  a  gauche  de  “Ok.b" 

~  "Inver*. Bold’;  la  bolt*  4  droite  de  "Clo.b" 

PI.  I 

Pit 

m  "Plain-1* 

Lee  variable*  "Plain"  reprfaentent  la 
coordonntea 

PI  .3 

PU 

PI  5 

de  different**  grande*  ■  irfaces  constituent 
dan*  I’enaemble,  le  fond  de  1’iditeur.  “Pl.S"  eit 
la  plua  grande  surface.  Bile  eat  1 'ombre  a 
droite  et  au-deancua  de  "PM". 

G*=Xg 

Su=Vg 

D-iverr=l 
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OS  ERROR  GQSUB  Div.ctro 
Larg*=INT(  [  [X-B  1.2- 1 1)  -Xg)  /colotmt*) 
Haut=lNT({(y-B.1.2  II)  Yg)/lign«) 

ON  ERROR 

Dr=Large'colofme«+Ca 

lft-  Haut"lgne«+  Su 

Xg.2=Xg 

Yg2=Yg 

X.2=X 

y.j=y 

B. 1.1=10 
B  L2=Bl.l+6 
B  1.3  =  812+23 
B1.4— BI.3+6 
B.15=Bl.4r4 
Clo  b  xg=Ga-B  1.3+3 
Clo.b.yg^Su  ■  B-l  .3+  3 
Clo.b.xd  — Ga-B  1.2-3 
Clo.b.yd=Su-B1.2-3 

B .  b  .xg^  C  lo  b  xg 
D.b.yg=ln+  Bl.2+3 
D  b.xd=CLo  b.xd 
D  b  yd=in+  B.t.3-3 
B  I  xg=Dr+Bl  2+3 
B  l  yg=D.b.yg 
B.l.xd=Dr+  B. 1.3-3 
Bl.yd=D.b.yd 
Ok  b.xg=Bl  xg 
Okb.yg=Clo.b.yg 
Ok-b.xd=Bl.xd 
Okbyd=Clobyd 
S  u  b  xg— Clo  b  xg 
S-U.b.yg=Clo.b.yd+3 
S. u. b.xd = Clo  .bjcd 
S  u  b.yd~S  u  b  yg+  21 
S  -d  -b.xg= S  u .  b  xg 
S.d  b  yg=D  b  yg  24 
S -d-b. xd - S  u .b.xd 
S  d  b  yd=S  d.b  yg+  21 
M  h.b.xg— Clo.b.xg 
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M  h  b.yg=Sti+  ({In-Su)/3)  -8 
M  .h  .b.xd  — Clo  b .xd 

M-h-b-yd=M.h.b.yg+ 16 

5.1. b.xg=;D.bxd+  3 

5.1. b.yg~D.b.yg 

S.l  b.xd— S  .l.b  xg+  33 

5.1. b.yd=D.b.yd 
S.r.b  xg=B  Lxg-25 
S.r.b.yg=B.l.yg 

S  r.b  xd=S.r  b  xg+  23 

S  r.b  yd=B  I  yd 

Mic  -b  xg— E40-  (colon  no  /  2)  -2 

Mic.b.yg=l7Q-(ligne»/2)-2 

Mic,b.xd“Mic  b  xg+  colonnm+5 

Mie.b  yd-Mic  b  yg4-  ligne*+  6 

M  v.b.xg=B  l  xg 

M.v.b  yg=M  h . b . y  g 

M.v.b  xd-B  I  xd 

M  .v.b.yd=M.h  .b.yd 

M 

Cli  b  xg=B  !  xg 
Cle  b.yg=S ,  u  b  yg 
Clc  b-Xd— B  l.xd 
Cle  b.yd— S.u.b.yd 
Sub  .xg— Cl*  b  xg 
Ss.  b  yg^Sd  b  yg 
Sa  b  xd~Cle  h  xd 
Sa.b.yd— S.d .  b.yd 
Can .  b .  x  g~  S .  r  b  xg 
Can  -b  .y  g=  Ok  .b  .y  g 
Can.b  xd=S  r.b.xd 
Can.b  yd=Ok.b  yd 
Inv.b  xg=S.|.b.xg 
Inv.b.yg-Ok  .b.yg 
In v . b  xd— S . I  b.xd 
Inv .  b.yd = 0  k  -b  .yd 
PH  xg-Ga  B4.1 
Pl.lyg^Su-B.U 
Pl.l.xd=Dr+B).l 
Pl.l  yd=In+B  l.l 
PL2  xg=G*-BU 
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Pl.2.yg=Su-B  X2 

Pl2xd-Dr+BLI 

Pl2.yd=In+B.1.2 

P[3xg=G*-B.I3 

Pl.3.yg=Su'BJ.3 

Pl3xd=Dr+B.L3 

Pl.3yd=In+B.!3 

Pl4.xg=GaBl.4 

PU.yg=Su-B.l.4 

PI.4xd=Dr+  B.1.4 

PU.yd=In*B.U 

PI. 5-xg=Ga-8. 1.4-1 

Pl.5.yg=Su-B.l.4-l 

Pl.6.xd=Dr+  B.LS 

PI  S.yd=In+B  1.6 

RETURN 

PROCEDURE  Cinema. 

# 

'U  sou*  ^programme  KINO 

'Seulti  quelques  parties  cle  ce  programme  son!  cxphqu&u  car 
'nous  pensoni  quc  vous  comp  rend  res  la  p]  up  art  du  programme  tout 
’seul.  apres  avoir  «udi4  les  pr4c4d  elites  explications  concern  ant 
'd'autres  parties  da  programmes. 

4 

Bigloop: 

COLOR  1 
OFFLINE  0,1 ,0.0 
CRAPHMODE  1 
K  in  to  p  p  q  u  i  t  % — 0 
DO 

ALERT  VChargcr  le  film,  dm  smer  [ou  retour  ?  ".0," 

CHARGER  IDESSINERI  RETOUR  '.Back  alert  % 

IF  Back. alert  % =1 
{^P _ i  c  Load 

IF  Select ed$<>*\*  AND  Selected*  O-.FLM"  AND  Selected*:*- 
@Showpici 

ENDIF 

END1F 

IF  Bftck  alert9S— 2 
0G«tpidhiti 
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(3  Get _ pics 

ir  L.omdfl«f%=l 
L.oaddiig%=0 
GOTO  Btgloop 
END  IF 

IF  Kintopp.quit%=  1 
GOTO  K.intDppqiiit 
ENDIF 

IF  Trommel  fl*g%=l 
Counter^— 0 
$G.ettinny 
(J&Showpicj 

GOTO  K/mtoppquit 
ENDIF 
&Showpica 
ENDIF 

IF  B«-k.alert%=3 

#  Kintopp-quii  %—  I 

ENDIF 

K.intoppquit: 

EXIT  IF  Kint opp.<juit5&— 1 
LOOP 

ERASE  P_ieyi() 

F_icacroll$=“* 

(dSet.per** 

RETURN 

PROCEDURE  Gctpicinits 
DEFFILL  .3,6 
PBOX  2,2,637.397 
DEFFILL  .0,0 
PBOX  96,51,644.83 
DEFTEXT  1.16,0,26 

TEXT  100,80,440*  CINEMA* 
DEFFILL  ,2,2 
FILL  320.53 

ALERT  1, "Determiner  enauit*  la  taitlcfde  la  fenttra 
]entr4ea/eorttee  1M.*  OKAY  \Bbbbb 
GRAPHMODE  3 
DEFTEXT  1, 1,0,6 
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REPEAT 

MOUSE  ScrJ(l%lSer_upnKPButlon9S 
IF  Ser_upn96<6E 
Scr^upn%~65 
ENDIF 

IF  Scr_upn%>860 
Scr_upnS6=S60 
ENDIF 

TEXT  Scr_!ft%.Scr_«pn%,-SET  WINDOW* 

TEXT  Scr_lft%fScr  upn%,-SET  WINDOW* 

UNTIL  MOUSEK 
REPEAT 

MOUSE  Scr_igtK,Scrjdwn%lBtitten% 

IF  Scr_rgt%<Scr_lft%+  10 
Ser_nt96=Scr_lfl%+ 10 
ENDIF 

IF  Scrctwn%<Scr_upn%+ 10 
Scr— dwnK=Scr_upnK+ 10 
ENDIF 

IF  Scr_dwn%>380 
Scr_dwn%=3SO 
ENDIF 

BOX  ScrJtfl%(Scr_upn9E1Scr_rg|%1Scr_dwfi% 

B  OX  Scrlft  %aScr_u.pn96  .Scr _ rgt  %,Scr_d . wti$S 

UNTIL  Bulton%-0 
GRAPHMODE  I 

G  ET  9c  r I  ft  % ,  Scr  upn?S ,  Set rgt%  ,5c  r dwn% ,  0  u  irony  I 


Une  fois  la  taille  do  I'ecran  definie,  il  fatit  determiner  combi  en 
de  place  memoire  est  occupee  par  chaque  image  en  format  de  bloc 
GET.  Pour  cela*  la  partie  defime  est  placee  une  fois  dans  une 
chaine  de  caracteres  GET.  Toutes  les  autres  images,  qui  se  trouvent 
d'ailleurs  sur  la  mfeme  position,  occupent  exactement  le  mdme  volume 
de  place-me moire.  Si,  seule  la  position  etait  modifies,  laissant  la 
largeur  et  la  hauteur  de  la  partie  (en  pixels)  inchangees,  la  place 
memoire  necessaire  serait  egalement  modifiee.  Ceci  car  les  opera¬ 
tions  de  quadrillage  GET  ne  sont  prevues  qoe  pour  des  mots  emiers. 
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11  en  resulte  que,  mfime  si  vous  etes  I ibre  de  cholsir  la  laille  de 
la  partie,  le  dernier  octet  {&  gauche)  du  mot  contenant  le  debut  de 
la  partie  est  consider^  com  me  le  debut.  11  en  est  de  mfime  pour  le 
bord  droit  de  la  partie.  Ici,  ie  premier  octet  (a  droite)  du  mot 
situe  au  bord  de  la  partie  choisie,  est  considere  comme  la  tin. 

Mais  vous  ne  devriez  pas  trop  vous  preoceupez  de  ce  procfide  assez 
compliquc,  En  tant  qu’utilisaieur  de  GET  et  de  PUT,  vous  ne  serez 
pas  charges  de  ce  probleme  en  BASIC  Gf  A,  Nous  voulions  simplement 
expliquer  pourquoi  une  partie,  dont  la  taille  reste  inchangee,  pent 
occuper  des  volumes  de  place-memoire  differents,  en  modinant  sa 
position  sur  fecran. 


S  c  r^h*  i% =Scr_jdwn  %-B  cr_upn  % 

Scrwi  d%=Ser_rgt  % -Sc 
P  JopweSt = LBN  (Du  mroyt) 

i 

'La  longutur  dc  la  chatnc  GET  eat  la  place-memoir*  en  octet# 

‘occuple  per  une  image. 

« 

Max_pice%=INT[  [Dia(O)’ 10000  PJcipac*%)/P_fc»pace56) 


'll  n  eat  ividemment  pas  possible  de  diftnir  linuittantment  un 
'nombre  quelconquc  d*  images  11  faut  d  abort!  a  avoir  quelle 
'place  m£mo ire  est  actuellement  diapo ruble  en  memoir* 
principals!"  Dm(0)").  Pour  des  raisons  de  sicurili,  10000 
'octets  et  une  foil  le  Volume  de  la  partie  son!  reserves  Le 
’reel ant  est  divist  par  la  place-memoire  n£ce«saire  pour  cheque 
'image.  Noua  oh  tenons  done  le  nombre  maximum  des  images 
'nimul  tenement  dhpomblc* 

I 

(SSet.pics 

’Cnsuite,  vous  pouve*  diterminer  le  nombre  d1  images  souhaiU  ... 


GEAPHMODE  I 
ERASE  F_icyt() 

DIM  P_iey$(P_tcys9t+ 1) 

f 

*...  ct  un  tublftftu  d«  chftlntt  pttm  pour  lu  difTtrcntcs 
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'images 


P^iescrol  1 1="  * 

RETURN 

PROCEDURE  Set. pics 
GRAPHMODE  I 
DEFF1LL  .0,0 
PBOX  100,130,440,260 
BOX  201.121.480,259 
BOX  205.125.435,256 
DEFTEXT  1.16,0,13 
TEXT  2 15,150, -Nombre  d' image*  - 
DEFF1LL  .2.4 
PBOX  320,100,420,200 
DEFFILL  ,0,0 
PBOX  225,165,415,105 
BOX  227,167,413,193 
BOX  283.220,360.245 
BOX  283,221,359.244 
BOX  285,223,357,242 
R.it*d«e3fi=3 

pDr&gbox  ( 1 .229  169. 1.22,229,169, 182,22) 

RETURN 
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4IS 
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PROCEDURE  G«*t_picj 

i 

JNou*  nouj  rctrouvonB  munlvnint,  pour  ainii  dir*,  dftnt  It 
’■itudio  it  dan*  I'nttlttr  dc  montage’1,  lei,  lee  different** 

'image*  iont  duitnta*  et  idit4«*  de  ptuaieur*  fa;oiw. 

i 

S.til%=2 
P.&tt9£~6 
R»yon%sl 
DEFL1NE  0,1 ,0,0 

CLS 

DEFFILL  ,3,6 
PBOX  3,3,633,397 
DEFFILL  ,0.0 
PBOX  3,8,300,66 
BOX  3,8,198,64 
DEFFILL  ,3,6 
PBOX  210,8,630,66 
DEFFILL  ,0,0 
PBOX  213,11,637,63 
PBOX  2,0,637,8 
DEFTEXT  1,1, 0,6 
RESTORE  Menutext 
FOR  1=0  TO  7 

BOX  216*  51*1,14, 267-*  51*1,50 
READ  Me  rnj.lt 
READ  M  enu  21 
TEXT  220+  52*1 ,30,M .enu.lt 
TEXT  220+  52*1, 41^4. enu.ft 
NEXT  I 

DEFTEXT  1,1, 0,4 

TEXT  3 ,6  "touche  dr=  -I-  /deux  touch e*=  -  /touche  g»=con*t. /touche* 
dtp! = S  c  rol  I  ing  /  HELP  Hafficb-  le  dernier  tableau  MO  VE/COPY /SELF" 

F  BOX  Ser  if -2, Sc r_u pn % -2,Scr_rgt%+  4,Scr-_dwn% + 4 
PBOX  Scr  Jft% -2 , Ser _upn % -2 ,Scr_rgt%+  2,Scr_dwn%+  2 
DEFFILL  .2,8 
Notnb  red  ’  iroage*=0 

PRINT  AT(2(2);"IMAGE  N  *.:  RESTANT." 

FOR  Counter%=0  TO  PJcytX-1 

J 
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'Cette  bouclt  »n  parcourue  auta.nl  de  foil  qu’il  y  d'imagei 
'ou,  jUBqU’i  c*  qu’une  function  d ’interrupt ion  aoit  appelte. 

I 

INC  Nombre _ d 'image* 

PRINT  AT(2,3);Counter%+i 
PRINT  AT{  17, 8)  ;P_iey  ■  ?6  -  Counted  - 1* 

Diuincr: 

GRAPHMODE  3 
DEPFILL  ,2.1 

g6C_li  pprec2(0,S  cr_]  ft%  ,Scr^_upn96  ,Scr_rgt  % ,  Scr  _d  wn  5G  ) 

i 

‘Le  "Clipping  Rectangle"  eat  ad&ptl  au  format  de  I'image  mail 
'n'eat  p&i  encore  activi. 

i 

REPEAT 

IP 

’Le  programme  attend  tel  juiqu't  ce  qu'une  touche  de  la 
’eourie  ou  du  clavier  aoit  enfonc*e. 

I 

#  MOUSE  X,Y.Button% 

PCIRCLE  X1Y,Raj,cn9& 

PCIRCLE  X.YrRayon?6 
K«yt=!NKEY* 

K«y%-ASC(LEFTl(K*yJ))  + ASC(RIGHTl(Keyf)) 

IF  K«y%>58  OR  Key  %  <67 
Hitk«y%=  1 
ENDIF 

UNTIL  MOUSEK  OR  Hitkey%=l 
DEFFILL  ,S.tilX,P.BttK 

@C_|  i  pprec  2  ( I  ,Scjr_lft  96,Scr_upn% ,  S  c  r_rgt  %  ,Scr_d  wn  %  ] 

t 

’"Clipping  Rectangle'*  eat  active 

GRAPHMODE  1 
MOUSE  X.Y.Buttonft 
IF  Hitkey%=0 
K«yt=INKEY$ 

Key%=ASC(LEFTI(K*y$))+ASCfRIGlfTt(Key$}) 

ENDIF 
Hitkeyft— 0 
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XpoiK=INT((X-216)/S  i) + 1 

Ypo*S6=INT{(Y-H)/se)+  1 

$ 

'U  definition  dee  Indices  du  tableaux  de  menu  que  voui 
conneiteet  dijA 

t 

IP  K*y%=50  OR  (Xpoi%=l  AND  Ypot%=l  AND  Button%=I) 

t 

'Si  <.FI>  eat  enfonc£e  ou  si  1c  premier  tableau  du  menu  eat 
’clique,  passe  h  la  couleur  noire. 

f 

(SContoutfl) 

T-ypeK— 2 
P,att%=8 
DEFFILL  .2,8 
GOTO  Detainer 
ENDIF 

IF  Key96=60  OR  (Xpo>%=2  AND  Ype*$6=l  AND  8uttonK=l> 

i 

'<F2>  ou  deuxitme  tableau  du  menu  —  couleur  blanche. 

« 

(^Contour  [Q) 

T.ype%=0 
P.*tt%=0 
DEFFILL  ,0,0 
GOTO  Detainer 
ENDIF 

IF  K«yfc=fll  OR  (Xpo.5fi=S  AND  Ypo»%=i  AND  Button%=l) 

f 

!<F3>  on  troisi^me  tableau  du  menu  =  "prend*  um  photo"  de 

'('image  actuelte. 

» 

G  ET  Scr _ l  ft  %  ,S  cr_upn  %  ,S  cr  __r  gt  % ,  Scrdwn/t ,  P_i  c  yt  (Conn  t  er  56) 

PAUSE  10 
GOTO  N_ext 
ENDIF 

IF  Kcy%=62  OR  (Xpo*%=4  AND  Ypo»%=l  AND  Button%=I) 

I 

'<F4>  ou  quatrteme  tableau  du  menu  —  place  une  bolt*  blanche 
'•ur  ('image  =  effacer. 
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DEFFILL  ,0,0 

PBOX  SerJft%-lpSer^upn5S-l,Scr_fl{tK+l,Si:r_dwiJE+ 1 
DEFFILL  ,2,8 
GOTO  Detainer 
ENDIF 

IF  Key%-e3  OR  (Xpo.%^6  AMD  Ypo»K=l  AND  Bulton%=l) 

* 

'<F5>  ou  cinquiime  tableau  du  menu  =  chotx  du  mode  do  deulni 
"anlmda. 

i 

ALERT  2,-Qutl  truquago  :  •  10,"BUBBLE(ROTATION; 

AUCUN"  ,Batk% 

IF  Back%=l 
Trickflag/t =1 
ENDIF 
IF  Back$6=3 
T.rickfia«96=0 
ENDIF 

-  IF  Beck%=2 

ALERT  I  ."Pour  cel  a,  j'ai  buoin  Jd'une  panic  de  r  image. 

Y  a  t-il(un  detain  iur  la  ptge-kruj  un  ?",I OUl  |  NON,,1Vvvv 
IF  Vvvv=l 

Ccuntar%  =F  jcy»55 
Rot»tionfl*g96  ] 

GOTO  N_ext 
ELSE 

ALERT  l,*Charg«  ou  detainee  d'abord  June  image  iur  la 
|  page*4cran  un  P.I,"  OKAY  ".Back  alert  % 

ENDIF 

ENDIF 

ENDIF 

IF  Key 96 =64  OR  [Xpoe%=8  AND  Ypot%^l  AND  Buttcn%=l) 

* 

*<F6>  ou  lixilme  tableau  du  menu  =  eauvegarder. 

» 

ALERT  2,*Quc  fnut-il  eauvegarder  r.0"  FILM  |  IMAGE 
(ANNULER  ".Site 
IF  S«t=<S 
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DEC  Collnt*r% 

IP  Si*l=l 

©Plctav* 

IF  Sel«|*d*ow\-  AND  Selecledlo*  FIAT  AND  Stlect*d|>"' 
Count«S6*Pjey*96 
T.rirkfl*gS6=Q 
ENDIF 
ELSE 

(aBildinyir 
ENDIF 
GOTO  N  ext 
ENDIF 
ENDIF 

IF  Keyft=65  OR  (Xpne%=T  AND  Ypo«%-I  AND  ButLcn%=l) 

R 

■<F7>  ou  eept  feme  tableau  du  menu  =  charger. 

ALERT  VQue  faut-il  charger  7  |  1.  FILM|2. 

BLOC/1CONE/1MAGE  -,0"  l.  |  2.  jANNULER" tT. oload 

IF  T.oload=S 

ALERT  l*L'Idition  ectuelle  «t  perdue  [d'tme  fas  on 
lrrdveraible|lon  du  chargementFfI  "  NON  1  OKAY  *,BackalerlK 
IF  Bacfcalert?6=2 
L.oadf)ag%-l 
Cou  n  t«  t% = PJcy*S6 
GOTO  N  «xt 
ENDIF 
ENDIF 
IF  T.doad=2 

ALERT  2”Choi*i«ut:  “.O’  BLOC!  ICONE  |  IMAGE 

IF  Mmmm=l 
^  Block  loader 
ENDIF 
If  M  m  mm— 2 
(Slconloader 
ENDIF 
IF  Mmmm=3 
#B  lid  loader 
ENDIF 

Key%-98 
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ENDIF 

ENDIP 

IF  K*y5£— 66  OR  (Xpo*%-8  AND  ¥pos%=l  AND  Bu«on?6=l) 

I 

'<F8>  on  huilitme  tableau  du  menu  =  Interruption  ou  prtientcr 
■1#  film. 

i 

ALERT  2,"Pr4acntcr  le  film|tota]  quit  ou|retour 
? * MONTH ER |  QUIT  | RETOUR" , B  .aclca] ertSt 
IF  B.ackaltrt%r=2 
Kintopp.quit96=l 
Counter^ —P_icy»  % 

GOTO  N  ext 

ENDIF 

IF  8~&ckalert%=i 
PriMnterX=l 
Counter9t=Pmicys9t 
GOTO  N  ext 
ENDIF 
,  ENDIF 

i 

‘Let  (toil  testa  qul  euivent  concement  lea  quatre  touches  de 
fltche.  Si,  en  dcssmant,  une  dee  touches  de  flit  he  cat 
’cnfoncts  le  contenu  de  I'itnag#  eat  dteslt  dans  la  direction 
’de  ia  fllchc  ("scrolling”)., 

a 

IF  Key  St— 72 

GET  Scr_lft%,Scr__upn%+  I,Scr__r*t%1Scr_dwn%+  l,P_Uicrollt 
PUT  &r_IftSSJScr_upn%>P_lcscrolli 
GOTO  Dcuiner 
ENDIF 
IF  Key%=76 

GET  Ser_lft9G+ l1Scr_upn5t,Scr_rgtK+  I.Scr_dwn%,P_i(ncroll| 
PUT  Scr_lft%,Scr_upn%1P_icacroll$ 

GOTO  Dessiner 
ENDIF 
IF  Key9t=77 

G  ET  S  c  r_l  ft?6  - 1  ,Scr_upn  St  pScr_rglSt  -1  ,Scr_jdmn  96  ,P  icscr  ollt 
PUT  Scr_lft9t,Scr__upn%,P_icscroH| 

GOTO  Dessiner 
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ENDIF 

rr  Kcytt^eo 

GET  Scrjftft ,Ser_upn% -1  ,Scr_rgl%  ,Scr_dwn%l ,P_ie*crolI* 
PUT  Ser_lft % ,S cr_upn 96 ,P JcacroU* 

GOTO  Detainer 
ENDIF 
IF  Key%-08 

ft 

'Si,  en  dmintnl,  la.  touche  <HELP>  eat  en(otict«,  la  demit  re 
image  (ai  die  cat  exist  ante),  transfer**  en  m*  moire  de 
’quadnllagc  irftce  au  programme  graph  iqut  (lea  parties 
'MOVE/COPY  oil  SELF  ou  bien  Block  load  ou  Iconload},  eat 
'affichte  eur  la  position  du  curaeur  de  la  touria  Voue 
'pouvee  main  tenant  insurer  cette  image  darn  celle  du  film. 

'Si  vou*  aves  besom  de  piutieurs  de  cea  parties,  you* 

'pouvet,  gTice  ft  la  foncticn  LOAD  du  menu  "CINE",  tranaftrer 
'dei  parties  queloonque*  (qui  doivent  y  4tr*  sauvegardtes 
tujpar&v&nt)  dans  votro  studio.  Voua  pouvet  done  tana 
'preblimi  cr*er,  sauvegarder  et  insurer  dans  vos  destine 
'aiiiinh  lea  different  ea  images,  grftce  au  confort  du  programme 

'graphique. 

■ 

REPEAT 
MOUSE  xy.K 
PUT  XXMcpartJ.C 
PUT  X.Y^c  parti.C 
UNTIL  MOUSEK 
PUT  X.Y.Me.parti.d 

G ET  Scr_J ft% , Scr_upn% .Scrrg t % ,Scr_dwn% JP_icat:roll$ 

PUT  X  Y, Me  parti, G 
PUT  Scr_lfi5t(Saf_upn$GlP_ictcro|l$.S 
PAUSE  10 
GOTO  Detainer 
ENDIF 

IF  Buttcn*=0  AND  K*y9t=© 

GOTO  Detainer 
ENDIF 

IF  Button%=S 

I 
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'Si,  tn  deuinant,  It  louche  decile  de  la  a  curia  & 

‘tnfoncie,  le  point  dnsint  eat  agrandt. 

• 

INC  Rayon 96 
Erdif 

IF  BuUon$(=3  AND  Rayon%>0 
» 

'Si  voua  appuyes  sur  Laa  deux  touches  de  la  souria,  le 

'diamttre  du  point  diminue. 

> 

DEC  RayonSfi 
ENDIF 

IP  T.rickflag9t-1 

II 

’Si  vous  eves  c  hoist  le  truquage  “Bubble",  I  image  d’une 
'butte  brillante  jett&nt  une  ombre,  eat  creie  ct  detainee  par 
Temploi  das  touches  de  la  aouris  (gauche,  droite  ou  let 
'deux).  Contrairemcnt  »u  mode  de  dcuil)  normal,  1«  detain* 
p  assent  ici  automnliquement  de  1’utl  4  1'autre 
’ll  cat  sinai  possible  de  crier  reflet  d'une  bulls  volant 
’dans  fair. 

I 

@Con|our(0) 

DEFF1LL  ,0,0 

PBOX  Sc r_l ft 96  ,Scr_upn96 ,Scr_rgt%,Scr_dwn% 

DEFFILL  ,3,6 

PCIRCLE  X+  Rayon  %/  12.Y+  Rayon%/12,Rayon%+  Rayon %/ 13 
DEFFILL  ,3,6 

PCIRCLE  X+  Rayott^/lSjY + Rayon9S/lE,Rayon9G+ Rayon%/16 
DEFFILL  ,3,4 
PCIRCLE  X,Y,Rayon% 

DEFFILL  ,3.3 

PCIRCLE  X -Rayon3S/6,Y -Rayon%/6, Rayon%/3 
DEFFILL  .2,3 

PCIRCLE  X-Rayontt/4  ,Y-Rayon%/4  Rayon%/S 
DEFFILL  ,2,1 

PCIRCLE  X  Rayon%/3.9.Y-Rayon%/3,0,Rayon96/8 
DEFFILL  .0,0 

PCIRCLE  X  -  Rayon  95/ 3.9,  Y  -Rayon35 /3  B.Ray  on  %f  1 1 
G ET  Scr_lft96  ,Scr_upn% ,Scr__rgt95*Ser_dwn95 ,P_icy I  (Countei-96) 
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@Contour(l) 

GOTO  N_ext 
ENDIF 

PCIRCLE  X.Y.Raycnft 
GOTO  DeMiner 
N_ext: 

NEXT  Counter# 

CounUi9£=Nombr*jI*  dcaimi 
COLOR  1 

(&Cli  p  p  rec  2  {0 ,  $er_llt#  ,Se  r_u  pa#  tScr_rgl  9t  .Scr^dwn  %  ) 

1 

'Clipping  cat  &  tlouVtau  Hcitll. 

t 

@Contour(l) 

IF  Kintopp.quit^^O  AND  L.oadRviX=0  AND  Prlitnt(!f?{=0  AND 

Rot»tionflag%— D 

ALERT  2I”Sauvegardcr  Him  |ou  regarder  d  abord?",!,'' 

SHOW  1  SAVE  -.Back  alert  % 

IF  Backalert#=2 
(VPukMV« 

ENDIF 

ENDIF 

RETURN 

PROCEDURE  G  .el  tinny 

t 

'En  pnncipe,  11  s’agit  id  de  la  mkmi  procedure  que  cells 
'rencontres  tout  le  nom  "Block.y.elly*.  Avec  la  sente  difference 
'que  "G  ettmny"  a  #14  sdaptle  k  dea  exigences  particuliires. 

I 

@CHpprec(0) 

GRAPHMODE  I 
CLS 

OFFLINE  0)1,0  0 

PRINT  AT(2  2) f  Determines  [‘orientation  P 

GRAPHMODE  5 

REPEAT 

MOUSE  Ell  xx.Ell.yy.K 
IF  E!!.yy<170 
Ell.yy=170 
ENDIF 
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R»yYS6=EU.yy-170 
IF  RAyY9t>SG 
RayY%=30 
END  IF 

ELLIPSE  320,170+ Ray  Yft.SO.RayYft 
ELLIPSE  530,170+  R*y  Y96,50,Ray  Y96 
UNTIL  MOUSEK 
Coun  Ur%— 200 
Scr_wid%— 100 
Scr_hii%=R@+  (2*RayY%) 

PUT  0 ,0,  Screen.  11  ,$ 

ERASE  P_icyl() 

DIM  P_iey*{200) 

ALERT  1  ."Priiefiter  la  partie  1  m,l,*  OKAY  '.BackaLertft 

PAUSE  10 

OFFLINE  0.1 ,0,0 

CRAPHMODE  3 

REPEAT 

MOUSE  Xx%,Yy%lB\Mofi% 

*  BOX  Xx%  - 300, Yy %  -80  ,Xx  96 , Yy % 

BOX  Xx%-200,Yy%-80,Xx%1Yy% 

UNTIL  MOUSEK 
Xg%=Xx%-im 
Yg%— Yy%-BQ 
Block  1 1  n  ei  96 =200 

ALERT  2/Avec  ou  aan*  Lord  1*r0,"  AVEC  |  SANS  \BackaIert9G 
COLOR  1 
GRAPHMODE  1 
IF  BackaJert%=  1 

LINE  Xg%,Yg%-I,XxKlYgft-l 
LINE  Xg9G,Yy96+  lpXx%lYy96+ 1 
END  IF 

ERASE  Mir.mem!() 

DIM  Mir.mem3(B]ocklinai%) 

FOR  196=1  TO  200 

GET  Xg%+I9t-liYjt96-ifXB96+l96tYy%+  lMirTnemt(l96J 
NEXT  196 
CLS 

DEFFILL  ,2,4 
PBOX  0,0,639.300 
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DEFFILL  ,2.2 
PBOX  20,0  619,359 
DEFFILL  ,0,0 
(»Contour(0) 

PBOX  240,0,400,160 
@Contour(l) 

PRINT  AT  2,24);"  Patient*.  SVP  1  II  feut  prendre  encore 
qudquei  photo#  individuellu  * 

B  iockr  o  wiSt =80 

X*9t=2fO 

¥g?t=0 

H_ypo56=S0 

H_ypo296=R*yY56 

CtntirJc%=Xg%-t  H_ypo9f 

Center.y96= Yg56+  H_ypo% 

Raitcrmod5£— 3 
LINE  O.YgK.eoO.Yg* 

Ce.yd96=Yg56+  2#RayY%+*l 
IF  Ce.yd%>399 
C«.yd56=S09 
ENDIF 

Counter%=200 

FOR  !i%=l  TO  Count«r% 

« 

'"Counter^"  a  £t€  dfdnie  auparnvant  4  300  image#.  Lb  boucle 

'eat  parcouruc  ant  ant  de  foie. 

« 

‘let,  200  photo#  individuetlaa  #ont  priiea  d'une  parti*  de 
Timagt  thoiiit  *ur  I'gcrxn  (iargeur  const  ante  de  la  portie). 
'Pour  chaque  photo  individucllc,  cette  parti*  eat  "toumte" 
'd'un  pixel  plue  loin. 

‘Utie  foie  lea  travaux  terming#,  vou*  tie#  invitta  A  regard er 
’votre  oeuvre  d'art  de  prh  ("Hit  the  Key").  Voue  voyea  un 
tambour  rotatif  contentmt  eur  la  turf  ace  rxtineuro  la  pariie 
de  1'im age  que  voue  avec  choiaie. 

# 

Mi  r .  mem  ${  0)  =Mi  rmeml  (Counter^) 

■ 
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'U  premier  element  du  tableau,  qut  contient  |«  di  fie  rente* 
'bands*  dc  t'imagi  (200)  e*t  rempli,  Ion  de  cheque  parcour*. 
'par  le  contcnu  du  dernier  element- 

i 

FOR  Jj%=Counter%  DOWNTO  I 

t 

'A  I'inttrieur  de  cetu  dcuxlime  boude,  lee  diffirentee 
'band#*  de  1 'image  sent  avancies  respective  me  nt  d'un  element 
'plus  loin.  Ainu,  cheque  bands  h  trouve  dev  ant,  lore  dc  la 
pnit  dee  photos,  et  lei  autre*  •uivent  dan*  1’ordre.  Cela 
cr*e  I'effet  de  rotation. 

t 

M  ir.memt ( J  j%)=M  ir  mern!(J  j%  - 1) 

NEXT  Jjfc 
@Tinny 

i 

'Eniuite,  chacun  de*  200  tambour*  eat  calculi  grict  h  "Tinny". 

i 

PRINT  ATlSS.Sil^-W 

#  Mem  index%=G 

GET  270,Il370,Ce.yd%+  l,P_ky!(li%) 

NEXT  Ii% 

P  _icspae  *%= LEN  [  P_»cy(  ( 1 )  ) 

Set  tft%=320  (Scr_wid%/2) 

Scr_upnS6=200- (Scr_hei56/2) 

Scr_rgt%=Scr_lft36+  Ser_wid% 

Scrdwn%— Scr_upn%+  {2*fiay  Y9C ) + 80 
Mcm-index56— 0 
ERASE  Mir.memS() 

RETURN 

PROCEDURE  P_idoad 

FILESELECT  .Selected! 

IF  Select  edSo4^*  AND  Setectcd!<>".FLM"  AND  Selected!  >"" 

t 

'Si  un  film  doit  lire  chargi  ... 

» 

DEPMOUSE  2 

OPEN  “ I “,#1, Selected! 

« 

*...  ouvre  le  Ftchier  du  film  ... 
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Identifier)— INPUTS(30,#  1) 

Us  lei  30  premier*  octets  (bloc  info) 

t 

Numsl  % = V  al?  ( 1  de  n  t  iftcrl ) 

Count  *r!-LEFT!  (Identifier  I  .NumalSG) 

Co  u  n  I*r9l= V  sl(  Counter!) 

1 

*...  extracts -en  It  nombre  d'imk|ti  con ten ue*  ... 

« 

Id cn 1 1 Her! = RIG HT! (Identifier!: ,  30 -Nu  mo  1  %  - 1 ) 
Nuiml%=Val?(ldentifiert) 

P_ic*pacel=  LEFTl(Idefttlfier!,Numi2%) 

P_ictpweS(=V  at  (Pjcipactt) 

I 

*...  U  tallle  en  octet*  de  I'image  individual*  ... 

I 

Identirier!=RIGHT!(Idenuner|1(3C  NumilSt  1)  Num*2?6-I) 

N  u  rtU3% ■= Vel  ?  ( Id  en  t  ifi  er  S  ) 

Scr_he  i!=  LEFT!  ( Id*  n  t  i  tier  S ,  N  u  ms3%) 

Scr__hei96= Val(Scr_h  ei !  ) 

» 

la  hauteur  de  la  partie  ... 

t 

Identifier!=  RIG  HTf  (iden  tifierl ,  ( (30-  Nurmi  % - 1 )  -N  urns  2*  -I)  -Num.3% 

Nums4%=Val?  (Identifier!) 

Scr_wid*=LEFT!(Identifieri.Nunw4?E) 

Sc  r_wid  V  al  ( S  cr  widt) 

t 

et  la  largeur  de  la  partie. 

• 

ERASE  P_icy!() 

DIM  P_lcy!(Counter%+ 1) 

ON  ERROR  GOSUR  Disk  error 
FOR  1=0  TO  Counter^-! 

Pieyt  (I) =SPACE![P_icspace%) 

t 
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'Prtpwi  Lea  different*  elf  merits  du  tableau  pour  la 
't&uvcg&rde  ... 

A 

P_lcy  t  {I ) =Inpu|$  ( P_Jc*pact% ,  #  I) 

■ 

charge  lea  difff  rente*  images  et  attrtbue  lea  aux 
'Aliment*. 

I 

NEXT  1 
DEFMOUSE  0 
No.dat: 

ON  ERROR 
CLOSE  #1 

Scr_lft  %  -330  -  (  Scr_wld  %  / 1) 

Scrupn  % =200  -  (Scr_h«i% /2) 

S  crj'gtJt  -  Scr_lf + Sc  r_»  i  d  56 
Scr_dwri96=Scr_upn9£ + 3er_h*i% 

i 

Calcult  lea  coordonnie*  de  la  position  de  "L'icran*. 

#  » 

ENDIP 

RETURN 


Le  precede  d’analyse  et  de  charge  merit  du  fichier  du  film  et  des 
differences  parties  n’est  pas  ires  efficace.  II  serai t  plus  simple 
d’ecrire  les  differentes  images  et  le  tableau  d’information  avec 
"Write  #T  et  de  les  lire  ensuite  a  Taide  de  "Input  #1".  Mais  le 
precede  d’analyse  a  ete  volontairement  rendu  plus  complique  afin  de 
mettre  en  evidence  la  fa^on  dont  ce  type  de  fichier  pent  etre  eons- 
truit.  Durant  votre  vie  de  programmeur  vous  n’aurez  pas  tou  jours  a 
faire  4  un  BASIC  GfA  possedant  ptein  d*a  vantages.  II  se  pent 
que  vous  soyez  obliges  de  "defaire*’  un  fichier  comme  cela  vous  a 
etc  demontre  ici. 


Procedure  P_k*bv« 

t 


’Cette  procedure  perm  el  de  lauvegarder  le  Rim. 

I 
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Start  save: 

IF  CounterSfP  ic»psce%+ 3G<DFREE(0) 

1 

nulcmcnt  <ril  y  &  inffitammeni  de  plBci-miraoire 
'dieponible  Bur  diiquctlc  It  ternit  dommuge  pour  I*  beau  film 
'<2 Lie,  a  cause  de  messages  d'errcun  imprivui,  le  programme  le 
trouve  Lnterrompu. 

I 

DEFMOUSE  t 

C_oti  I  rot  I = S  TB  t 

(Counter%)+,T+ STB*(P_icipace56j4- “f4  STRt(Scr_hei56)+ "r+STBS{Scr_wi 

d56) 

Control  $=C_ontrol$  *  SPACE$(SO  LEN(C_onlroIS)) 

V 

'Lei  30  premiers  oct  ets  dija  mention  net  plus  haul  (bloc  info) 

’non  l  regroups  dans  une  chain e  de  caractira. 

# 

FILES  ELECT  T^’"  .Selected* 

Ext  eneionl— H  FLM* 

* 

^Extend 

OPEN  Selected* 

PRINT  #I.C_ontrol$; 

■ 

'Ecrits  La  chain*  d 'information  dent  Le  fichler  ... 

i 

FOR  1=0  TO  Counter^ 

v 

et  ensuite  touts*  le*  imago  - 

t 

PRINT  #IfPJeyt(l); 

NEXT  I 
CLOSE  #1 
DEFMOUSE  0 
GOTO  S.avcout 
ELSE 

ALERT  3"PlUi  de  place  difponiblc  |*ur 
disquette"  ,1 RECOMMENCER|  I  NTERROMPRElEFFACER"  ,Backat% 
END1F 

IF  BackaL96=l 
GOTO  Startnav* 
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ENDIF 

IF  B*ckftl$=:3 

9K.m 

ALERT  2,*Fichi«r  efface  !|Sauv«f&rde  du  film  7mtl*  OKAY  f 
NON  "pUuuu 
IF  Uuuu=l 

GOTO  Stutiavc 
ENDIF 
ENDIF 
S.»vcout: 

RETURN 


r 
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PROCEDURE  Showpiet 

I 


'La  ”•&]]«  de  cln#n»a" 


GRAPHMODE  l 
DEFFILL  ,2.4 
PBOX  0.0.659,399 
DEFFILL  ,0.0 
PBOX  35, 146,605,256 
DEFFILL  .2.1 
PBOX  40.150,600,250 
GRAPHMODE  2 
DEFTEXT  1,21,0,26 

TEXT  50,205,640,"  HIT  THE  KEY!" 

GRAPHMODE  l 
REPEAT 

UNTIL  MOUSEK  OR  LEN(INKEYt) 

DEFFILL  .0.0 

FOR  1=320  TO  630  Step  32 

PBOX  300  (ABS(320-I)). 0,1+ 21,399 
NEXT  I 
CLS 

PBOX  2,2,637,397 
DEFFILL  .3,6 
PBOX  7.7.632,392 
DEFFILL  .0,0 
PBOX  20.12,620,34 
PBOX  376.375,366,392 
BOX  22,14,56,32 
DEFTEXT  1,1.0.13 
GRAPHMODE  2 

TEXT  23,2fi1"F!N  (touch®  dr=plu*  vite/touche  ga— plue 
lent)  Image  Fr+q.:" 

TEXT  287.389,“  BACKSTEP* 

GRAPHMODE  1 
DEFFILL  ,2.4 
DEFTEXT  1.18,0,13 
DEFFILL  ,0,0 

TEXT  Scr_fft%-20.Scr_upn9£-40,"  THAT’S  CINEMA  11  ■ 
PBOX  Scr_lft&  -26,Scr_upn96  -25.Scr_rgt%+  2S,Ser„dwn?S+  25 
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DO 

t 

'Bouck  fm,  c'ttH^lirt  quo  le  film  recommence  toujour*. 

* 

FOE  Image%-1  TO  Counter^ 

'Boude  pour  un  pareour*  entier  du  film. 

4 

T%=Timer 

PAUSE  P  uueft/2 

MOUSE  X96,Y%.Bwttcn$6 

PUT  Scr_lft%  ,Scr_upn% ,P_icy $( Imaged ) 

I 

’pr&enle  let  ImRgu  d  an*  I  cur  ordre  c  hron  ologique. 

ft 

IF  Y  96=399 

* 

'St  It  bord  infineur  de  I  Ac  ran  cat  touch  6  Ion  de  la 

'pr^itnUtioii,  arret e  le  programme  et  attend*  un  die  da  la 

''aoudi  (photo  individuellc).  Lamer  le  concur  «ur  le 

’bord  inftrieur  de  I’ftcr&n  et  appuyer  phuieur*  fou  de 

‘autte  *ur  la  touche  de  la  iouns  Vou*  ob  toner  la 

'projection  d'une  Image  Individuctle. 

» 

f 

(pClidta 

ENDIF 

IF  Bution%=! 

« 

’Si  la  touche  gauche  de  la  eouria  a  ftti  enfoncte  ... 

i 

IF  Y96<3J 
IF  X%<58 

4 

et  ei  le  curaeur  de  la  aourii  ee  trouve  & 

TinUrieur  de  la  bolt*  "’Fin"  ... 

# 

Image%= Counter^ 

GOTO  Nodtow 
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ttrmilit  la  presentation, 

END  IF 
END1F 
IF  Y%>376 

IF  X%>27S  AND  X?S<3$$ 

l 

si  le  curseur  de  la  aouiia  at  trouve  A  ]‘int4rieur 
'de  le  bolte  "Beckatep”  ... 


SUB  Imaged,] 

I 

dim  nue  le  compteur  d'imagea  de  2  (retour 
’d1  images) 

i 

IF  Image3£<=0 
ImagrSt— 0 

ENDIF 

COTO  C_ooti 
ENDIF 
ENDIF 
ENDIF 

IF  Button%=l  AND  P  &u*e%<30 
# 

’Si  ftucun  dea  cai  mentionnts  plus  haul  ne  i'eit  produit  et, 
’si  la  louche  gauche  de  la  sou  rii  a  et  *  enforcer,  r  slant  is 
'It  film  {Slow ^Motion) 

INC  Pauseft 
ENDIF 

IF  Bu(ton${=2  AND  Pouse%>=  1 

'Si  la  touche  droit*  de  la  souris  eat  anfoncfi,  meet  le  re  & 
'nouveau  le  film.  La  frequence  dea  image*  eat  limitAc  par 
'leur  taille. 

‘La  vitesee  ne  pent  done  plus  tire  augmentte. 

DEC  P.aust% 

ENDIF 
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C_onti: 

T_jmeS6=Tim«r'T?S 
PRINT  AT(67,2);* 

PRINT  AT{57t2);ImaffeS6+ 1* 

IP  T_im*%>0 

rrtqwuce%=rINT(  IQ*200/(Timer-T%)+ O.Sj/IO 
PRINT  AT(fa,2);FHqu*nci96'* 

ENDIF 

N©.*how: 

NEXT 

EXIT  IF  Butlo»%— 1  AND  XK<SS  AND  Y%<3 2 
LOOP 

ALERT  S/Sauvegarder  l«  filmlrtdeaaincr  I*  filmlou 
total  Quit  r.I*  SAVE  1  NOUVEAU  |  QUIT*  .B  alert  % 

IF  B.alert%=l 
B*dtalert%=0 
@PJcisv* 

ENDIF 

IF  B.fe3ert%=3 
Kin!opp.<|uit%=l 
ENDIF 
RETURN 

PROCEDURE  Bildloader 

fileselect  "\*  b.rr  bii" .Selected! 

IF  SdcetrflO-VDIL*  AND  Seleet*df>~  AND  Selectedlo'V 
DEFMOUSE  2 

@D  at  m(  S  e!  ect  ed  $  ) 

M c  p art t — S P AC E$(D&tiiu%) 

BLOAD  Se  I  k  ted  $ » V  A  R  F  TR  (Me .  p  art !) 

DEFMOUSE  0 
ENDIF 
RETURN 

PROCEDURE  Qildaaver 

FILESELECT  •’\*.b»rt-.bil"1S«l«ct*d| 

IF  Selected  t  O  "  \B1  L"  AND  Selected!  >*“  AND  Selected  to* \m 
DEFMOUSE  2 
E  octene  i  on  t  -  *BIL* 

®  Extend 

G  ET  Scr_lft %  ,5cr_upa96  ,Sar_rgt96  1Scr_diim9tiPMc  pvt! 
BSAVE  Selected!. VARPTR(Mc  partl^LENfMc  part!) 
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defmouse  o 

END  IF 
RETURN 

PROCEDURE  Iconic  ader 

FI LESELECT  "\Men"  *  kn* .Selected* 

IF  Seleetedlo* \. ICN"  AND  Selected*;*-  AND  SelectedloT 
DEFMOUSE  2 
f?D.«i*e(Selectedi) 

Me. part  S=SP  ACES  (Datske%) 

BLOAD  Selected*  .VARFTR (Me  part*) 

DEFMOUSE  0 
ENDIF 
RETURN 

PROCEDURE  Icon  saver 

FILESELECT  "\ Men*. Men"  .Selected* 

IF  Selected*  o^VlCN"  AND  Selected*;*-  AND  S  elec  ted  *<>*\* 
DEFMOUSE  2 
E  xt  cn ■  ion  t = *  ICN* 

^Extend 

'  GET  Mic.b  xgf  3,Mk  b  yg+S.Mk  b  xd-S.Mk.b  yd  3.Mc  pert* 
BSAVE  Select  edl.V  ARPTR(Mc. parti), LEN(Mc. part*) 
DEFMOUSE  0 
ENDIF 
RETURN 

PROCEDURE  Blockloader 

FILESELECT  *\M>loV. bio" .Selected* 

IF  Select •dl<>,,\*  AND  SeIected*oM3LO“  AND  Selected*:*-* 
DEFMOUSE;  2 
@D  eiae  (Selected*  ) 

Me  parti-SPACE|(Dateke%) 

BLOAD  Selec  ted* ,  V  A  R  P  TR  ( Me  .part* ) 

DEFMOUSE  0 
ENDIF 
RETURN 

PROCEDURE  Pat  term  aver 

FILESELECT  V- pat"  -.pat* .Selected* 

IF  Selected**:  >"VPAT*  AND  Selccted*>~  AND  Sclected*<>-\- 
DEFMOUSE  3 
E.  xtensionf = *P  AT“ 

^Extend 
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@Ru*y 

^Initarray 
@P  audit 

BSAVE  Selected!  VARPTR(Patword% (0) J M 
@R«ady 
DEFMOUSE 0 
ENDIF 
RETURN 

PROCEDURE  Drnbox(Dmgflsg%1DriigxiniiK,Dr8gyinitSi)D»gliirgeK1Dmgha 
ut%>Xbound%lYbound%JBottndl&rg«%lBoundhikut%) 

'L«  programme  voua  demande  &  pluneun  reprjei  de  determiner, 

'ptM  *  one  bar  re  de  de  placement,  ccrt  nines  valcun  (par  ex. 

'Mode  grille  allum*).  Cette  bane  de  displacement  eat  difinie 
'I  1'intAriaur  de  la  procedure  luivuite  : 

Drags  tart: 

GRAPHMODE  3 
COLOR  1 
DEFLINE  0.1,0, 0 
IF  Drbgftagft^D 
REPEAT 

BOX  Dr»Bxirit% ,Dra£y initS&JDr*gxinit9&+-  Drag! arg«96 ,D ragy mit%+  Dr 
ighaut^ 

BOX  Dr&ffxinitft.Dragyintt&Dragxinit^  Draglarge9£  Dragymit%+-  Dr 
aghaut% 

UNTIL  MOUSEK 
ENDIF 
REPEAT 

MOUSE  Dragx^.Dragy^.DraBhcy^ 

IF  Dragx?£>X  bound  %+ Bound  large  56 
D  ragx9£  —  Xbound%+  Bound!  arg«% 

ENDIF 

IF  Dr&gy%>  Y  bound  96+  Bound  haul  96 
Dragy  96  -  Ybound%  +  Boundh  aut% 

ENDIF 

IF  D ragx96<X bound 96 ‘•*Draglarge% 

Dr*g*S6=Xbound%+  Draglarge9E 
ENDIF 

IF  Dragy96<Ybound%+  Draghaut96 
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Dr  agy  96 = Ybound%  4- D  r  »$h  *  u  t  % 

END1F 

BOX  Dr*gx96 -DrB|lsrge%lDrn{Qr% -Dragfeeut  96,Df  agxS&.Dr agy % 

BOX  Dragx%  DragUrgt96.Dra4ty96-Dregh&nt%,Dragx%(Dragy9£ 

IF  R  !ndex96=0 

Trou*large96— lNT((DrBgx96*Dragximl96-6)/3) 

PRINT  AT( 40,  tS);Trouilarge9G* 

ENDIF 

IF  R.index9£^l 

Lignea = IM(  (Drip% -Dragx!  n i t% +-  2  8 )  /2 .6) 

IF  lignea  MOD  3<>0 
INC  Lignea 
ENDIF 

PRINT  AT(40.l5);llgn«e' 

ENDIF 

IF  R..index96=2 

Col  □nn«*=INT(  (Drngx9£  -Dregximt96+  2S)/3.4) 

PRINT  AT(^0(IS);Colom^•i, 

ENDIF 

'  IF  R.index96=$ 

P  _i  cy  *96 = INT(  ( D  ra  gx96  -  D  ragx  i  nil  9E )  /  (  (Boundl  arge%)  /  Miuc_pic*%)  J 
PRINT  ATtSS.lS^PJcy*^' 

ENDIF 

UNTIL  Drafk«y$6-0 
IF  R.ind*xS6=3  AND  P_fcya96<2 

ALERT  0,'Paa  vkb  III\1  *OKAV.BeckaIert96 
GOTO  DragitsH 
ENDIF 

Dragxg96~Dragx96 -Draglargc% 

D  ragyg96= Dr»gy% -Dragh  nut  % 

Dr^gxd  96  =Drojx% 

Dr&gyd96  -Dragy  96 

RETURN 

PROCEDURE  Rubbwlf 

'Si  vouc  ttes  obliges  d  Uargir  de*  boltea  k  lUnttrieur  du 
1  programme  gr&phique  (mode  "Rubb“  ou  fonctiona  MOVE/COPY), 

'lea  cadres  extimibln  qut  auivent  le  curaeur  de  lie  icurii 
'■o nt  crMi  per  le  prHente  procedure. 
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L*  propamme  ntt«rn  k  I'intdrteur  dc  ccttc  boudi  Juaqu*&  ce 
qu’uQB  toucher  de  1b  iouni  soit  cpfoncie  ou  b|*n  que  le  mode 
’DRAW  (*D.r»wmod%')  aoit  modifit. 

Kk%=D.nwmode?S 

$G«tfkeye 

IF  Fkey«?£-67  OR  KkftoD.rawmodeft 
GOTO  Rubb*elf.out 
ENDIF 

@Clipprec(2) 

MOUSE  Xxfc.Yyfc.Kkfc 

Vom  conn  Bine ■  dAji.  ]«*  f one t ion*  "Border**  depula 
'“branch*  ment* . 

IP  Bot*krS6=l 

IF  X*%<1  AND  Yy%<$00  AND  Yy$£>lOO 
CUck%-0 
gtClieka 
IF  Clicks  =2 
(AAItencreen 
ENDIF 
END  IF 

IF  Xx%<1  AND  Yy%>3M  AND  Clipp.Ml9E«0  AND  Arena^O 
Click%=0 
#CIidu 

if  ciick%=a 

INC  Clou 
IF  Clou- 1 

R.etnem=D.rawmodcX 
D.mwmodi%=IO 
ENDIF 
IF  Clouds 
Clou=0 

D  rnwmode%— R  onum 

ENDIF 

ENDIF 

GOTO  Rubbed  Tout 
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ENDIF 

IP  Xx%>630  AND  Yy%<300  AND  Yy36>100 
C1ick%=0 
^Clicka 
IF  CUckK=? 

IF  Flipp  flag%=0 

GET  0,0 ,639,30$ ,  Scree  n . It 
^Sluter 

PUT  0(0,Scr«*n-lf13 
END  IF 

IF  Flipp.flftf56=I 

GET  0,0 ,630 ,399, Screen  2 1 
^StwUr 

PUT  0,0  Screen  21  3 
ENDIF 
END  IF 
ENDIF 

IF  XxS6>638  AND  Yy%>398 
Ctick%=0 
QCticke 
IF  Click%=2 
INC  Coordo 
IF  Coordo=I 
Showcoordo=l 

ENDIF 
IF  Coordo=2 
Coordo =0 
Show  coordo =0 

ENDIF 

ENDIF 

ENDIF 

IF  X>270  AND  X<370  AND  Y>S8B 
CJick%=0 
$CIick» 

IF  CHck%=* 

(»Showhetp 

ENDIF 

ENDIF 

ENDIF 
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'Ejilerowt  let  fonctiona  du  mod*  grille  ct  de  Htkula. 

IF  Grillenwd^sl 

Xx%= I  NT  (Xx9t  / 1  rou  .  I  &rge%  )  *  I  r ou ■ t  »rge%  - 1  NT  ( t  routl  urge 
Yy  %=1NT(  Y  y  96  / 1  roualarge%)  *  t  ro  u  ■!  erg  e%  -1  NT(t  routl&rge%/2) 

END1F 

IF  H«lp.on%-0 
IF  Showlinef%=I 
X=Xx96 
Y-Yy% 

£S.howline* 

ENDIF 

IF  Conti  Jinei%=l 
@C.onal.tine* 

ENDIF 

ENDIF 

GRAPHMODE  1 

EXIT  IF  Kk%~l  OR  Fk*y*%>0  OR  D.rtwmodt%<l|  OR  D.r»vmodB^>19 
LOOP  , 

Xg%=Xx% 

Yg56=Yy% 

IF  Fk«yt%=0  AND  (D.rawroode%>  10  AND  D  rawmodi^cIO)  OR  Ar«u%=|  OR 

Clipp.Ml%- 1 

'Si  eucune  touche  du  clavier  n't  6t6  frapp^e  ci  *i  urn  fonction 
"Rubb*  ou  une  fonction  "MO VE/COPY*  ut  utiliaie  .« 

GRAPHMODE  3 
Norubb%— 0 
Rubbflag%=0 

IF  Are&t9S=0  AND  Ciipp.net %=0 
Rubbflag96~l 
ENDIF 

DEFLINE  1 ,1,0,0 
DEFTEXT  1 ,0,0,6 
DO 


'■«  rule  s]dh  6  I'mttneur  de  cetie  boude  Juiqu'k  ce 
*qu  tiicune  ou  touiet  let  deux  touchen  de  la  eouni  toient 
’etifoncte*. 
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MOUSE  XxSS.YyX.Kk3t 
IF  Xx%<Xg9G 
Xx%=Xe% 

ENDIF 

IF  Yy%<Yg% 

¥y%=VgSt 

ENDIF 

'Si  I*  euntur  de  t&  aouria  it  trouve  aur  It  point  de  depart 
'ou  &  gauche  de  celui-ci ,  nmit  lee  eocrdonnia  &  Icur 
'origin#. 


IF  Grill*mod%sl 

Xx96 = INT(Xx96  / 1  roust  erg*  SS  J*  troual  »rge9fi -I  NT( irouat  ar  gt% /2 ) 

Yy  §6= INT  ( Yy  %/ 1  ro  ual  &rg*% )  *  iron  alarge%  -  INT  { troualarge%/2 ) 

IF  Troualarg*%  MOD  200 
XxS6=Xx%-l 
Yy%=Yy%-l 
ENDIF 
ENDIF 

IF  Ar*ea%=I  OR  Clipp  «*%=! 

■Si  MOVE/COPY  cal  ellumte,  dessine  une  doubt*  boH*  en  XOR. 


BOX  Xg%,Yg%,Xx%.Yy36 
BOX  XgK.YgKrXx&.YyK 
ENDIF 

IF  Area*%=0  AND  Clipp  Mi%=0 

IF  D . nwmod t%> ID  AND  D  rawmode%<!4 

'Doubts  bolts  4  coin*  atigua 


BOX  Xg96,Yg%lXx961Yy9& 

BOX  Xg9tpYgH,Xx%1Yy95 
ENDIF 

IF  D. rawmode 96> IS  AND  Drawmode%<I7 
'Double  bolt*  4  coins  arrondi* 

RBOX  Xg961Yg961Xx?6  Yy9G 
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RBOX  Xg%, Yg9fi  (XxK. Yy96 
END  IF 

IF  D-rawmode%>16  AND  D.ra*mode%<2D 

'Doubt*  ellipse. 

RayX&=ABS(Xg9«-Xx%) 

R»y Y  9£=AB$(Yg«  -Yy%\ 

Ellipse  Xx% , Yy 9fi  ray  X  %  ,r  ny  Y 96 
Ellipse  Xx%.Yy%,r*yY%.T*yY% 

ENDIF 

ENDIF 

IF  Showeoordo=l 

'Si  tu  coorfonnlii  do i vent  Mre  retoumtes  (coin  inflrieur 
gauche  die  1  4c ran  touch!  ei  double  cliquag*  en  mod* 
'©ORDER),  cakule  lea  4cm*  el  aJ!iche>les. 

DEFTEXT  1,1,0,15 
L  o  b%=ABS(Xx%  -XgSt) 

L-o-vSt=ABS(Yy%-Yg96) 

Lo.d%=SQR(L.ob%  ’  2+  L.o.vK‘2) 
L.o.l|=-X:-+STRi(L.o.hS6)+-  Y:*+STR*(L.o  v%)+" 

D  *+STR|(L.o.d9€) 

TEXT  XxW  ~INT(Xx5fi/4 .5) ,  Yy%  -lNT((Yy  K-200)/1S)  .L.o.lJ 
TEXT  XxX  -INT(Xx9C  /4 .5) » Yy  96  -  INT  ((  Yy  %  -200) / 15) ,  L  o.lS 
TEXT  3,IS,STRi(XxK)4.*  /  *+STR$(Yy«) 

TEXT  S.iS.STRIfXxKH-  /  ,,+  STRi(Yy56) 

ENDIF 
IF  KkK=S 
Norubb56=l 
ENDIF 

EXIT  IF  Kk%=>0  OR  Kk%-3 
IF  Showlines96=I 
X=Xx% 

Y=Yy96 
@$  .bowline* 

ENDIF 

IF  Con*tJines%=l 
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&C.of»t.linc* 

ENDIF 

LOOP 

Rubbfflfout: 

(8SH.ptr&i 

ENDIF 

RETURN 

PROCEDURE  Divbyoro 
IF  Err^O 

ALERT  3  *U  font  determiner  &u  moinijune  tnille  de  bloc 
!\1  ■  OKAY  ’  ,Back«Jert% 

ENDIF 

RESUME  E.daUrt 
RETURN 

PROCEDURE  Diak. error 
IF  Err  ^26 

ALERT  I  ."Sana  dome  ii  n'y  a|piuj  rien  i  trouver  dantjle 
fichier  indique  ItRecommencer  l?r,l"  OKAY  ".Back alert  96 
ELSE 

# 

ALERT  l,"Erteur  aur  diaquettc  ?jR*comrn«jcer  !|MaI»  tout 
doucementr  ",1,"  OKAY  ".Back  alert  96 

ENDIF 

Kintopp  quit  56=  1 
RESUME  No. dal 
RETURN 

PROCEDURE  L.ood.arror 
IF  Err=  -33 

ALERT  I  /Fichier  indiqut  non|lrouvt  *ur  diaquettc 
tniti*|Bctui!tement  fjChangernent  de  diaquettc 
l?l“  ,7  ,"Rec  cmme  near  |Con  t  i  mi  e  r*  Back  alert  96 
ENDIF 

IF  (Erro-33  AND  E.rrorpOl)  OR  (Err<>-33  AND  E  rrorp=l  AND 
ErrOlO) 

ALERT  l.'Je  ne  eonnaia  paa  l'err«ur|que  you*  avei  commie*  !]D* 
toute  fa? on,  ce[n‘Atait  pat  correct  M“,l OKAY  ".Back alert 56 
ENDIF 
IF  E.rrorp-0 
Stertf1ag96~I 
RESUME  NEXT 
ENDIF 
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IF  E.*rorp=l 
IF  Err=  iO 

ALERT  3*  Lei  fichien  du  ic6ne«  de  nwnufu  iron  vent  lur  la 
diiquctu|utiliiie  actuellement  !jChingenient  de  diiquette 
l?r, 2,‘Recommencer  [Continuer' pBackalert% 

END  IF 

IF  Backalert96=l 
ERASE  M,icon$() 

RESUME  Enter  D 
ELSE 

RESUME  Enter  .1 
ENDIF 
ENDIF 

IF  E.rrorp— 2 

IF  Backalert%=l 
RESUME  Enter  I 

ELSE 

RESUME  Enter  2 
ENDIF 
ENDIF* 

RETURN 

PROCEDURE  S.ave.  error 

ALERT  l,"Je  nt  conn  ail  pu  I'emurfque  voui  ewt  cormniae  !|D* 
tout*  fsfonju  n'etait  pu  correct  ir,l."  OKAY  ~.Backa]ert% 

St  art  flag  35=1 
RESUME  NEXT 
RETURN 

PROCEDURE  Div.cero 
IF  &t=D 

ALERT  3,"Une  division  par  Uro  eit|demand4e  1  [Lb  fonction 
•ouhaitte  ne  peut  pujttre  cxkuUe  P.I."  OKAY  *,Bitckalert% 

ELSE 

E.rror=Err 
Error  E  rror 
ENDIF 
If  D.tverr-1 

RESUME  E  ditart 
ELSE 

RESUME  NEXT 
ENDIF 
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RETURN 

PROCEDURE  Accessory 

'Si  voui  louhutti  nortir  utie  pagt^nn  eur  impri  manta,  un* 

'bolte  d’nlarme  voui  demands  s’ll  faut  npptler  l«  accctioirci  dll 
"Bureau  (pour  un*  iventuelle  adaptation  d*  1'impnmuite) 

’Si  de#  acceesoirc#  ont  itft  charge*  en  memoir*  lor*  du  l&ncement 
’du  lyitiine  d  exploitation,  il*  peuvent  (In  appoint  *t  utiliei* 

'grftce  ft  la  priunte  procedure,  Conun*  1*  menu  de  fin 
'(•DO  IT*)  font i*nt,  entre  autre*,  1’opLion  de  menu  •NOT",  il  eat 
'possible  de  fair#  appel  mux  acceaeoirea  a  an*  sortie  le  contenu 
'd'tine  pmge-£crmn  tur  impri  man  te. 

'Grice  ft  "NOT*,  le  programme  reloume  mu  mod#  de  detain  normal. 
’La  prt*ente  procedure  contient  le*  fonction*  de  menu  diroulmnt 
‘aoua  GEM,  qui  peuvent  it  re  appeleet  ft  (’aide  de  different** 
’instruct ions  en  BASIC. 

‘Matt  nou*  n'&ttom  pas  itudier  cel  a  en  detail  main  tenant,  car 
’nous  y  reviendrons  plus  loin. 

•  PAUSE  10 
^P.utflip 

ERASE  q_uitt*r%() 

DIM  Q_uitter%(l) 

MENU  textemenulQMEXU  M_table»u$() 

ON  MENU  GOSU1  Menu 

Q_uiUerSS(0)=0 

DO 

ON  MENU 

EXIT  IF  Q_u  i  1 1  c  c%  (0)  >  0 
LOOP 
MENU  Kilt 
RETURN 

PROCEDURE  Menu 

IF  M_tab]eaui(Menu(0))^  NOW 
Q_uilter%(0)~l 
END1F 

IF  M  _t  able  au|  (Men  u  (Ind  iceJMen  u  (O) )  — *  NOT* 

Q_uitter%  (0)  =2 
END  IF 
MENU  Off 
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RETURN 

PROCEDURE  Extend 

'Cette  petite  procedure  Buxitiun  permet  d*  verifier  La  aaiaie 
'dee  aoitu  de  fichiera,  e'eet-  Ad  ire,  ii  I’extemion  indiquie  par 
Tutitiaateur  correspond  bien  ft  celte  demand4e  par  le  program rrm 
'(£.xltfaion|).  Si  cela  n'ut  pu  ti  caa,  le  programme  rem  place 
'la  mnuvaitt  extern  ion  pas  la  bonne. 


IF  lN$TR(Selected$,"  ")”0 

Select«dt=Sdeetedt E  xtcnuonj 

ENDIF 

IF  RlGRTi(Select*d|  ,3)  oE  xteniiont 
P_oe=INSTR(SelecledS,*") 

Select edf = LEFTI  ( S  el eel  ed I  P  oe)  +  E  x t e m  io  n  t 
ENDIF 
RETURN 

PROCEDURE  K  ill 

* 

'Encore  one  autre  procedure  auxiliaire  Si  Voua  aou  bailee  efTacer 
'un  fichier  pendant  I'idition  et  ddsiret  ne  pu  aaiiir  ft  la  m»in, 
'lout  le  ehemin  de  enaction,  il  luffil  d’entrer  en  mode  direct 
'"(bK  ill”.  Voua  pouvet  enauite  choiair  te  fichier  ft  efTacer. 

'En  diquant  la  bolte  "OK",  le  Itchier  est  effect  II  faut, 
'cependant,  que  la  prlunte  procedure  ae  trouve  en  mintoire 
'principal®  avant  qua  voua  puiaaiet  I'appeler 

F1LESELECT  "\V"",F.ki!l! 

IF  F.kilWo"\"  AND  F.kiti*>" 

KILL  F  killl 
ENDIF 
RETURN 


'Voua  trouvnrta  ci-aprfta  quelque*  fond  ions  ioui  GEM  pour 
'leaquelle*  il  n'exiate  paa  d' instruct  ion  en  BASIC.  Cm  fonctiont 
'ne  aont  paa  4tudiftee  en  detail  Pour  das  renaeignement* 

'comp  lament  tires  con  cement  le  GEM,  voir  tee  chapitree 
1  co  rreipo  nd  n  n  t  e  „ 
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PROCEDURE  ShowmouM 

'Cell*  fonclion  permct  de  rtafficher  la  cuncur  de  la  eourit  qui 
'a  414  d4*activ4  4  faide  de  "Hidemoute",  Si  voua  entree  Ion  de 
"DPOKE  Intin",  0  au  lieu  de  I,  it  fail!  fat  re  autant  d’appete  de 
"ShowmouM*  que  d'appela  de  "Hidemoute”,  efin  de  pen  voir 
'rtafficher  le  curseur  de  la  eourie  Si  voua  tou  bailee  que  )e 
'curteur  eoH  viaible  tore  de  chaqu#  appei  dc  "Sho  wmoute" ,  il 
Taut  4teindre  le  compteur  d  appela  [Intin^}, 

DPOKE  Contrl+2,0 
DPOKE  Contrl+6,1 
DPOKE  CcntrU  I2f2 
DPOKE  Intin .0 
VD1SYS  132 
RETURN 

PROCEDURE  Kidemouee 

*11  m  peut  qu’il  toil  utile  d'ttetndre  ]e  cursciir  de  la  eourie 
-(per  ex.  en  chnrgeimt  ta  page -4c ran  dan*  le  programme 
'graphique). 

'La  fonclion  “DEFMOUSE*  du  Baatc  ne  l'eteint  pat  enticement. 
'Mime  ti  voue  met  tee  ia  chain*  de  carmctfa-e*  de  DEFMOUSE  4  aero, 
‘seult  la  forme  et  le  mat  que  du  cuneur  eont  modifi#*.  C'ett 
'pourquoi  la  prteente  fonetion  du  GEM  peut  4tre  irh  utile. 

DPOKE  Cuntrle3,Q 
DPOKE  Centric  6t0 
DPOKE  Contri+  12,2 
VDISYS  139 
RETURN 

PROCEDURE  CtipprecfCl.tt nt%) 

'Cette  procldur#  ttt  umi  touvent  utitie4e  4  rinttriiur  du 
‘programme.  Elle  permet,  com  me  ceta  a  d4j4  4t4  dit  que  tout  let 
‘nffichnget  graph  quet  aolent  limitie  4  une  parti*  da  l'4crnn. 

Tout  ce  qul  d4patce  cette  part  it  eel  coup4 
’En  indiquant  tee  par  am*  tret,  teuie  une  variable  locale  cat 
’appelfe,  ear  eeutea  let  partita  en  question  eont  allumiee 
’ou  iteintei 
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’Vou*  n't  tea  done  pas  obliges  d'indiquer  4  cheque  foil  la  titfi 
'•ntiln  dcs  coordonnCe*.  D'ailleura,  "ailumer"  et  "4  lei  nd  re"  ne 
■iont  peut  ttr#  pas  t»  nome  correct*  dims  c«  contexts  En  fait, 
'on  ne  flit  que  puitr  de  In  bolts  Clipp  qul  est  plus  petite  que 
'la  totality  de  In  page-4crsn  4  tine  ■  litre  bolt*  ay  am  aaclcnint 
'la  mtmc  taille  que  celle-ci  et  vice  vena, 

□POKE  Contrl+2,4 
DPOKE  ContrUfl.l 
DPOKE  ContrU  12.2 
DPOKE  Intin.l 
IP  Cl.ilnt%  =  l 

DPOKE  Ptsin.Cl.xf% 

DPOKE  Ptsin+2,CI  yB% 

DPOKE  Pt*in+4,Cl.xd« 

DPOKE  Ptsin+e.CLyd* 

VDISYS  120 

ELSE 

DPOKE  Ptsin.0 
DPOKE  Plain*  2,0 
DPOKE  Ptain+i.GSS 
DPOKE  Pt tin +6,399 
VDISYS  129 
ENDIF 
RETURN 

PROCEDURE  C_lippr#e2(CL*Ut1Cl  xf.Cl.yg1Cl.xd1CLyd) 

'Cette  procedure  permet  de  redeflnir  uix  boll*  "Clipp".  Pour  ce 
'qui  eat  de  la  definition  dee  indices  du  tableau,  eite  eat 
'identique  4  la  procedure  precedents.  II  faul,  cependant,  lui 
'attribuer  une  lisle  complete  das  coordonneea 

DPOKE  C on tr  1+2,4 
DPOKE  Contrl+6,1 
DPOKE  Contrl+12.2 
DPOKE  Intin, Cl  .slat 
DPOKE  Ptam.Cl.xg 
DPOKE  Ptain*2,Ct.yg 
DOPKE  Pt#in+4,Cl.xd 
DPOKE  Plain*  6,Cl.yd 


-  453  - 


Le  tivre  du  BASIC  G/A 


VDtSYS  129 
RETURN 

PROCEDURE  cc ntour (Via ible %) 

T1  n  ut  pai  pr*vu  an  BASIC  GfA,  de  cNer  une  bolte  remplie  Ou 
PRBOX.  PCIRCLE,  BELLI  PSE  ou  POLY  FILL  »an*  qua  1b  contour  *oit 
'viaible.  La  prlMnte  fonction  pcrmet  d'allumtr  ou  d’4teindre  le 
'contour  d  une  PBOX  etc.  (Vimble=l  “>  allum£  /  Vi«ibk=0  =:> 
'tteint). 


DPOKE  Contrl+2.0 
DPOKE  Contrl+6.1 
DPOKE  Contrl+  12,2 
DPOKE  Inti^Vieiblefc 
VDISYS  104 
RETURN 

PROCEDURE  G .r uhberbox( Rubbx*g%,Rubbyag% ,Rubbxrnin%,Rubbymm%) 

Jl  ■'agit  de  la  bolte  "Rubber"  originate  du  GEM.  It  fan! 

'mdiquer  &  cette  procedure  lei  coordonntti  du  coin  luplneur 
'gauche  de  la  bolte  "Rubber"  iDuhaitie,  airul  quo  sa  largeur 
’el  la  hauteur  maximum. 

Elle  ne  peut  lire  nppelfe  qu’en  appuyant  iur  la  touche  de  la 
'eouria. 

'En  Isiiiiint  une  touche  de  la  souris  enfoncCe,  le  coin  inferteur 
’droit  de  la  bolte  *uit  le  cuneur  de  la  aouris.  St  voui  rel&chec 
‘la  touche,  La  fonction  eat  terminte 

‘Lea  vari  ablet  "Rubbxg"  et  "Rubbyg*  conticnnent  lee  coord  ounces 
'du  coin  auplrieur  gauche  de  la  bolte  (inchang^)  et  le*  variable* 
”Rubbxd$6"  et  *Rubbyd%"  comport  ent  let  eoordonn*ca  du  coin 
'inferieur  droit  de  la  bolte  au  moment  du  "released  button" 

'(releaae,  angl.  :  reltchcr  /  button,  angl.:  bouton). 

DPOKE  Gintin,Rubbxsg% 

DPOKE  Gintm+2,Rubbyig% 

DPOKE  Cintin+  4,Rubbxmin% 

DPOKE  Gintin#G,Rubbymin% 

GEMSYS  70 
Rubb  xg9$ = R  u  b  bx  ag55 
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Rii  bby  g%  “  Rubby 

Rubbxdft  :=  Rubbxg%  +  DPEEK(Cintcut+  2) 

Rubbyd%= Rubby  g%+  DPEEK(Gintout+  4) 

RETURN 

PROCEDURE  G  row, ahrink. b®x(C*. flng%. bit*  56,  LUy^G.i-iilSfi.Eith^Bigx  56,01 

gyS6,Bigi56,Bisb?6) 

'Cette  procedure  permit  d«  crter  lea  imuunUa  bolt**  de  nut  qut 
'produisent  plain  d’effeti.  Voua  lea  rencontre  re*  aurtout  en 
'oiivrant  den  fichiara  ou  de*  fenHre*  tur  le  desktop, 

'De  nombreux  paramttre*  aont  affect#*  4  cette  procedure 
1  i.  Gl  flsfiK  indique  la  function  qui 

*  doit  itre  appclle, 

*  0  =  Growbox  (grow,  nngl  :  grand  tr] 

*  Z  —  Shrink  box  (ihrink,  angl  :  diminuer) 

*  II  a'agit,  dana  le*  deux  eo*.  d'une  grande  *1  d'une 

*  petite  bolt*. 

*  Lor*  de  "Growbox”,  U  petite  e»t  le  point  de  depart 
et  i*  grande  le  point 

*  d’arriv#e. 

*  Pour  "Shrink box",  c'etl  exactement  I' invert* 

2.  Utx%  contient  la  coordonn#*  X  du  coin  suptrieur 

gauche  de 

*  la  petite  bolte 

*  3  Lity96  re  pr#  sente  la  coordonnia  Y  du  mime  Coin 

*  4.  Litl 56  contient  la  large  ur  en  pixel*  de  la  petite 

*  bolte. 

5.  Lith%  comporte  ■&  hauteur, 

6./7./8./0.  contiennent  le*  vaJeur*  corre*  pond  antes 
pour  la  grande  bolte, 

DPOKE  Gintin,LHx56 
DPOKE  Gmtin  +  3,Lity% 

DPOKE  Gintin*  4, Lit  156 
DPOKE  Gintin+6,LithSt 
DPOKE  Gintin+6,8igx56 
DPOKE  G  intin*  10  Bjgy56 
DPOKE  Gintin*  12,Bigl% 

DPOKE  Gintin*  14,Bigh56 
IF  G*  ftag%=l 
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GEMSYS  74 
ELSE 

GEMSYS  73 
END  IF 
RETURN 

PROCEDURE  Formalart  ( Aliton.D ({button,  Alboxtextf , Albut t«xtS) 
*H  I'&git  ici  d«  U  bolt®  d’xl&rm*  original*  ioui  GEM. 


Si  vous  comptez  essayer  touies  les  possibility  de  cette  bolte,  il 
faut  vous  attendre  a  un  bon  nombre  de  plantages  du  systfeme  avant 
de  connaitre  les  principes  de  base  de  la  boite  d'alarme.  La  bolte 
d'alarme  du  BASIC  ne  peut  entrainer  un  plantage  du  systeme  ear 
les  indications  sont  verifies  par  I' interpreter  et,  le  cas 
echeant,  raccoureies  ou  modifies. 

La  pr«ente  boite,  cependant,  represente  une  source  de  plantage  si 
on  I'utilise  de  fa^on  imprudente.  Mils  une  fois  les  points  faibles 
reconnus,  elle  peut  St  re  utilisec  pour  de  plus  nombreuses  varia¬ 
tions  que  la  boite  d'alarme  du  BASIC  (lorsque  vous  dcssinez, 
pressez  done,  en  plein  programme,  la  touche  <HELP>). 

Les  m€mes  paramStres  sont  affectes  a  cette  procedure  comme  pour 
I'  instruct  ion  ALERT.  C’est  seulement  I’ordre  qui  change.  Vous 
pouvez,  cependant,  modifier  I'ordre  de  !a  liste  de  variables  vue 
ci-dessus,  comme  vous  le  souhaitez.  II  faut  simplement  les  affecter 
ensuite  dans  le  bon  ordre,  si  vous  desirez  appeler  la  pryente 
procedure.  Regardons  ma mtenant  de  plus  pry  la  structure  de 
I’ instruction  ALERT : 

ALERT,  indice  de  I'icOne  Info,  texte  de  la  boite,  indice  du 
bouton  ayant  un  contour  noir  (bouton  Default),  texte  du  bouton, 
variable  de  retour  du  bouton  effectivement  clique. 

L'appei  de  la  presente  procedure  a  une  structure  semblable  : 


@Formalert (Indice  dt  I'lcCne  info,  indice  du  bouton  Default, 
texte  da  l&  bolte,  texte  du  bouton). 
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La  variable  de  retour  n’existe  plus.  Efle  est  definie  a  pres  Puti- 
lisation  de  ta  boite  Une  fois  que  le  programme  est  revenu  de 
cette  procedure,  vous  pouvez  lire  P indice  du  bouton  effectivement 
clique  &  partir  de  ta  variable  "A -select". 

Les  lignes  du  texte  relahf  a  la  boite  ou  les  mots  retail  fs  au 
bouton  sont  separes  comme  pour  rinstruction  ALERT  par  un  tiret 
vertical. 

A  la  difference  de  ALERT,  il  est  possible  de  representer  (norma-* 
lement)  un  maximum  de  40  carac  teres  au  lieu  de  30  pour  le  texte 
de  la  boite  et  de  10  carac  teres  au  lieu  de  8  pour  le  texte  relatif 
au  bouton. 


AIrtrjna$-,T+  STR*(AILcon)+"lP+ Alboxtext*+*il’*+  Albuttext$+T+  CH 

mo) 

LPOKE  Add  fin ,  V  ARPTR  (AUtHng  J) 

DPOKE  Gintin, Definition 
GEMSYS  52 

A.*e]ect=DPEBK (G  ntout) 

RETURN 

PROCEDURE  Click* 

DPOKE  G intin  2 
DPOKE  Gimln+2.3 
DPOKE  G  inline  4,1 
GEMSYS  21 

Click%=  DPEEK(Gintout) 

RETURN 

PROCEDURE 


'txtiinSfc  =  1  ->  FONT  8*8  /  txtalaeft  =  t  ->  FONT  8*16 

MATCH  I — MK 1 1  (if  HA000) +  MKIS(&H 2009) +  M  K I S  [4c  H  4  E  7  5 ) 
A%= V  ARPTR(  MATCH!) 

M.edr*=*C:*A*() 

*Ce  petit  pngrunme  de  machine  utilise  une  eai-diaante  variable 
"Line  A*  pour  determiner  i'adresae  de  la  Front  able  Pour  cela, 
*il  faut  attnbuer  k  une  chains  de  caractire*  let  code*  mnemoi 
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de*  i  mt  rucl  iona  -  machine*  (Hcxa)  ccrreapondantes  rn  tant  qu« 
chain*  de  cnructlrci  MKIS 

SAOOO  =  adrenea  do  la  tone 

S2D09  ~  instruction  machina  (tram fort  de  dotmto  AO  =>  DO) 
I4ETS  =  RTS 

Entente,  la  chalne  do  cvwttm  contlent  un  programme  de 
'machine  en  miniature  qui  pent  ttr«  npptU  gi-lcn  a  l'i  net  ruction 
’de  taut  "C:*. 


C: 

Syntaxe : 

C:var[(lisie  de  parametres)] 

L’instruction  C  permel  d’appeler  un  programme-machine  en  langage 
compile  C.  11  faut  alors  indiquer  1’ ad r esse  de  !a  routine  et,  le 
cas  echeant,  une  lisle  des  parametres.  S’il  n’existe  pas  de  para- 
metres,  il  est  possible  d’indiquer  des  parentheses  vides  (voir  plus 
haut).  Pour  transmettre  des  parametres  d’une  longueur  de  32  octets, 
il  faut  utiliser  le  prefix®  "L:"  (voir  paragraphe  "GLMDOS"), 
En  general,  les  mots  sont  transmis  sans  identification.  Lots  du 
retour  au  BASIC,  la  variable  precedant  P instruction  C:  represente 
le  contenu  de  DO  (mot  long). 


CALL 
Syntaxe : 

CALL  VarKliste  de  parametres)] 

CALL  est  une  instruction  de  saut  d£j&  bien  connue,  appelant  (assem- 
blant)  des  programmes-machines.  Aucune  variable  ne  la  precede  et 
seule  Padresse  de  la  routine-machine  sur  laquelle  il  faut  se 
brancher  est  indiquee.  Comme  pour  C:,  il  est  possible  d’affecter 
une  lisle  de  parametres  (contenu  dans  des  mots  longs). 
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Pour  cela,  it  faut  affecter  an  programme-mach i ne,  sur  la  pile, 
d’abord  une  vaieur  de  16  octets  representant  le  nombre  des 
paramctres  indiqufe  et  ensuite,  une  vaieur  de  32  octets  con  tenant 
fadresse  de  la  routine. 

Exemple : 

CALL  machine*  l  1,2,VARPTR(XS)) 

f'oniadr%=LPEEK(M.«lr%+  T*Ui*«96#4) 

'L’adrcuc  obtcnua  eat  tronemiae  &  oett*  routine  aoua  VDISYS  «t 
'i«  PONT  choiei  e*t  alow  sllumi. 


LPOKE  Intin  .Font ad 
DPOKE  Contrl+2  0 
DPOKE  Contrl+0.2 
DPOKE  ContH+  10.102 
VDISYS  S 
RETURN 

PROCEDURE  D.aiae(Flnml) 

ERASE  S_how*i*cK() 

DIM  S_howai*«96(l) 

IF  Flnmf-"* 

FILES  ELECT  "\V\"p,Flnm| 

S  howiiic^  (0) = 1 
END  IF 

IF  Ftnmlo"* 

DtaS— SPACES{44) 

Dat.add96=VARFTR(DtaSJ 
Buff%=GEMDOS{AHlA  L:Dal  add%) 

Dalnam$=“" 

A% =G  EMD  G  5  (A  H4E.L:  V  ARPTR  ( Fl  nm  I )  .A  HO) 
Datai*e%=LPEEK(Dat  add%+  26) 

FOR  1=30  TO  43 

IF  PEEK(I*Dat.add56)>32 

Dalnam$— Datnamf+  CHRI(PEEK(I+  D at  add%) ) 
END  IF 
NEXT  I 
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FOR  1=30  TO  43 
POKE  1+  Dat.add%  0 
NEXT  I 
ENDIF 

IF  S_howiLi«%(0)=l 

B  oxtext$="L*  fichier]"  +  Flnmt+'lont  une  taille  de| 
"+STR|(DaUi*e%)+-  octet* r 

ALERT  1  ,B_ox text  1.1  *  OKAY  ’\B.alerl% 

ENDIF 
RETURN 
PROCEDURE  Tm 

ALERT  2  ."Quit  ter  le  programme  OKAY  |  NON  “,B.al«rt96 

IF  B.alert%=l 
EDIT 
ELSE 
CONT 
ENDIF 
RETURN 

PROCEDURE  Helptext 
•  * 

lei  tout  d#p©*4*  )u  lex  tea  ret&tifi  k  la  bolte  el  au  bouton  qui 
'secant  transmli  4  la  bolte  d 'alarm*  original*  du  GEM  taut  que  la 
'louche  <HELP>  eat  enfonc4e 

En  ce  qui  concere  ta  prhenti  vvilti  de  la  bolt*  d  alarm* .  11 
’foul  prendre  join  que  la  longueur  de*  textes  en  T.txtF  el 
"B.txtl*  tt«  toil  pa*  p!u>  grande  qu'indiqute.  Sinon,  on  risque 
’  inevitable  men  t  le  plan  tag*  du  ayatime. 

t 

IF  Ar*a»%=I 

F  txt*=-  MOVE  /  COPY  .  A  I'aide  de  la  louche  gauche  de  la 
aourif  =  di  terminer  le  Coin  *up4rleur  gauche 

B  -  txt  t ="deaainar  .bolte.  tou  chat .  cu  r» .  reap  <  Shi  ft  >  to  uches .  filch*.  = 
fonc  tio  n  * .  a  p*c .  >  RETURN  <“ 

ENDIF 
IF  Area*%=0 

IF  D.rawmode96=>l  AND  D.rawmode%<10 

F.txt|=*FO NOTIONS  PATCH.  Deaainar  4  I  aide  de  la  touche 
gauche  de  In  eourie.  Modifier  gr&ce  aux" 

B  txt  i="  touche*  de  fond  lone:  taille,  motif,  type  de  trait, 
largeur  de  trail  et,  «tyt«. 
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>EETURN<* 

ENDIF 

IF  D.n«mode%^10 

F  txl$= “Function  SELF  Touche  g&uc he =de* *iner  /louche  droit* 
“d^placer  II  eat  possible  grice  *  " 

B.txtS— "de  dm  ncr  da  IcAnci  et  dei  bloc*. 

>  RETURN <* 

ENDIF 

IF  D.r*winodt%=>  1 1  AND  D  rawmod*?6<20 

Ftxtl— "FONCTIONS  RUBBER  Touch*  gauche  =d£  terminer  point  de 
depart  et  d coiner  botte.Lea  deux" 

B  txtS=" touche*  =  CANCEL 
>RETURN<* 

ENDIF 

IF  DjawmodeSS^JO 

F  txi|="FONCTlON  LINE  Touche  gauche— main  levic  /  touche 
droite=affichcr  dro  tea  /* 

B  txt$— "deux  touche*  =  detainer  droitea 
>RETURN<* 

ENDIF 

IF  D  rawmodc9(— 21 

F  txti="  FUNCTION  FILL  .  Dea  surface!  aont  remptiea  par  le 
motif  choiei.  * 

B.txtJ— *  Touche  gauche  s  dlelencheur, 

>RETURN<* 

ENDIF 

IF  Drawmode%=22  OR  Dr  aw  mod  e%—  23 

F  txll="FONCTIONS  SPRAT  Plot -Spray  place  dea  point* 
noire. Pat t -Spray  place  le* 

Btxtl— "motif  choiei  .Variations  dea  touches— different  a 
diamitres  dea  pouita.>EETURN<" 

ENDIF 

IF  D.rawmode%=24 

F.txtl— "FONCTION  MARKER.  La  taille  du  marquoge  dtpend  de  la 
tallle  du  patch.  Choix* 

B.txt|=i*  =s  appuyar  aur  iec  deux  touche*  don*  le  tableau  d* 
menu  Marker.  >RETURN<" 

ENDIF 

IF  D.rawmodeSG— 25 
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F  txtl="FONCTlON  TEXT  Format  du  t*xte=appuyer  sur  let  deux 
(ouches  duu  le  tableau  de  menu  Text.  " 

B,txt)="tDuche  gauche— met t re  en  place  une  chain e  de 
caracUres/touche  droite=efTacer  chains  de  enracUfii. 

>RETURN<" 

ENDIF 

ENDIF 

^Formal trt( 0 , 1  ,F  .lx t $  B  Lx t S ) 

RETURN 

T.m.tcxt: 

DATA  TYPE.HAUTEUR.ANGLE.COULBUR 
Iltexte: 

DATA  “micon_t" ,"micon_2* J*inieon_3" ,*  mk  dh_4"  "micon_E " ,*'rtiicon  6"t"m 
iron _ 7" mi  con _ 8"  "mi  con_B*  ,*mi  c  on  _  1 0"  ,"mic  on _ 1 1* ,"  mi  c  on _ i  2**  ,"mic  on 

_lS',"micon_14" 

DATA  pmiccn_lS",*'imcon_lG,,,*imcon_17,Vnrucon— l8".wmicon_l9".,,micon— 
20"  ’micon^2 1* 2"  ,*i micon_23"  "mi  con_24" micon_25" 

G  rofmenutext: 

DATA  ©^.PATTERN,  13,47,  PLUS .72, 37 .PATTERN ,72 .4 7,  MOINS.138,37,  LI 
NE,  138,47,  PLUS 

DATA  201,87,  LINE.197,47,  MOl NS, 264,37,  UNE, 264, 47,  TYPE.32S.S7,  L 
INE, 326.47,  FORM 

DATA  387,37,  PATCH .392,47,  PLUS ,450,37,  PATCH.4&1.47,  MOINS 
DATA  616,37,  DRAW  ,522, 47.MODE, 575 »37,GRAPHIC.6B4l47,MODE 
ModeTexfc: 

DATA  Carre, rempli,  a.  cont.cnrrti.vide 

,  ,carr4, rempli  cont, reel. &r, rempli  , 

a.  cont.rect  ar.vide 

,  .rectangle,  rempli  ,t.  coni 

DATA 

Cercle  .rempli  ,a.  cont.cercle  .vide  ,  .cercU  , rempli  , 

a.  cont.Self 

.defined, Icon  ,5  rubb  .rempli  ,a.  con t,S  rubb  ,vide  , 

,S  rubb  .rempli  ,b.  coni 

DATA  R  rubb  .rempli  ,a  cont,R.rubb  .vide  ,  ,R  rubb  ,rem 

P*i  ,*■  cont.E.rubb  .rempli  a.  cent  ,E  rubb  ,vide  ,  , 

E.rubb  .rempli  ,a.  coni 

DATA  #  LINES  ,  t  ,  FILL  ,  .Plot  .  SPRAY 

,  .Fall  .SPRAY  ,  ,  ,  MARKER. 

.  TEXT  . 
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Menutext: 

DATA  Fl.bl at k  1F21whUt.FSJnexl,F4 .dear, FS ,  t  nek , F6 ,s av* ,F7  load ,F8 
.quit, 


M .  tableau _ t«xte : 

DATA  ACCESSORY. . * 

DATA 

DATA  DO  IT,  N  O  W  ,  N  O  T  /'-.XXX 


’Le  lilting  du  programme  gr&phique  flnjt  id  11 


Les  listings  suivants  doivent  fitre  consider^  a  part.  11s  n'ont 
Hen  a  voir  avee  !e  programme  graphique. 


3.2.26  Les  instructions  dc  son 


SOUND 


Syntaxe : 

SOON D  canal .volume.no  le,octavc[ ,dur&) 

SOUND  canal.volume,#periodef  .duree] 

L’ instruct  ion  SOUND  permet  la  modification  d'un  de  ses  trois 
canaux-son  Pour  cola,  il  faut  indiquer  cinq  parametres  differents. 
separes  entre  eux  par  des  virgute. 


Par  a  met  re  1 
Parametre  2 
Parametre  3 
Parametre  4 
Parametre  5 


-  numero  du  canal -son  (1-3) 

*  volume  (0-15) 

=  octave  ( I  -8) 

=  note  (1-12) 

•  duree  pendant  laquelle  le  ton  est  main  ten  u 


H  est  possible  d1  indiquer.  au  lieu  des  parametres  3  et  4,  un  sen! 
parametre  en  commun,  precede  par  le  caractere  de  numero  "#*.  La 
valcur  de  ce  parametre  est  calculce  comme  suit  :  125000  divise  par 
la  frequence  d’un  son  (par  ex.  A  -  440  Hz)  +  0.5. 
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L’instruction  pour  la  note  LA  esi  alors  la  suivante  :  SOUND 
1,12  ,#284 ,50, 


WAVE 
Syntaxe : 

WAV E  canal,enveloppe,forme,penode,duree 

V instruction  WAVE  permet  d'appeler  les  differents  canaux  de  la 
puce  de  son  Yamaha.  Encore  une  fois,  cinq  differents  parametres 
sont  indiques 

Parametre  1  =  allumer/eieindre  les  canaux  de  son  et  de  bruit 

II  existe  trois  canaux  pour  generer  du  son  et  trois  pour  generer  du 
bruit.  La  valeur  du  premier  parametre  est  calculee  a  partir  d'une 
valeur  a  6  bits.  Le  premier  bit  concerne  alors  le  premier  canal  de 
son,  le  deuxieme  bit  le  deuxieme  canal  de  son,  le  troisieme  bit  le 
troisieme  canal  de  son,  le  quatrieme  bit  le  bruit  sur  canal  1,  le 
cinquieme  bit  le  bruit  sur  canal  2  et  le  sixieme  et  dernier  bit  le 
bruit  sur  canal  3.  Cest  la  valeur  de  ces  bits  qui  determine 
maimenant  si  le  canal  est  utilise  ou  non. 

Par  ex. :  &X  1010 II  ou  43 

I  ier.  canal  de  son  utilise 

2i£me  canal  de  son  utilise 

1  ier.  canal  (bruit)  utilise 

3iCme.  canal  (bruit)  utilise 

Parametre  2  -  affectation  de  la  courbe  enveloppe  Comme  vous 
1'avez  vu  ci-dessust  les  valeurs  des  bits  determ inent  quel  est 
le  canal  qui  utilise  la  courbe  enveloppe. 

Parametre  3  *  determination  de  la  forme  de  la  courbe  enveloppe  ; 

0-3  -  lineaire  decroissant 

4-7  lineaire  croissant 
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8  «  dent  de  scie  decroissante 

9  =  lineaire  decroissant 

10  »  triangle,  decroissant  au  debut 

1 1  =  lineaire  decroissant/ valeur  haute 

12  a  dent  de  scie  croissante 

13  *  lineaire  croissant/constant 

!4  =  triangle,  croissant  au  debut 

15  »  lineaire  croissant 

Parametre  4  -  allongement  de  la  courbe  enveloppe 

0  =*  non  allongee,  plus  la  valeur  est  grande,  plus  la  courbe  est 
longue. 

Parametre  5  *  le  temps  qui  doit  s’ecouler  avant  d'executer 
Pinstruction  suivante 

Voir  £galement  le  paragraphe  "Interrupt -Sounds  en  XBI 05(32)*  au 

chap itre  3J229. 

# 


Celui  qui  s’est  cteja  occupy,  de  fa$on  plus  detaillee,  de  la  puce  de 
son  Yamaha,  comprendra  sans  doute  mon  embarras  pour  la  deerire. 
Mcme  les  connaissances  les  plus  profondes  dans  ce  domaine  ne 
garantissent  pas  automat  iquement  1’efTet  souhaite. 

Cest  pourquoi,  vous  trouverez  ci-opres,  un  petit  programme  vous 
permettant  de  decouvrir  plus  facilement  ce  mystere.  La  structure  de 
base  de  ce  programme  est  plutOt  simple.  Ceia  dev  rail  done  vous 
inciter  a  le  modifier  selon  vos  propres  idees  et  experiences  afin 
qu*il  y  ait  aussi  un  peu  de  "musique4*  qui  en  sorte. 


(3  image  1 
DO 

REPEAT 
MOUSE  X.Y.K 
WAVE  0.0 
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SOUND  0,0 
IF  K=0 
XI=0 
Yl=0 

Xl=INT({X-43}/4§)+l 

YI=INT((Y-153)/17)+I 

IF  XI>0  AND  XI <19  AND  Yi>0  AND  YK1S 
IF  Xt>0  AND  XI <9 
Octave -XI 
ENDIF 

IF  Yt>0  AND  Yl<13 
Bruits  15- Yl 
ENDIF 

WAVE  P.IJP.2,P  3.P  A,P  6 
SOUND  canal  vol.bnjit  octave- l.durea 
SOUND  can al-1  ,v©1  .bruit  octave, duree 
SOUND  canal*  l.vol,  bruit  .octave*  1  ,dune 
ENDIF 
ENDIF 

PRINT  AT{  10.7};*  Sound  -  canal1  VO  'octave1  IS  bruit 'duree"1 
PRINT  AT(  10,8);" W ave  *;P  l,P.2,P.3,P.4T.$m 
Key-ASCfRIGHTl(INKBYt)} 

IF  Key = SO 
<aF.in 
ENDIF 

UNTIL  MOUSEK  OR  (K«y>59  AND  Kcy<66) 

MOUSE  X.Y.K 

IF  (Y>42  AND  Y<78)  OR  (Key >6 8  AND  Key<66) 

(Srrglngc 

ENDIF 

LOOP 

PROCEDURE  reglage 
X2=INT((X~3$}/40}d 
IF  X2=l  OR  Key  ^59 
(aP.in 
ENDIF 

IF  (X2=2  AND  Ksl)  OR  Key=60 
INC  P.l 
ENDIF 

IF  (X2— 3  AND  K=l)  OR  Key =61 
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INC  P.2 
END  IF 

IF  (X2=4  AND  K=l)  OR  Key=62 
INC  P.8 
ENDIF 

IF  (X2=6  AND  K=l>  OR  Key  =63 
INC  P.4 
ENDIF 

IF  (X3=6  AND  K-l)  OR  Key=64 
INC  P.6 
ENDIF 

IF  (X2=7  AND  K-l)  OR  Key =65 
INC  canal 
IF  canal>3 
canal =3 
ENDIF 
ENDIF 

IF  (X2=8  AND  K=l)  OR  Key =66 
INC  dure* 

ENDIF 

IF  (X2=©  AND  K=l)  OR  Key =67 
INC  vol 
IF  vol>I$ 

VoI=*6 

ENDIF 

ENDIF 

IF  (X2=2  AND  K=2)  OR  Key =60 
DEC  P.I 
IF  P.KO 
P.I=0 
ENDIF 
ENDIF 

IF  (X2=S  AND  K=2)  OR  Key=61 
DEC  P-2 
IF  P.2<0 
P.2=0 
ENDIF 
ENDIF 

IF  (X2=4  AND  K=2)  OR  Kcy=62 
DEC  P.3 
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IF  P.S<0 
P3=0 
BNDIF 
ENDIF 

IF  (X2=B  AND  K— 2)  OR  Key=63 
DEC  P.4 
IF  P.4<0 
P.4=0 
ENDIF 
ENDIF 

IF  (X2=6  AND  K— 1}  OR  Key  =64 
DEC  P.6 
IF  P.S<0 
P.E=0 
ENDIF 
ENDIF 

IF  (X2=7  AND  K=2)  OR  K«y=66 
DEC  ctnat 
IF  cunal<G 

CMltl=0 

ENDIF 

ENDIF 

IF  (X2=8  AND  K“2)  OR  Key-66 
DEC  duree 
IF  dur*e<0 
Duree=Q 
ENDIF 
ENDIF 

IF  (Kt=9  AND  K=2)  OR  Key=67 
DEC  vol 
IF  vol<0 
Vol=0 
ENDIF 
ENDIF 

WAVE  P.  1  pP.2,P .S,P  ,4 ,P  6 
PAUSE  2 
RETURN 

PROCEDURE  imsg«_l 
Vol^tS 
DEFFILL  ,2,4 
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PBOX  10,10.619,379 
BOX  9,9,620,380 
DEFFILL  ,0,0 
PBOX  18.18,436,371 
DEFFILL  ,2,8 
DEFTEXT  ,16,2700,28 
TEXT  610,  IOQ,"SOUND -CHECK" 
DEFTEXT  0,1,0,18 
RESTORE  T.fcnctlon 
FOR  1=40  TO  400  STEP  40 
PBOX  I  40,1+30,80 
READ  F.txtf 
GRAPHMODE  2 
TEXT  !+6,67,F.txt| 

GRAPHMODE  1 
NEXT  1 

GRAPHMODE  2 
DEFTEXT  ,0.0,4 
TEXT  *44 .70.*  QUIT* 

TEXT  84,70."P.l" 

TEXT  124,70,"?  2" 

TEXT  164, 70,' *F.  3* 

TEXT  204,70*P.4* 

TEXT  244,70  *P.6“ 

TBXT  284, 70, "CHAN* 

TEXT  824 ,70  "HOLD* 

TEXT  364 ,70," VOL" 

TEXT  404,70-TEST* 

DEFLINE  1,4 
GRAPHMODE  1 
BOX  40,160,430,867 
DEFLINE  1,1 

FOR  3=01  TO  879  STEP  48 
FOR  1=170  TO  340  STEP  17 
LINE  43,1,427,1 
NEXT  I 

LINE  3,163,3,357 
NEXT  3 
DEFFILL  1,0 
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OFFLINE  1,4 
PBOX  163.145,307,157 
BOX  163.145,307,157 
PBOX  22,150.45,357 
BOX  22,150.46,357 
DEFTEXT  1.0,0, 4 
RESTORE  Octavctcxt 
FOR  1=1  TO  8 

READ  oct.txtl.TxtJto 
TEXT  Txt  ko.lG6.Ocl  txt* 

NEXT  I 

DEFTEXT  1.0.0, 6 

TEXT  100,164*0  C  T  A  V  E* 

RESTORE  bruit 
FOR  1=166  TO  353  STEP  17 
READ  Not.txtl 
TEXT  27.1, Not, txtl 
NEXT  I 
RETURN 

PROCEDURE  Win 
PAUSE  10 

ALERT  2, "Fin  de  programme  7*  .2  ."OKAY  (NON*, Back  alert 
IF  Backalert— 1 
PRINT  CHR$(7) 

EDIT 
END  IF 
RETURN 
Octave  text: 

DAT A  lint , fiO.second ,9 7 ,t h i rd , 1 4 9 , fou rt h ,  1 04 ,fi ft h .245 .sixth ,203 ,se 

venth  .335 .eighth  .365 

Bruit: 

DATA  BAHtGf  IG.F#,F,E,D#(D1C#IC 
T.fonetion: 

DATA  Fl,F2.F31F4.F6,F®.F7,F8pF9,Ft0 
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MIN  /  MAX 
Syniaxe : 

MIN  expression,expression[ .expression,...] 

MAX  expression,expres$ion[  .expression,...] 

Les  functions  NON  et  MAX  fournissent,  soil  la  plus  petite,  soil  la 
plus  grande  valeur  ou  chaine  de  caracteres  con  ten  ue  dans  une  liste 
depressions  ou  de  variables.  Cette  liste  est  mise  entre  paren¬ 
theses  apres  rinstruction. 


Excmple  : 


B=3*I1 

A"MIN(l,S,813“8iB1111T) 
PRINT  A 


Sortie  :  1  (la  plus  petite  valeur) 


Al=MIN(-A-  *B",*c") 

PRINT  Al 


Sortie  :  A  (la  plus  petite  chaine  quant  a  sa  valeur  ASCII) 

Si  MIN  £tait  remplacee  par  MAX,  la  plus  grande  valeur  ou  chaine 
de  caracteres  de  la  liste  serait  affichee. 


3.2.27  Coni r61e  du  programme 


TRON  /  TROFF 

Syntaxe ; 

TRON  (#canal] 
TROFF 
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V instruction  TRON  permet  le  suivi  du  deroulement  du  programme. 
Si  Pinstruction  est  utilises  route  seule  sans  suffixe,  les  lignes 
de  programmes  actuellement  traitees  sont  affichees.  Ceci,  par 
contre,  peut  €tre  genant.  II  existent  deux  possibilites  permettant 
de  Peviter  ; 

1.  Vous  ouvrez  un  fichier  sur  disquette  (voir  OPEN)  et  ajou- 
tez  ensuite  le  numero  de  canal  du  fichier.  Cela  permet  de 
transferer  le  listing  des  lignes  de  programmes  dans  le 
fichier  en  question.  Ce  listing  peut  ensuite  £tre  affiche 
grice  a  Pinstruction  INPUTS, 

2.  Vous  ouvrez  le  virtuel  fichier  'XST:"  et  ajoutez  egalement 
le  nombre  du  canal  choisi  &  Pinstruction.  Cela  permet  de 
sortir  les  lignes  de  programme  sur  imprimante. 

Exemple  : 


OPEN  •".#l(#LST;- 
'  TRON  #t 

-  -  A  pnrtir  d'ici  euil  la  portie  du  programme 

—  qui  doit  Hr*  conirdM*. 

TROFF 


II  est  possible  d’utiliser  les  instruction  TRON  et  TROFF  & 
n'importe  quelle  endroit  du  programme  et  de  contrOler  atnsi  m£me  de 
petites  parties  de  programme  ou  des  lignes  individuelles.  L’ ins¬ 
truction  TROFF  (ermine  le  test  de  programme.  Apres  TROFF,  le 
programme  se  retrouve  en  mode  normal.  II  ne  faut  pas  indiquer  un 
numero  de  canal  a  cette  instruction.  Si  vous  utiliser  ces  possi¬ 
bilites  pour  quitter  le  mode  direct,  prenez  soin  que  les  fichiers 
soient  toujours  refermes  dans  Pordre. 


3.2.28  Les  menus  dSroiilanls.  les  fenfltres  el  les  events 

Celui  qui  s’est  deja  occupe  de  la  programmation  sous  GEM  connait 
Pimportance  des  instructions  du  present  BASIC  qui  facilitem  la 
creation  de  menus  deroulants  et  de  f entires. 
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Nous  prendrons  comme  base,  pour  nos  explications,  un  programme 
permettant  d'utiliser  un  menu  derouiant  et  jusqu’a  quatre  diffe- 
rentes  fenfires,  en  n’employant  que  des  moyens  faciles. 

La  notion  de  "facile"  n’est  ici  que  relative.  L'emploi  des  diffe- 
rcntes  instructions  comporte  £v  idem  men  t  quelques  obstacles  a  sur- 
monter,  surtout  pour  les  debutants.  Le  present  programme  est  con^u 
dans  le  but  de  servir  de  base  pour  la  programmation  de  fenetres  et 
de  menus.  Essay ez4e  et  notez  les  diff events  effets  a  V inter ieur 
du  menu  et  des  fenetres  quand  vous  appelez,  par  exemple,  des  op¬ 
tions  de  menu  ou  que  vous  choisissez  des  elements  situes  au  bord 
des  fenetres. 

Nous  conseillons,  &  tous  ceux  qui  on!  I* intention  de  s’occuper  plus 
intensement  de  GEM,  de  se  procurer  "Le  livre  du  GEM  ATARI  ST* 
(Micro  Application). 

D’ailleurs,  ce  progr  amme-exem  pie  n’a  rien  a  voir  avec  le  programme- 
graphique  deem  plus  haul.  II  faut  bien  differencier  les  deux  pro¬ 
grammes. 
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ON  BREAK  COSUB  fin 

Pour  s’assurer  qua  toutes  las  fenfires  sont  refermees  dans  Pordrc 
ou  qua  la  menu  est  eteint,  il  faut  prendre  soin  qua  la  programme  se 
branch©  sur  la  procedure  de  fin  de  programme,  mama  lors  de 
BREAK  (<CONTROL>,<SHlFr>1<ALTERNATE>).  Si  ces  Iravaux 
de  fin  de  programme  ne  soni  pas  effectufe,  un  plantage  du  systema 
peui  se  produire. 

DIM  M  option*(32) 

fl  faut  crecr  un  tableau  de  texte  con  tenant  les  differents  lextes 
de  menu.  Prenez  alors  soin  de  definir  das  dimensions  assez  larges. 

Toutes  les  chaines  de  caracteres  af  fee  ices  sont  comptees  (y  compris 
les  chaines  vides). 

RESTORE  M.dntaa 

Les  textes  des  options  de  menu  sont  places  de  preference  dans  dcs 
lignes  DATA.  11s  peuvent  ctre  affiches  grfice  &  la  boucle  suivante  : 

for  1=0  to  so 
READ  M.optiemt(l) 


Cette  boucle  attribue  les  differentes  chaines  de  caracteres  DATA  au 
tableau  de  texte  de  menu.  11  faut  alors  noter  que  le  premier  menu  a 
la  structure  suivante : 

Here  chaine  Nom  de  menu  (eventual  iement,  nom  de  programme). 

2ieme  chaine  N’importe  quel  litre  (ici :  11  Informal  ion”). 

Vous  pouvez  placer,  sous  cette  option  de  menu 
n’importe  quelle  fonction  du  programme.  Mi  is 
comme  il  s’aglt  ici  de  la  seule  option  de  menu 
que  vous  pouvez  utiliser,  il  vaut  mieux  I’employer 
pour  sortir  un  bloc  d’information  eoncernant  voire 
programme. 
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3ieme  chaine  Sene  de  signes  meins  (ou  traits  d'union), 

Le  nombre  des  tirets  determine  ici  la  largeur  du 
menu.  Comme  ce  menu  contient,  en  general,  les  ac- 
cessoircs  du  bureau  event  uellement  existants,  il 
faut  tenir  compte  de  la  longueur  des  diff ©rents 
titres  d’accessoires. 

4ieme-9i6me  chaine  Six  chaines  vides  gardant  la  place  pour  les 

accessoires.  I!  n’est  pas  permis  d’attri* 
buer  des  chains  nulles  ! 

IGieme  chafne  Chaine  nulle.  Cette  chafne  nulle  iermine 

chaque  serie  de  menus. 

A  cette  premiere  structure  de  menu  doit  £tre  ajoutfe  maintenant  les 
autres  menus  auxquels  peuvent  etre  attribues  des  noms  quelconques. 
Ces  menus  ont  fa  structure  suivante  :  tout  d’abord  le  litre  (la 
chaine  restant  tou jours  visible  a  la  bande-menu)  et  ensuite  les 
noms  des  options  de  menu.  11s  dotvent  se  terminer  -  comme  cela  fut 
lef  cas  pour  le  premier  menu  -  par  une  chaine  nulle  (""). 

A  pres  avoir  lu  tout  le  contenu  des  menus,  il  faut  rajouter,  a  la 
fin,  une  autre  chaine  nulle  I!  n’est  pas  tou  jours  evident  de 
savoir  combien  de  chaines  DATA  doivent  litre  lues.  C’esi  pourquoi  il 
est  conseille  d’utiliser  la  structure  deer  ire  ct-dessus.  Celle-ci 
permet  de  quitter  ©galement  la  boucle  de  lecture,  si  une  chaine  de 
fin,  pour  laquelle  vous  pouvez  choisir  un  nom  quelconque  (ici  : 

" - ")t  est  tUe.  Cette  chaine  n’est  pas  inseree  dans  ie  menu.  IL 

faut  simplement  prevoir  un  nombre  d'el&nents  suffisant  pour  le 
tableau  de  chaine. 

Si  vous  souhaitez  qu’un  crochet  (checkmark;  angl.  :  marquage  de 
contrdle)  soil  place  devant  une  option  de  menu  lorsqu’elte  est 
activee,  il  faut  prevoir  deux  btancs  avant  le  text©  de  1’option  du 
menu  en  question. 

De  plus,  it  est  possible  de  representer  le  texte  d’une  option  de 
menu  en  vid©o-image  (gris  «  inaetif).  Pour  cela,  tl  faut  que  le 
premier  caracter©  d’une  chaine  de  texte  commence  par  le  signe 
"moins"  ("-*’)  (voir  egatemem  "MENU(index  de  menu)". 
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EXIT  IF  M  opiion*(I)=" - " 

NEXT  I 

M  option! (I) =n 

M  datas: 

DATA  DESKTOP 

DATA  Informalion 

n  *  a 

DATA 

mm 

DATA 

DISKETTE 

DATA 

Charger  fichier 

DATA 

Sauvegarder  fichier 

DATA 

Crier  fichicr 

DATA 

EfTecer  fichier 

DATA 

- -  QUU -- 

DATA 

SERVICE 

DATA 

-  BLOC  1 - * - - 

DATA 

Option  menu  in 

DATA 

Option  menu  tb 

DATA 

Option  menu  tc 

DATA 

- —  BLOC  2 - 

DATA 

Option  menu  2& 

DATA 

Option  menu  2b 

DATA 

Option  menu  2c 

DATA 

- -  bloc  s  — . 

DATA 

Option  menu  3a 

DATA 

Option  menu  3b 

DATA 

Option  menu  Se 

DATA 

— - 

Menu  M.option!{) 

MENU 
Syntaxe : 

MENU  (tableauS) 

L' instruction  MENU  indique  &  i’ interpreter  a  quel  end  roil  de  la 
memoire  se  trouvent  les  enregislrements  de  menu. 
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Pour  cela,  il  faui  mdiqucr  le  nom  du  tableau  de  chame  con tenant 
ces  texies  de  menu. 

OPENW  0 


OPENW 
Syntaxe : 

OPENW  handle 

L’ instruction  OPENW  ouvre  la  fenfitre  &  laquelle  vous  attribuez  un 
numero  (handle). 

Dans  !e  cas  present,  la  feneire  0  a  etc  ouvertc  en  tarn  quc 
contour.  II  ne  s'aglt  pas  d'une  feneire  pour  laquelle  vous  pcuvez 
definir  la  tailie.  Elie  ne  rcprcsente  que  le  fond  d*un  menu 
deroulant,  cventuellemcnt  existant.  Si  la  feneire  0  n'etait  pas 
ouverte  et  si  vous  n'utilisiez  pas  d'autrcs  renet  res,  la  bande  de 
menu  serai t  surimprimee  a  cause  des  instructions  PRINT.  Si  vous 
ouvrez*  par  conlre,  la  fcnetre  0.  te  bord  superieur  de  Pecran  est 
decoupe  de  18  pixels.  Cette  ‘bande,  d’une  largeur  de  18  pixels,  peut 
ensuite  contenir  la  ligne  de  t£te  du  menu  deroulant  et  loutes  tes 
instructions  de  sortie  prennent  le  pixel  X=0/Y=I8  de  Pecran  ernier 
comme  origine. 

DPOKE  Contri+2,0 
DPOKE  Contrl+6,1 
DPOKE  Conlrl+  12,1 
DPOKE  lniin.1 
VDISYS  106 

DPOKE  Contrt+  2,0 
DPOKE  C-ontrl+S.t 
DPOKE  Contri+  12,1 
DPOKE  Inttn.9 
VDISYS  tor 


-478  - 


V  a  b  c  du  C/A 


Les  deux  functions  sur  VD1  permettent  de  meitre  en  place  le  type 
et  la  hauteur  des  caracteres  de  la  bande-menu  ou  de  la  zone  de 
bord  de  la  fenetre. 

11  s’agil  ici  des  fonctions  sous  GEM  qui  n'ont  pas  de  lien  direct 
avec  la  programmaiion  des  fenfires.  Vous  pouvez  les  utiliser  pour 
determiner  les  types  de  caracteres  g  employer,  y  compris  d’ail- 
leurs,  les  caracteres  du  desktop. 

Dans  le  present  exemple,  la  hauteur  des  caracteres  est  deter  minee 
dans  "Intin"  par  la  valeur  6  et  leur  type  par  la  vateur  16.  Toutes 
les  valeurs  "Contrl"  doivent  dire  uti  Usees  comme  plus  haul.  Elies 
sont  identiques  aux  parametres  DEFTEXT  correspondents. 

DEFTEXT  .1,0.15 

La  prcsente  definition  DEFTEXT  permet  de  modifier  egalement  les 
sorties  PRINT  a  Pinterieur  de  la  fenetre.  Si  la  largeur  des  came- 
teres  est  mod  if  ice.  les  positions  du  curseur  changent  egalement 
tors  de  PRINT  AT. 

DEFFILL  .2,4 
PBOX  0,0,^59,100 
FOR  1=1  TO  4 

DPOKE  Windtab+  2*  (t  1)*12.&X1 11111111110 

Ici,  les  elements  aclifs  du  bord  de  la  fenetre  sont  determines. 
Vous  trouverez  la  signification  des  differents  bits  dans  le  para- 
graphe  WINDTAB. 

INFOW  I  -  Ugne  'Inf©'  *VSTR$(I) 


JNFOW 
Syntaxe : 

INFOW  handle, infotextS 
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II  est  possible  d’irtserer  des  textes  de  references  ou  quelque  chose 
de  si  mil  a  ire,  &  rinteneur  d'un  programme  qui  est  en  train  d'etre 
traite.  Cette  ligne  d’ information  se  Irouve  juste  an  dessous  dc  la 
barre  grise  superieure.  Elle  est  definie  par  r instruction  IMFOW. 
Pour  cela,  il  faut  tout  d'abord  ajouter,  i  I* instruction,  1e  numero 
de  la  fenStre  en  question  puis,  a  pres  une  virgule,  le  texte  ou  la 
chaine  de  caracteres  qui  doivent  figurer  sur  la  ligne  <T informa¬ 
tion. 

Si  vous  souhaitez  ef facer  cntierement  la  ligne  ’info’,  il  suffit  de 
[ransmettre  une  chaine  nolle  (H")  &  INFOW. 

TITLE W  I*  ligne  litre*  “+STR*(1) 


TITLEW 
Syntaxe  : 

'  TITLEW  handle,titeltext$ 

L' instruction  TITLEW  permet  de  donner  un  litre  &  la  fenetre  en 
question.  La  structure  de  cette  instruction  est  identique  d  ceite 
dTNFOW.  Si  aucun  litre  ne  doit  dire  indique,  il  suffit  de 
transmettre  une  chaine  vide.  Une  chaine  nulle  {*'')  fait  que  fa 
fenetre  ne  pourra  plus  fitre  deplacee  en  aliquant  la  barre  grise 
MOVE. 

OPENW  I 
CLEAR W  I 
NEXT  1 
COUNT =4 

Cette  variable-compteur  permet  de  savoir  si  toutcs  les  fenCtres 
sont  refer  mees  dans  I'ordre. 

m 

ON  MENU  COSUB  M.dnl 
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ON  MENU  GOSUB 
Syntaxe : 

ON  MENU  GOSUB  nom  de  la  procedure 

Le  programme  se  branche  sur  la  procedure  Indiquee  par  F  instruction 
ON  MENU  GOSUB  lors  d’un  event  de  menu  (event;  angl.  :  ev£ne- 
ment).  Si  une  option  a  etc  cliquee,  il  faut  programmer,  &  Finte- 
rieur  de  la  procedure  en  question,  les  mesures  &  prendre  lors  d’un 
event. 

ON  MENU  MESSAGE  GOSUB  M  *«*age 


ON  MENU  MESSAGE  GOSUB 
Syntaxe : 

ON* MENU  MESSAGE  GOSUB  nom  de  la  procedure 

11  faut  egalement  ajouter  a  la  presente  instruction,  une  procedure 
sur  laquelle  se  branche  le  programme  lors  d’un  des  nombreux  events 
autres  que  ceux  merit  iannes  ci -dess us.  Cette  instruction  permet 
principalement  d'analyser  les  events  de  la  fenetre.  Ces  events  sont 
listes  et  expliques  dans  un  "MENU  (event index)1*. 

ON  MENU  KEY  GOSUB  K  ey 

ON  MENU  KEY  GOSUB 
Syntaxe : 

ON  MENU  KEY  GOSUB  nom  de  la  procedure 

La  presente  instruction  indique  la  position  sur  laquelle  doit  se 
brancher  le  programme  si  une  touche  du  clavier  est  enfoncee, 

ON  MENU  IBOX  1,10,10,100,100  GOSUB  I.box 
ON  MENU  OBOX  3.10,10.100,100  GOSUB  O  box 
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ON  MENU  IBOX  GOSUB 
ON  MENU  OBOX  GOSUB 


Syntaxe : 

ON  MENU  IBOX  ind. coord -X .coordY.largeur.hauteur 
GOSUB  procedure 

ON  MENU  OBOX  ind.coord-X  coord -YJargeur. hauteur 
GOSUB  procedure 

Les  deux  presents  instructions  permettent  de  definir  quatre  diffe- 
rentes  zones  de  Tecran,  Le  GEM  verifie  alors  si  le  curseur  de 
la  souris  y  a  accede  ou  les  a  quitie.  Chacune  des  deux  instruc¬ 
tions  peut  gerer*  simultanement,  deux  zones  qui  indiqueni  ensuite 
au  GEM  si  le  curseur  de  la  souris  se  trouve  a  rinterieur  (IBOX) 
ou  a  Texterieur  (OBOX)  de  ia  boite. 

Les  coordormees  et  mesures  ne  se  referent  pas  a  forigine  de  la 
feneire  mais  a  t'origine  absolue  qui  se  trouve  dans  le  coin  supc- 
rleur  gauche  de  Peeran. 

Le  nom  d'une  procedure  est  indique  a  cette  instruction.  Le  program¬ 
me  s*y  branchera  lots  des  events  en  question. 

Les  parametres  ont  la  signification  suivante  ; 


ind 

coord -X 
coord -Y 
largeur 
hauteur 
procedure 


numero  (indice)  de  la  zone  definie 
coordonnee  X  de  cette  zone 
coordonn£e  Y  de  cette  zone 
fargeur  de  cette  zone 
hauteur  de  cette  zone 

nom  de  la  procedure  sur  laquelle  le  programme  se 
tranche  lors  d'un  event. 


DO 

ON  MENU 
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ON  MENU 
Symaxe  : 

ON  MENU 

L’inst ruction  ON  MENU  demande  au  programme  de  verifier  si  un 
event  a  eu  lieu*  Si  vous  n*  utilise*  pas  cette  instruction,  aucune 
procedure  n’est  appelee,  mime  si  elle  a  ete  indiquee  auparavant  par 
ON  MENU  GOSUB.  Cost  pourquoi  il  est  utile  de  mettre  ON 
MENU  le  plus  souvem  possible  dans  votre  programme.  Pour  ceta* 
it  est  preferable  de  mettre  en  place  one  boucle  principal  parcou- 
rant  constamment  le  programme  et  rencomrant  ainsi  ON  MENU 
lors  de  chaque  parcours.  Cest  seulemcnt  darts  ce  cas  la  que  le 
programme  peut  reagir  aux  event u els  events.  De  plus,  t!  est  con* 
seilli  d'utiliser  cette  instruction  a  rinterieur  des  boucles  d'at- 
tente  internes.  Sinon,  aucun  event  ne  peut  it  re  traite  tant  que  le 
programme  reste  a  rinterieur  de  la  boucle  cTattente. 

MOUSE  X.Y.K 

Xd~DPEEK(WINDTAB+a+(MENU(4)-l)*12)-20 

Yds  DPEEK  ( WIN  DT  AB  +  104-  (MENU  (4 ) - l)4 12) -60 


WfNDTAB 
Syntaxe : 

WINDTAB 

Cette  table  n’est  pas  une  vraie  fonction  du  BASIC.  Elle  a  une 
fonction  similaire  a  cette  de  la  variable  reserves  ERR.  Comme  pour 
ERR*  on  y  trouve  diffirentes  valeurs  (un  quement  des  valeurs  a  16 
bits)  qui  nous  fournissent  des  renseignements  sur  certains  etats. 

Mais  WINDTAB  est  encore  plus  performante.  Vous  pouvez  indiquer, 
a  t'interieur  de  quatre  mots  (I  mot  *  2  octets)  de  cette  table, 
quels  som  les  elements  du  bord  de  chaque  fenetre  qui  doivcnt  it  re 
dessincs  et  qui  sont  done  actifs. 
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Cela  est  faisable  grace  4  : 

WINDTAB+2  pour  la  f entire  1 

WINDTAB+14  pour  la  fen€tre  2 

W1NDTAB+26  pour  la  fenfire  3 

W1NDTAB+38  pour  la  fenfitre  4 

Une  valeur  4  12  bits  est  attribute  4  ces  chiffres  WINDTAB.  En 
mettant  ou  en  additionnant  les  valeurs  de  bits,  vous  pouvez  deter- 
mmez  les  differents  composants  : 

1  le  NAME  (nom  de  la  fenfetre)  Bit  l 

2  le  tableau  superieur  gauche  CLOSE  Bit  2 

4  le  tableau  superieur  droit  FULL  Bit  3 

8  la  barre  MOVE  de  la  zone  du  bord  superieur  Bit  4 

16  la  ligne  'Info*  sous  la  barre  MOVE  Bit  5 

32  le  tableau  inferieur  droit  SIZE  Bit  6 

64  la  fleche  vers  le  haut  Bit  7 

1 28  la  fleche  vers  le  bas  Bit  8 

256  la  barre  droite  VSLIDE  (deplacement  vertical)  Bit  9 

512  la  fleche  gauche  vers  te  bas  Bit  10 

1 024  la  fleche  doite  vers  le  bas  Bit  1 1 

2048  la  barre  infer ieure  HSL1DE  (deplacement  horizontal)  Bit  12 

Pour  ne  pas  fctre  oblige  de  calculer  4  chaqtie  fois  les  diffirentes 
valeurs,  il  est  possible  de  determiner  les  composants  en  indiquant 
un  nombre  binaire.  A  rinidrieur  de  ce  bit,  chaque  l  represente  un 
element  actif  du  bord. 

Exemple : 

DFOKE  WI  NOT  A  B+2  ,&  X 1 11111111111 

Tous  les  composants  de  la  fenfitre  I  sont  actives. 

DPOKE  WINDTAB42^X00  100 100 1001 

Seules  NAME,  MOVER,  FLECHE  haut  ct  FLECHE  gauche  de  la 

fenStre  I  sont  actives. 

etc. 
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$u  lors  du  lancement  du  programme,  une  ligne  de  t£te  a  etg  cr££ 
par  T1TLEW,  ou  une  ligne  'info*  par  INFOW.  die  reste  active 
meme  si  les  bits  correspondants  ne  sont  pas  positionnfe. 

La  table  est  construite  de  la  maniere  suivante  : 


WINDTAB 

WINDTAB+2 

WINDTAB+4 

W1NDTAB+6 

WINDTAB+8 

WlNDTAB*IO 

WINDTAB*  12 

k 

WINDTAB*22 
W1NDTA  B+24 
a 

WINDTAB*34 

WINDTAB*36 

k 

WiNDTAB+46 


Handle  de  la  fenetre  I 

Attributs  de  la  fend  re  1  (voir  plus  haul) 

Abscisse  X  de  la  fen&re  I 

Ordonnee  Y  de  la  fenetre  I 

Largeur  de  la  fendtre  1 

Hauteur  de  la  fenetre  i 


Les  m&mes  indications  pour  la  fenetre  2 


Les  mfimes  indications  pour  la  fenetre  3 


Les  memes  indications  pour  la  fenetre  4, 


Les  positions  WINDTAB  48  et  50  peuvem  etre  ignorees. 


WJNDTAB+52 
WINDTAB*  54 
WINDTAB+56 
WINDTAB*  58 
WINDTAB+60 
WINDTAB+62 
WINPTA  B+64 
WINDTAB+68 


Abscisse  X  de  Peeran 
Ordonnee  Y  de  Peeran 
Largeur  de  Peeran 
Hauteur  de  Peeran 

Abscisse  X  du  point  d* intersection  des  4  fenetres 
Ordonnee  Y  du  point  <T  i  ntersect  ion  des  4  fenetres 
Abscisse  X  de  Porigine  des  instructions  graph'ques 
Ordonnee  Y  de  Porigine  des  instructions  graphiques 


IF  K=1  AND  X~>0  AND  Y=>0  AND  X<Xd  AND  Y<Yd 


FEINT  X’Y 
END1F 
LOOP 

PROCEDURE  M  ettle 
IF  MENU(l)=ttO 

PRINT  "Eon*  *;MENU(4);":  " ;MENU(5)’MENU(©} 'MENU (7)  'MENU [8) 
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MENU 
Syntaxe : 

MENU(indice  de  Tevcnt) 

il  s*agit  d*un  tableau  numerique  a  une  seule  dimension,  con tenant 
les  informations  relatives  a  revent.  Chaqoe  element  du  tableau 
pent  fctre  affiche  apres  avoir  indique  son  indice.  U  est  cependant 
possible,  d'obtenir  differentes  informations  pour  le  mSmc  indice, 
car  el  les  dependent  tou  jours  de  I'event  qui  s' est  produit. 

MENU(5),  par  example,  contient,  apres  la  modification  d’une 
fenetre,  I’abscisse  X  de  cette  fendtre.  Si,  par  centre,  une  des 

deux  barres  de  d£p!acement  (boite  blanche  au-dessus  a  droite  ou  au- 
dessous  ft  gauche  de  la  barre  scroll  grise  en  question)  a  ete 

utifisee,  il  est  possible  d’obtenir,  pour  le  m£mc  indice,  la  posi¬ 
tion  de  la  barre  de  dcplacement  a  r  inter  icur  de  la  grande  boHc 

(par  rapport  a  Porigine  des  axes  de  la  boite  cn  question  =  0  - 

1000). 

La  possibility  d’obtemr  differentes  informations  ne  concerne  que 
les  indices  de  1  a  8. 

MENU(x)  peut  avoir  les  contenus  suivants  : 

MENU(-l)  Retoiinier  I'idmie  de  I’arbre  d’objciB  actueL 

MENU(O)  L’lndice  de  I ‘option  de  menu  choiti 

MENU(I)  L’indice  du  buffer  (indique  ce  qui  s'est  produit). 

10  (WM  SELECTED)  Le  menu  d*rou]ant  a  iU 
appdf  Vcus  trouverei  dans 
MENU(4)  —  I'indice  du  litre 
MENU(G)  —  I'indice  de  I’cption  de  menu. 

20  (WM_REDRAW)  Redeem iner  la  cone  de  la  fenttre 
Let  eoordonneci  et  la  taille  k  Irouvenl  darn 
MENU(S),  MENUffi),  MENU (7),  MBNU(0) 

31  (WM_TOPPED)  Activer  une  fenetre  Le  handle  dc 
la  fenitre  cliqute  se  trouve  dans  MENU(4). 
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22  (WM_CLOS£D)  Fenner  une  fenttre.  Tableau 
suptneur  gauche  a  tU  choiii  (==>  Clotew). 

23  (WM_FULLED)  Ouvrir  une  (entire  an  maximum. 
Tableau  entier  lupiriiur  droit  a  tit  cliqut 
(==>  Fullw) 

24  (WM_ARROWED)  Scrolling  do  content!  d’une 
(entire  Une  dee  deux  fitches  ou  une  dea  deux 
barret  gnats  de  stroll  ont  tit  cliqutes  Vous 
trou veres  (’indict  de  l'objet  choisi  dans 
MENU(5). 

0  =  page  entitle  vers  le  haul 

1  =  page  cntitre  vers  le  ba* 

2  =  une  ligne  vert  le  haul 

3  =  une  ligne  vert  le  baa 

4  —  page  entitre  vers  la  gauche 

5  =  page  enlitrs  vers  la  droits 

6  —  dun  cran  vers  la  gauche 

7  =  d’un  cran  vert  la  droile 

25  (WM_HSL1D)  Garre  de  dtplacement  horisontale  a 
tit  bougie  Dana  ce  cat,  on  obtient  dans 
MEKU(S)  la  position  de  la  barre  relative  a 
I'ongitie  det  axes  de  la  grande  boitc  (edit 
gauche).  II  s'agit  d'une  valeur  comprise  entr# 

0  cl  100Q. 

26  (WM_V5LID)  Garre  de  dtplacement  verticals  a 
tie  bougte.  La  mfcme  chose  que  pour  IISLID 

L ’origine  de#  axe#  de  la  botle  V  se  trouve  en 
haul. 

27  (WM  SlZED)  Le  tableau  inftneur  drcil  a  ttt 
chqut  Vous  obtenes  dans  MENU(5)  rabteisae 

X,  dans  MENU (6)  l’ordonntc  Y,  dans  MENU (7)  la 
nouvelle  largeur  el  dans  MENU{8)  la  nouvelle 
hauteur. 

28  (WM  MOVED)  La  longue  barre  gnse  situtc  an- 
dessus  de  la  (entire  a  tit  cliquee.  La  (entire 
doii  tire  dtplact#  La  nouvelle  abscisse  se 
trouve  a  nouveau  dans  MENU (5),  la  nouvelle 
ordonnte  Y  dans  MENU(6).  la  largeur 
(inchangte)  dons  MENU(7)  el  la  hauteur 
(tgalemenl  inchangte)  dans  MENU(8). 
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MENU(2) 
MENU(3) 
MENU(4) 
MENU  (5) 
MENU(6) 
MENU(T) 
MENU  (8) 


MENU(O) 


MENU(IO) 

MENU(ll) 


MENU  (12) 
MENU(I3) 


Inconnu  (1  ou  0  ??). 

Inconnu  (0  ??), 

Hand!* 

Abtcine  X  ou  petition  de  la  bar  re  de  diplacement. 

L'ordonnie  Y  de  la  fenttre 
Laffeur  da  la  fen  lire. 

Hauteur  de  la  fenttre, 

Le*  coordonn4es  at  meiurea  aont  v&lables  pour  la 
fenttre  entitre  (y  tomprii  lea  tltmmti  de  bord). 

Eventflag. 

On  pent  obtemr  la  nature  da  I 'event  qui  a  eu  lieu. 

La  valeur  retoumle  reprtsente  une  tine  de  bits  oO 
chaque  bit  posittonni  correspond  k  un  event  qui 
■'cut  produit 

1  =  clavier 

2  =  to  uche  de  l  a  sou  ns 

4  —  Kuril  k  I’intirieur  de  la  boite  1 
8  =  souris  A  I'intfrieur  de  la  boite  2 
16  —  event  glnlral 
32  =  event  timer 

Absciss e  X  de  la  souris  Ion  de  I'event, 

Ordoimtt  Y  de  la  souris  tors  dt  I'event, 

Le*  coordonnfe*  sont  “rtellcs",  c'eat  -i~dir« 

qu'elles  ne  sont  pas  relatives  A  I'orlgine  des  axes 

de  la  fenfire  mail  A  cedes  de  I'tcrsn,  Si  la 

fenitre  cst  ouverle,  MOUSEX,  MOUSEY  et  MOUSE  X.Y.K 

retoument  lea  coordonnfes  relative  k  I'ortgine  des 

axes  de  la  fenitre 

L'Stat  des  touche*  de  ta  souris  tors  de  I'event  (I 
=  gauche;  3  s?  droite  3  =  l«s  deux). 

L'ttat  SWITCH  des  touches 
<SHIFT>  droite  =  1 
<SHIFT>  gauche  -  2 
<CONTROL>  =  4 
<ALT£RNATE>  = 8 

Le*  quatre  difffnente*  touches  peuvent  lire 
combine**.  Par  ex.,  <CONTROL>  +  <SH1FT>  gauche 
==  6,  <  ALTERNATE**  <SH1FT> droite*  < CONTROL* 
-  13  etc 
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MENU(H)  Vkleur  &  16  bits  conUntnt,  4  I'inttrieur  dt 

1 ’octet  lup^rieur,  le  code  SCAN  et,  4  I  intdrieur 
de  ['octet  infcneur,  le  code  ASCI)  de  la  touche 
qui  vient  d'ltrc  enfoncie  (conversion,  voir  le 
programme) 

MENU (15)  N ombre  de*  c lies  sou ri*  qui  out  entrain*#  ('event 

ENDIF 

IF  MBNU(1)=21 

INFOW  MENU (4 )  •{TOPPER)  Window  *+STR$(MENU(4))+*  chois.e" 
OPENW  MENU (4) 

CLEARW  MENU (4) 


CLEARW 
Svmaxc : 

C-LEARW  numero  de  la  fenetre 

L’instruction  CLEARW  permet  d’ef facer  la  fenetre  indiquee.  H  est 
6galcmeni  possible  d'utiiiser  a  ces  fins  Finstruction  CLS  CLS, 
ependam,  n’efface  que  la  fenetre  actueliement  iraitce  11  est 
necessaire  d’effacer  la  fenetre  avant  de  la  deplacer  ou  de  la 
diminuer.  Vous  alter  remarquez  que  le  deplacement  ou  le  changement 
de  taille  d'une  fenetre  entraine  toujours  one  surimpression  du 
contenu  des  autres  fenetres.  La  gestion  du  contenu  des  fendtres 
rclcvc  done  entieremem  de  vous,  car  vous  £tcs  la  seule  personne  a 
savoir  ce  qui  doit  se  passer  avec  ces  contenus  lors  de  certains 
etats.  Les  impressions  peuvent  are  restaurees  facilement  par  des 
boucles.  La  restauration  des  contenus  graph  iques,  par  com  re,  est 
ires  compliqute.  Pour  Fiesta nt,  it  n'existe  pas  encore  de  solution 
&  ce  probleme. 

ENDIF 

IF  MENUf  1)— 22 
CLOSEW  MENU(4) 

DEC  Count 
IF  Count=C 
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ALERT  2  "Fin  d*  programme  ?",1 -OKAY|NON*\D% 

IF  D%=1 
pFin 
ELSE 

ALERT  l."Ouvrir  tenet  rc  (louche*  1  &  4*1l1''OKAY,,1D$G 
ENDIF 
ENDIF 
ENDIF 

IF  MENU{1)~25 
CLOSEW  MENU (4) 

DPOKE  WIND  TAB  +  4  +  (MENU(4)-l)*12,0 
DPOKE  WINDTAB+6+  (MENU(4)-l)*l2,19 
DPOKE  W1NDTAB+  S+(MENU(4)-I)*i2,€39 
DPOKE  W1NDTAB+  IO+(MENU(4)*I)U2,SSO 

Normalement*  il  suffirait  d’unliser  ('instruction  "FULLW  handle%" 
a  I'imerieur  de  cette  routine.  Malheureusement,  cette  instruction 
ne  travaille  pas  eorrectement.  II  est  possible  de  la  simuler  en 
fermant  d'abord  la  fenetre  en  question.  Ensuite,  les  coordonnccs 
souhaitees  sont  entrees  dans  les  elements  WINDTAB  qui  contiennent 
les  coordonnees  de  la  fenetre.  Cette  derniere  peut  alors  etre  a 
nouveau  ouverte. 

INFOW  M£NU(4)  "(FULLER)  Tain*  «niiir*t  r 
OPENW  MENU  (4) 

CLEARW  MENU (4) 

ENDIF 

IF  MENU(1)=24 

INFOW  MENU(4)  "(ARROWS)  Ft4ch*:"+STRS(MENU(5]) 

ENDIF 

IF  MENU(l)=26 

INFOW  MENU(4)  *(SLH>E)Barr*  de  emplacement:  "*STRt(MENU($)) 

ENDIF 

IF  MENU(1)=26 

INFOW  MENU(4)r(SLIDE)B«T*  d*  emplacement:  VSTRS(MENU(5)) 

ENDIF 

IF  MENU1)~27 

DPOKE  WINDTAB+S+(MENU(4)  1)"I2.MENU(T) 

DPOKE  WINDTAB*  IQ*  (MENU(4)-1)*I2JMENU(8) 
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Si  le  tableau  de  valeurs  inferieur  droit  a  etc  clique,  le  nouveau 
format  de  la  fenfitre  est  affecte  aux  elements  correspondants  de  la 
table  WINDTAB. 

CLOSEW  MENU (4) 

INFOW  MENU (4)  ."(SIZER)  Modification  de  la  t  tulle  de  la  (entire* 

OPENW  MENU (4) 

CLEARW  MENU(4) 

@G«t.  whole  area 

PRINT  "Abaci***  X  de  la  surface  de  travail  lor*  de:  ";Workx 
PRINT  "Ordonne*  Y  de  la  surface  de  travail  lots  de:  ";W erky 
PRINT  "Lnrgeur  de  la  surface  de  travail:  ".Work! 

PRINT  "Hauteur  de  la  surface  de  travail:  "-Workh 
END1F 

IP  MENU(I)=2S 

DPOKE  WINDTAB  +  4+  (MENU(4)-I)"I2,MENU{5) 

DPOKE  WINDTAB*  6+ (MENU(4H)*  12  ,MENU(6) 

DPOKE  WINDTAB+8+  (MENU(4)'l)*l21MENU(7) 

DPOKE  WINDTAB*  10+(MENU(4)1)*12(MENU(S) 

# 

La  fenetre  a  ete  deplacee.  La  table  WINDTAB  et  la  ligne  Info’  sont 
mises  4  jour  et  la  fenfitre  est  dessinee  avec  les  nouvelles  coor- 
don  nees. 

CLOSEW  MENU (4) 

INFOW  MENU(4)*(MOVER)  Fen«tre  a  it*  diplacie* 

OPENW  MENU(4) 

CLEARW  MENU(4) 

ENDIF 

RETURN 

PROCEDURE  M.deal 
MENU  OFF 


MENU  OFF 
Syntax© : 
MENU  OFF 
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H  est  conscillc  d'utiliser  I' msl ruction  MENU  OFF  lorsqu’un  menu  a 
ete  ouvcr t  et  one  option  clique  Le  fond  du  titre  du  menu  qui  est 
noir  lore  de  Tappet,  rcdeviendra  alors  blare 

Si  aucune  option  n*a  choisie  et  si  la  f entire  a  6te  cliqute  I 
partir  de  Textcrieur  du  menu,  ce  procede  n’est  pas  necessaire. 

CL9 

PRINT  "MENU  0  :*:M*thj(0);*  MENU  1  MENU  3 

:";Menu(2J 

PRINT  “MENU  3  :";M*nu(3);"  MENU  4  -;Memi(4);"  MENU  5 
;";Menu(5) 

PRINT  -MENU  6  :*;Menu(6);*  MENU  7  :"-M«nu(7);*  MENU  B 

PRINT  "MENU  B  ;"Menu(9);*  MENU  10  :",M«nu(10);"  MENU  II 
;*;Menu(ll) 

PRINT  -MENU  13  "M*nu(12);"  MENU  13  :";Menu(l3);"  MENU  34 
fjMeltufM) 

PRINT  -MENU  18  :*;Menu(lS);"  MENU  -1  (adreeie  d«  I’wfer.  objet) 
--■M*nu(l) 

Mp%=MENU(0) 

L' indice  de  Toption  de  menu  choisie  est  en  general  affeetd  au 
MENU(O).  11  correspond  a  la  position  de  Telement  de  texte  contenu 
dans  Toption  de  menu  en  question. 

Les  tests  suivants  concernent  Tevent  qui  vient  d’avoir  lieu  et 
ulilisent  le  texte,  contenu  dans  Telement  du  menu  de  texte,  pour 
la  verification.  II  faui  alors  que  la  chaine  de  caractcres  utilises 
pour  le  test,  soit  rigoureusement  identique  h  la  chaine  alpha- 
numerique  du  menu  (y  compris  les  blancs). 

IF  M.  option!  (Mp?Q=“  Information" 

An  itrJ="L«  fenitrti  f*rm4efl  peuvent  4treLouvert«a  i  nouvtnu 
gr&ce  a  uk  |" 

Aji.itrl— An  *tr|  +  "touchee  de  chiflree  IMP 
ALERT  l)Al.«tr3,l,-OKAY-1Dummy 
ENDIF 

MENU  MpK,2 
MENU  Mp%(I 
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MENU  Mp  mem56,3 
MENU  Mp.memSS.O 


MENU 
Syntaxe : 

MENU  indice  du  menu,option 

La  presente  instruction  per  met  de  determiner  si  une  option  de  menu 
doit  etre  representee  en  gris  (inactif)  ou  en  noir  (actif).  De 
plus,  il  est  possible  d*afficher  des  crochets  (checkmarks)  devant 
la  ligne  de  texte  de  I’ opt  ion,  indiquant  a  insi  quc  la  fonctton 
representee  par  Poption  cliquee,  est  actuellement  active.  Pour  la 
rendre  active,  r indice  de  Poption  a  marquer  ou  a  inverser  est 
place  apres  V  instruct  ion,  suivi  de  Poption  souhaitec  (apres  une 
virgule). 

0  '  positionner  des  symbols  de  test 

1  ef facer  des  symboles  de  test 

2  option  de  menu  active  (noir) 

3  option  de  menu  inactive  (blanc) 

Mp  mem$$  ^Mp% 

IF  M.optiont(Mp%)=*  Charger  le  nebier* 

1  Routine  de  chargement 

KNDIF 

IF  M- option  $(Mp56)="  Sauvegarder  le  Itchier* 

*  Routine  de  eauvegarde 

ENDIF 

IF  M  optlonl (Mp%]s*  Crier  le  fichier* 

*  Routine  Init 

ENDIF 

IF  M. optionS  (Mp%)  =*  Effacer  le  fichier* 

*  Routine  Kill 

ENDIF 

IF  M  option$(Mp?6)="  Quit" 

1  Routine  Quit 
#Fin 
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ENDIF 

IF  M.opt»on|(Mp%]s=“  Option  de  menu  la" 

*  M ,optiion(Mp% )=“  la  Inver**" 

MENU  M  op'ionld 

II  est  £galement  possible  de  modifier  ulterieurement  le  texte  du 
menu.  Ceci  peut  ctre  intcressam,  si  une  option  de  menu  cliquee 
doit  se  transformer,  apres  rexecution  de  la  fonction  qui  lui  est 
affeetee,  en  la  fonction  inverse  (par  ex.  de  "noir"  en  "blanc").  II 
faut  alors  modifier  Pelement  du  tableau  ccmenant  le  texte  du 
menu,  selon  find  ice  de  f  opt  ion  de  menu  cliquee.  Vous  trouverex 
findice  de  cette  option  dans  MENU(O). 

En  rempla^ant  le  texte,  il  faut,  cependant,  prendre  soin  que  le 
nouveau  texte  ne  soil  pas  plus  long  que  Pancien  (plantage  du 
sy  steme). 

Une  fois  le  texte  remplace,  il  faut  a  nouveau  initialiser  le  menu 
grace  &  MENU  M.option$().  En  appliquant  cette  operation  It  tous 
les-  textes  de  menu,  il  est  done  possible  de  remplacer  des  menus 
en  tiers,  lors  du  deroulement  du  programme. 

Le  nom  du  tableau  de  menu  (set  :  MoptionS)  peut  etre  choist 
arbitra  l  remen t. 


GOTO  ifiiit 

*  Routine  d«  menu  1 
ENDIF 

IF  M.optiontlMp%)="  Is  invert**" 

M.optionS(Mp%)~*  Option  d«  menu  la* 
MENU  M  option|() 

’  Routine  alternative  1 
ENDIF 
Sant; 

IF  M.cptiont[Mp96)="  Option  de  menu  lb* 

*  Routine  de  menu  2 
ENDIF 

IF  M.option3{MpS$)=”  Option  de  menu  lc" 

*  Routine  d«  menu  S 
ENDIF 
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IF  M.opticnJ[Mp96)=" 

1  Routine  de  menu  4 

ENDIF 

IF  M.optionffMpSfi)^ 

*  Routine  do  menu  5 
ENDIF 

IF  M.option$(Mp96)ss* 

*  Routine  de  menu  8 
ENDIF 

IF  M. option t(Mp%)  =* 

*  Routine  de  menu  7 


Option  de  menu  3a“ 


Option  de  menu  3b* 


Option  de  menu  Sc" 


Option  de  menu  3a1 


ENDIF 

IF  M-option$(Mp%|=*  Option  de  menu  3b“ 

4  Routine  de  menu  8 
ENDIF 

IF  M-option$(Mp%)— *  Option  de  menu  3c" 

*  Routine  de  menu  0 
ENDIF 
RETURN 

PROCEDURE  K  ey 

PRINT  "Code.  SCAN  +  ASCII  :  *;MENU{I4) 
Touche*=MKI$(MENU(14)) 

PRINT  "Code  SCAN  :  "PEEK  (VARPTRJ  touche!)) 
PRINT  "Code  ASCII  :  -PEEK  (VARPTR  (touche!) +  1) 


Conversion  (splitting)  du  MENU(14)  cn  codes  SCAN  et  ASCII.  II 
peut  fctre  utile  de  nc  pas  effeclucr  cc  splitting,  car  le  nombre 
de  16  bits  fourni  par  MENUU4)  per  met  a  tout  moment  d' identifier 
sans  aucun  dome  la  touche  enfoncce.  It  n'existe  aucune  touche 
ayant  la  meme  valeur  sur  deux  octets  qu'une  autre. 


IF  RIGHT!  (touche!)=>*l*  AND  A$^<"4" 
OPENW  VAL(RIG HT J (To uche I) ) 
CLEARW  VAL(RIGHT!(Touche!» 

INC  Count 
ENDIF 
RETURN 

PROCEDURE  I. box 
IF  Flag-0 
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PRINT  *U  curwur  de  la  fount  »e  trouve  i  1'inUriiur  dc  la 
bolt*." 

Flag- 1 
END  IF 
RETURN 

PROCEDURE  O.bojt 

IF  Flmg=l 

PRINT  "L*  cumur  d*  la  fount  u  trouve  a  I'exterieur  de  la 
bolt*" 

Flag=0 

ENDIF 

RETURN 

PROCEDURE  Get,  whole  area 

Celle  procedure  retourne  la  taille  et  la  position  de  la  surface  de 
travail  pour  la  fenfire  en  question,  II  s’ a  git  d’une  fonciion  sous 
AES  que  vous  pouvez  toujours  utiliser  si  necessaire.  Normalement  il 
n’en  faut  pas  pour  la  programination  de  fenetres.  Miisf  comme  il 
n’est  pas  encore  possible,  en  BASIC  GfA,  de  sauver  el  de  restaurer 
le* comenu  des  fenetres  avec  une  fonction  sous  GEM,  le  fait  de 
connaltre  la  surface  de  travail  peut  €tre  tres  utile  si  vous  devez 
reahser  la  restauration  vous  m£me. 

DPOKE  Giniin,Menu(4) 

DPOKE  Gmlin+2,4 
GEMSYS  104 

Work*=DPEEK(Ginfcout+  2) 

W  ork  y  =  D  P  E  E  K  (G  int  o  ut  +  4) 

Workl-DPE£K(G  intout +6) 

Workhss  D  PEEK  ( Gintout*  8) 

RETURN 
PROCEDURE  Fin 

FOR  1=4  DOWNTO  0 
CLOSEW  I 
NEXT  I 
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CLOSEW 
Syntax© : 

CLOSEW  handle 

L' instruction  CLOSEW  permet  de  fermer  la  fenfire  indiqu6e  par 
handle. 

Menu  KILL 


MENU  KILL 
Syntaxe  : 

MENU  KILL 

L’instruction  MENU  KILL  permet  de  "deconnccter’’  le  menu.  II  n'est 
plus  possible  de  le  cliquer  bien  que  le  texte  de  menu  reste  tou- 
jours  affiche.  Dans  ce  cas,  la  fenfire  principal©  0  est  deja  fermee 
et  l’ecran  entierement  efface  par  CLS.  Vous  pouvez  continuer  de 
travailler  en  mode  TOS  habitue). 

CLS 

EDIT 

RETURN 


3.2.29  GEM,  CEMDOS,  BIOS,  XBIOS 


Les  /meltons  sous  GEM  -  ( AES) 

GEMSYS 
Syntaxe : 

GEMSYS  numero  de  la  fonction 
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Le  GEM  (Graphic  Environment  Manager)  est  compose  de  deux  parties, 
chacune  ayant  des  functions  differentes  :  le  AES  (Application 
Environment  System)  et  le  VDI  (Virtual  Device  interface). 

L’AES  facilite  le  travail  graph ique  sur  la  machine  (fenetres, 
menus,  formulaires,  boites  d'alarmes)  tandis  que  le  VDI  permet 
1' utilisation  d* instruct  ions  graphiques  de  base  et  Temploi  des 
fonctions  I/O  (entrees/sorties)*  Les  deux  parties  du  GEM  sent  ap- 
pelees  grace  k  deux  differentes  instructions  dont  one  est  GEMSYS. 
GEMSYS  permet  d’appeler  les  fonctions  du  AES. 

Avant  que  vous  utilisiez  cette  instruction,  voici  encore  quelques 
renseignements  concernant  Eorganisation  des  differents  tableaux 
ertfes  par  le  GEM,  qui  sent  prevus  pour  con  ten  ir  ious  les  parametres 
necessaires. 


II  exists  six  differents  tableaux  sous  AES  : 


GCONTRL  :  Entree  et  sortie  de  ('information  de  base,  necessaire  au 
GEM  pour  traiter  un  appel  du  AES.  II  s’agit  du  numero  de  la 
fonction  ainsi  que  des  indications  relatives  a  la  taille  des  autres 
tableaux. 


GCONTRL 

GCONTRL+2 

GCONTRL+4 

GCONTRL+6 

GCONTRL+S 


numero  de  la  fonction 
taille  du  tableau  Gintin  (mot) 
taille  du  tableau  Gin  tout  (mot) 
taille  du  tableau  Addrin  (mol  long) 
taille  du  tableau  Add  rout  (mot  long) 


GLOBAL  :  Sans  imer£t 


GINTIN  ;  Ce  tableau  donne  des  informations  au  systeme  d'operation, 
selon  la  fonction  employee  (par  ex.  le  numero  de  la  fen&tre  en 
question).  II  s’agit  de  nombres  en  tiers  (mots)  que  vous  pouvez 
attribuer  au  AES  selon  la  fonction  souhaitee.  Le  nombre  et  la 
signification  des  elements  de  ce  tableau  dependent  de  la  fonction 
appel  ee. 
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GINTOUT  :  La  fonction  retourne  ceriaines  informations  a  I'inierieur 
de  ce  tableau.  II  s’agit  egalcment  de  mots  contenant  des  nombres 
en tiers.  La  signification  depend  aussi  de  la  fonciion. 

ADDRfN  ;  Si  la  fonction  a  besom  d’adresses  (par  ex.  des  adresses 
de  Parbre  d’objets),  il  faut  les  entrer  dans  Addrin  en  tarn  que 
mots  longs  contenant  des  nombres  entiers  (4  octets). 

ADDROVT  :  Ici,  les  adresses  que  1'AES  a  obtcnu  selon  la  fonction 
en  question,  sont  retournees  au  programmeur  ou  au  programme. 

Pour  les  deux  tableaux,  le  nombre  de  paramctres  depend  egalcment 
de  la  fonction  en  question 

11  ne  faut  pas  tou jours  utiliser  les  elements  de  GCONTRL.  Si  vous 
souhaitez  appeler  une  nouvelle  fonction,  il  faut  indiquer,  apres 
Pinstruction  GEMSYS,  le  numero  de  cette  fonction.  Si  seul  le 
contenu  des  autres  tableaux  doit  #tre  modifie  (sans  changer  de 
fonction),  il  suffit  d'auribuer  les  paramctres  modifies  aux  autres 
tableaux  et  d’ appeler  ensmte  Panciennc  fonction  grace  a  GEMSYS, 
sans  le  numero  de  la  fonction. 

De  plus,  il  est  possible  de  demander,  a  I* aide  d*une  constante, 
radresse-memoire  du  premier  element  du  premier  tableau  AES 
(GCONTRL). 

GB 

Il  est  presque  inutile  d*utiliser  cette  adresse  en  BASIC  GfA,  car 
les  noms  de  tableaux  deer  its  plus  haul  contiennent  deji  les 
adresses  correspondantes  sous  AES.  Si  necessaire,  les  adresses  de 
debut  peuvent  Cgalement  etre  obtenues  comme  suit : 

PROCEDURE  G.inita 

Gcontrl%  »  LPEEK(Gb) 

G.  in  tin  96  =  LPEEK(Gb+S) 

G  in  tout  %  -  LPEEK(Gb+ 1 J) 

G  addnn96  =  LPEEK(Gb+  16) 

G,addrout%  =  LPEEK(Gfa  +  20) 

RETURN 
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Les  variables  ainsi  definies  contiennent  main  tenant  exactemeni  les 
memes  valours  que  cel  les  indiquees  sous  les  noms  de  tableaux  plus 
haul  Dans  le  cas  present,  cela  importe  peu  si  vous  utilisez  "DPOKE 
GCONTRL,I04"  ou  "DPOKE  G.contrl%,  104".  Dans  les  deux  cas,  la 
mime  adresse  esi  appelee. 

Par  la  suite,  vous  trouverez  quelques  functions  sous  AES.  II  ne 
s’agit  pas  d'un  listing  exhaust  if  car  le  court  laps  de  temps 
restant  ne  suffisait  pas  a  adapter  toutes  les  fonctions  sous  AES  & 
la  structure  du  GfA.  Quelques  autres  fonctions  ont  dej&  ete 
decrites  &  1*  inter  ieur  des  passages  precedents. 

PROCEDURE  Get  hand]* 

Attribue  1  ‘handle*  le  nurrrfro  de  la  fenttrt  active 
GEMSYS  77 

llandle=DPEEK(GLntOul) 

RETURN 

PROCEDURE  Windfind(XwndowtYwmdow) 

rAttnbuc  I  "  Windo  whan  die"  le  numtro  de  la  ft  nitre  quj  ie  trouve 
'■oils  k  tuneur  de  la  »ouni.  0  faut  alor*  utilker  le* 

'"vraie**  coord  on  nice  de  la  aouri*,  t'eit-i-diie  cel  tea  qui  u 
rift  rent  &  Porigine  de*  axe*  de  I'lcran. 

'S'll  voua  arrive  de  ne  pa*  *  avoir  comment  le*  obtenlr,  voua 
’pouvea  Igalement  appeler  lea  adreate*  d<  eyaUrae  9962  et  9964, 

C’nt  id  que  le  iyiti<n«  d 'exploitation  place  comtammont 
Tab*cis*e  X  (X=DPEEK(9962))  et  1'nrdonn**  Y  (  Y=DPEEK(09S4)) 

Voua  pouvea  obtenlr  l'4>tat  de*  tmiche*  do  la  aouri*  aoua 
Tadretae  3681.  11  an  flit  d'en  sous!  raj  re  cnauitc  la  valour  248 
'(K=DPEEK  (3581)  248). 

DPOKE  GintinrX  window 
DPOKE  Gintin+ 2,Ywindow 
GEMSYS  106 

Wi  ndowh  Bndk=DP  EEK(G  intoul) 

RETURN 

P EDGED URE  Mov  ebox  (Mo  v  I a  rye, Mov . h aut ,Mov .xdibut ,Mo»  y de b u t  Mo y .xfi n 
.Mov.ytn) 

Tl  eat  possible  de  ddfinir  une  bolt*  qui  a*  dlplace  d'une 
'potation  initiate  ver*  une  poaition  finale. 
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X«*  norm  da  yarinblu  indi  quant  leun  fonctiona. 

DPOKE  C  in  h  n  Mov  large 
DPOKE  Gintin+?,Mov  haul 
DPOKE  G  inline  4,Mov  xdtbut 
DPOKE  Gintin+6(Mov.ydlsbut 
DPOKE  Gintin+  8,Mov  xfin 
DPOKE  Giniin+  i0(Movyfin 
GEMSYS  72 

RETURN 

PROCEDURE  D.ragbQx(D.la(D.hB1D.x1D.yIB.x,R.y.B.le,B.ha) 

'La  prfwntc  procedure  per  met  de  dtfinir  un  rectangle  qul  ne  petit 
'm  diplacer  qu’fc  1’inUmur  d’un  autre  rectangle  difini.  Le 
’premier  rectangle  >uit  lee  mouvemenU  du  cuntur  de  la  souria. 

'Si  Is  cureeur  quitte  la  tone  du  rectangle  exUrieur,  It 
'rectangle  Inttrieur  s'arrtte  fc  ion  bord.  La  prfsente  function  ne 
peut  lire  appelie  qu'en  appuyant  eur  la  touche  de  la  souria,  car 
'etle  ae  termme  immidiatement,  une  fois  le  bouton  lath*. 

'Lee  para  mitre*  *D"  indi  quant  la  tsrgeur,  la  hauteur,  1‘abicitw 

’X  et  fordonnte  V  du  rectangle  intlrieur  tandia  qua  lea 

'par  amt  tree  *B.M  represent  ent  la  largeur,  la  hauteur,  l'abecieae 

’X  et  1'ordonnie  Y  du  rectangle  ext  incur 

'En  fin  de  fonction,  elle  retoume  la  position  finale  du 

'rectangle  dene  *X.fin*  et  “Y.fm*. 

DPOKE  GintEn,D.la 
DPOKE  Gintin+ 2, D. ha 
DPOKE  G inline  4,0.x 
DPOKE  Gintin+e.D.y 
DPOKE  G intin+  8 ,B,x 
DPOKE  G inline-  10,B  y 
DPOKE  Gintin+12,B.la 
DPOKE  Gmtin+14'B  ha 
GEMSYS  71 

Xlin=DPEEK(Gintout+2) 

Y.fin=DPEEK(Gintout+4) 

RETURN 

PROCEDURE  touche  de  la  eouria 

’La  prbenta  fonction  retoume  lea  "vr&iee"  coordonn4«*  de  la 
'aouria  et  I'itat  de  sea  touches  ainei  que  celui  de*  touches  de 
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'commutation  (voir  MENU). 

CEMSYS  T9 

Soy  riax = DP  EE  1C  (G  ini  out  *  2) 

Soun«y-DPEEK(Ciritout  +  4) 

Souriiic  -  D  P  EEK(G  intout-)-  0) 

Fhpkey=DF££K(Gmtout  +  B) 

RETURN 

PROCEDURE  MouscevcntfOutm.Ev  boitxg.Ev  boxyf, 

E  v .  box  targe, E  v  boxhaut ) 

'll  eet  possible  de  difintr  une  bolt*  mdivtduelle  pour  laquelle 
'!•  programme  control*  rn  ei  le  concur  de  la  sauni  y  entre 
'(Outin-0)  ou  en  <ort  (Outin=l)  La  tonction  n'est  interrompue 
‘qu'apres  que  1  ivinement  k  soil  produit, 

‘L'AES  attend  cals  avant  de  pounuivre  1  execution  du  programme 
‘Finalement,  lev  coardonniee  de  la  position  de  la  MUtii  et 
Tit  at  dee  touche*  de  commutation  eont  ret  curate. 

DPOKE  Gintin.Outin 
DPOKE  Gmtm+  2  Ev  boxxg 
t)POKE  Gintiti+4.Ev.boxyg 
DPOKE  Gintin+6,Uv  boxlarge 
DPOKE  Gintinea.Ev.boxbaut 
GEMSYS  22 

SouriBX=DPEEK(G  ntout+  2) 

Souney  =  DPEEK  (G  in  lout  +  4  ) 

Souriec=0FEEK(Gmtout+ 6) 

Switchc — DPEE  K  ( G  intout+  0} 

RETURN 

PROCEDURE  Keyevent 

April  Tappel  de  In  prtsente  fonction,  1'AES  attend  qu’une 
'touche  soil  enfonetc.  Enauile,  le  code  de  cette  touche  eat 
'aFfectee  k  "K  eye  ode"  (valour  de  16  bill  doit  Itre  trail**  eemme 
'“On  Menu  Key"). 

GEMSYS  20 

Key  code= DPEEK  (G  intout) 

RETURN 
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PROCEDURE  Buttonevent  (C]icki,Ev.buttonT£v  be  tat) 

Apr^a  Tappet  de  la  pr*iente  fonction,  TABS  attend  qu’une 
'touche  aoit  enfonc4e.  Le  nombn  diqu&p  aprh  ]**quel*  la 
'fonction  eat  interrompue,  pcut  Htt  dlterminl  dans  "Click*"  Si 
'voti*  indi quiet  done  let  4,  it  faudrait  cliquer  A  tout#  viteui 
'quatre  foie  de  suite  avant  que  le  programme  ae  pourauive  11  eat 
'peu  probable  que  vollb  y  pnrveniea.  Done,  attention  I 
'"Ev .button"  contient  Tindice  de  la  touche  de  la  aoum  qui  doit 
dddencher  1  4v4nement.  Voui  pouvei  limiter  la  fonction  i  n'ttre 
'active  que  el  une  cert  nine  touche  de  la  aouria  a  *1*  enfonefe 
'(touche  gauche- 1 ;  touche  droilr=3;  Ih  deux  touchei«3;  aucune 
’de*  touche*— 0) 

'"Ev  be  tat"  indiqua  1’ttat  de  la  touche  qui  entrain* 

Tmtitialiaation  de  T4v6nement  (0=non  tafonth;  1— enfoitcie) 

'Eniuitt,  "Click*1*  retoume  (cctte  foia  gtobalement)  ie  n  ombre 
’riel  de  clicka  ainai  que  le*  coordoitnfes  de  la  poiition  de  In 
'sou  H*  lore  de  I 'event,  I'*  tat  de  se*  touche*  et  celui  dee 
'touche*  de  commutation. 

DPOKE  G intm .Click* 

DPOKE  G intin-t' 2 ,Ev. button 
DPOKE  G  intin-t  4  .Ev.betat 
GEMSYS  21 

Cl  i  ck* -DP  EEK  ( G  i  ntou  t ) 

Souriix— DPEEK(G  intout  +  2) 

Sour  i  *y - D  PEEK  ( G  i  ntou  t + 4 ) 

Sounie=DPEFK(Gintout  +  6) 

Switch* =DPEEK(Gintout  ♦  8) 

RETURN 

Lcs  fonction*  sous  GEM  (VDf) 
l  DISYS 
Syntaxe : 

VDISYS  numero  de  la  foneiion 

Le  "Virtual  Device  Interface"  vous  permet  d’uiiliser  differentes 
fonctions  con  fort  ables  de  graph  isme  et  de  texte. 
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Comme  pour  GEMSYS,  il  exjste  plusieurs  tableaux  qui  sent  a  remplir 
par  les  valeurs  en  question  et  d’autres,  contenant  des  messages  de 
retour  relevant  de  la  fonction  correspondante.  A  la  difference  des 
appels  sous  AES,  il  faut  indiquer  ici  egalement  Ies  elements  de 
CONTRL.  Si,  par  centre,  vous  ne  souhaitez  que  modifier  le  contenu 
des  autres  tableaux  et  appeler  ensuite  la  meme  fonction,  il  est 
possible  de  nggliger  la  definition  du  tableau  CONTRL  Iors  du 
second  appel.  La  dernidre  fonction  active  est  alors  appel  ee  grace 
&  VDISYS,  sans  indiquer  son  numero.  Si  le  numero  de  fonction  est 
modi  fie,  i)  faut  redefinir  A  chaque  fois  le  bloc  CONTRL.  Le  VDI 
com ient  egalement  cinq  tableaux  de  param&res  qui  n’oni  que  par- 
tiellement  la  m£me  signification  que  ceux  d cents  dans  le  chapitre 
sur  GEMSYS. 


CONTRL 


Des  informations  de  base  y  sont  entrees,  indiquant  au  VDI  qudtes 
sont  Ies  functions  que  vous  souhaitez  appeler  el  comment  dies 
doivent  etre  executees. 


CONTRL 

CONTRL+2 

CONTRL+4 

CONTRL+6 

CONTRL+S 

CONTRL*  IQ 
CONTRL+12 


num6ro  de  la  fonction  (appete  aussi  OPCODE) 
nornbre  d'elemenis  du  tableau  "Ptsin*  specifiques  a 
la  fonction  en  question. 

contient  le  nornbre  d'dements  de  "Pisam",  une  fois 
la  fonction  terminee  (VaR«DPEEK(OONTRL*4)). 
nornbre  d* elements  de  *lntin*’ 

contient  le  nornbre  d ’elements  de  "Intouf,  une  fois 
la  fonction  terminee  (VAR-DPEEK(OONTRL+8». 
numero  d'identification  specif ique 
numeros  de  la  f entire  qui  doit  fitre  appele 


INTIN 

Ce  tableau,  dent  la  longueur  peut  varier,  contient  des  parametres 
spficifique  a  la  fonction  (mots  contenant  des  nombres  entiers).  Les 
parametres  indiquent  &  la  fonction  quelle  execution  est  &  effec- 
tuer,  et  quel  Ies  sont  les  valeurs  que  vous  desirez  garder  pour  un 
traitement  ulteneur. 
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PTSIN 

Le  cas  echeant,  vous  pouvez  indiquer  ici  les  coordonnees  de  la 
position  sur  laquelle  r operation  souhaitee  doit  avoir  lieu. 


INTOUT 

Ici*  la  fonction  retour ne  certaines  valeurs  dont  la  signification 
depend  de  la  fonction  en  question. 


PTSOUT 

La  fonction  retourne  des  coordonnees  ou  des  valeurs  qui,  une  fois 
la  fonction  ter  mi  nee,  contiennent  des  informations  sur  les  etats 
act  yds.  Ce  tableau  n*est  pas  tou  jours  utilise  a  partir  du  VDI. 
Quand  et  quel  les  valeurs  sont  retournees,  depend  &  nouveau  de  !a 

fonction  en  question. 

# 

Vous  avez  deja  rencontre  plus  haut,  quelques  fo net  ions  sous  VDI  et 
sous  AES.  Comme  vous  Pavez  vu  a  Pinterieur  du  programme-exempte 
de  menu/fen£tre,  it  est  possible  de  modifier  une  suite  de  graph  isme 
ainsi  que  le  type  d’ecriture.  Si  vous  appelez  les  fonctiom  sui- 
vantes,  par  ex.,  &  Paide  de  Handle^  I ,  il  est  mdme  possible  de 
modifier  la  representation  du  desktop,  de  la  boite  de  selection  de 
fichier  ou  de  la  boite  cPalarme.  Mais  prenez  alors  so  in  que  les 
modifications  permettent  encore  futilisation  des  objets.  Vous 
allez  comprendre  les  details  de  ce  que  fessaie  d’expliquer  ici, 
par  la  suite,  lorsque  vous  commencerez  &  faire  vos  premieres 
experiences  avec  ces  fonettons.  Dans  ce  contexte,  il  est  indis¬ 
pensable  de  vous  recommander  h  nouveau  Le  livre  du  GEM 
ATARI  ST  contenant  presque  toutes  les  fonctions  du  GEM,  Le 
bloc  CONTRL  de  ces  procedures  est  deji  entierement  mis  en  place. 
II  ne  faut  done  plus  y  faire  de  modifications.  Les  valeurs  3 
changer  sent  indiquees,  en  tant  que  parametre,  lors  de  1'appel  de 
la  procedure  en  question. 
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Ce  livre  vous  foumit  une  somme  colossaie  d'informations,  d©  trues 
et  astuces.  de  routines  et  utilitairesen  GFA  BASIC  Outre  la  list©  com¬ 
plete  des  commandes  de  Tinterpreteur  ainsi  qu©  cell©  du  compila- 
taur,  vous  treuverez  des  program meset  des  procedures  puissantes 
-  qui  vous  permettront  d©  profiler  pleinement  des  fantasliques 
capacites  du  GFA  BASIC  et  de  1  ATARI  ST.  En  plus,  cet  ouvrage  offr© 
un  programme  d©  graphismes  et  d'animation  aux  possibility 
Incroyables. 

Principaux  sujets  tratt&s  * 

*  L'editeur 

*  Le  mode  direct. 

*  L'interprfeteur  run-only. 

*  I'organisafion  de  la  memoirs. 

*  Tout  sur  I’emploi  des  flags,  variables  et  vecteurs.. 

*  Programmation  structure©  ©n  GFA. 

*  Programmation  des  sprites  (lutins). 

*  Formats  nuro6rique$  ©t  alphanumeriques 
-  Gestion  programme©  d©  la  souris. 

*  Les  operations  disque  et  la  gestion  des  fichiers. 

*  Les  impressions  ©t  tout  sur  les  sons. 

■  Les  menus  deroulonfs.  les  fendtres  et  les  ©vdnemenls. 

*  Acc6s  d  GEM.  GEM-DOS,  BIOS  et  X  BIOS 

*  Gestion  depresses  en  Ram-disk 

*  L©  nouveau  compilateur  GFA  avec  toutes  ses  options. 

*  List©  complete  des  instructions  du  GFA  BASIC 

RfF.  .  ML  185, 199  F 


EDITIONS  /MICRO  /APPLICATION 

13  HUE  SAINTE-CECILE  75009  PARS  /  TEL  (I)  47  703244 
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PxcoI=DPEEK(Intout+  2) 
RETURN 


PRO CEDURE  F .1  n I* n o r( H andle.R  type, R. motif) 

'Choiiir  le  motif  da  nmpliHigt  (voir  tuwi  DEFFILL). 

DPOKE  CONTRL+2,0 
DPOKE  CONTRL+6,1 
DPOKE  CONTRL+  n.Handl* 

DPOKE  Intin  R  motif 
VDISYS  24 

DPOKE  CONTRL+2,0 
DPOKE  CONTRL+  6,0 
DPOKE  Intin,R.typ« 

VDISYS  23 

RETURN 

« 

PRO CED URE  SbIO im ( Handle ,T . typ .T.def) 

'Difmir  lea  cv&ctiriitiquM  do*  Itgne*  (voir  tuiii 
■DEFUNE/pfcpam-l). 

'“T-typ*  =  1-6  diKnit  la  type  do  trait  donnt. 

**T.typ"  =s  f  ei  indication  de  *L.dtr  pernwttent  d*  dlfinir  aoi 
'mime  un  type  de  trait  (1-32767). 

DPOKE  CONTRL+2,0 
DPOKE  CONTRL+6,1 
DPOKE  CONTRL+ 12, Handle 
DPOKE  Inlm.T.typ 
VDISYS  IS 

DPOKE  CONTRL+  12,H>ndl* 

DPOKE  Intin,T.def 
VDISYS  113 
RRETURN 

i 

PROCEDURE  D i abar( Hand le,Bantg,B ary g,Bantd,B ary d) 

'Dcssme  la  boite  remplie  sur  la  petition  indiqute  (voir  atuai 
rPBOX). 

DPOKE  CONTRLjll 
DPOKE  CONTRL+  2,4 
DPOKE  CONTRL+6,0 
DPOKE  CONTRL+ 10,1 
DPOKE  CONTRL+  12,  Handle 
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DPOKE  Ptim,BancK 
DPOKE  Plain*  2,Baryg 
DPOKE  Plain*  4, Barx  d 
DPOKE  PUin+0,Baryd 
VD1SYS  11 
RETURN 

t 

PROCEDURE  Charboxh( Handle, B  haiit) 

'Dtfmir  la  hauteur  do  c&racUrtf  (voir  Biuei  DEFTEXT/param.4). 
DPOKE  CONTRL+2.0 
DPOKE  CONTRL+6.1 
DPOKE  CONTRL+  l2rHandl* 

DPOKE  Intin ,B. haul 

vdisys  tor 

RETURN 

I 

PROCEDURE  Ecol(Rtf, Rouge,  Vert  .Bleu) 

'Dcfinlr  In  couleur*  (RVB)  (voir  bum!  S ETC O LOR). 

DPOKE  CONTKL+  2.0 
t)POKE  CONTRL + 6,4 
DPOKE  CONTRL* 12.2 
DPOKE  Intin.Rcg 
DPOKE  Intin-*- 2,  Rouge 
DOPKE  Intin*  4.Vwt 
DPOKE  Intin-*- 6  Bleu 
VDISYS  14 
RETURN 


Les  functions  du  GEM  BOS 

GEMDOS 

Syntaxe : 

Var-GEMDOS(Opcode,Iiste  de  paramfctres) 

II  s'agit  d’une  autre  instruction  ou  variable  d'adrcsse  (&  part 
BIOS  et  XBIOS)  permettant  de  se  promener  partout  &  i'inteneur 
du  systemc. 
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Lc  BASIC  GfA  est  le  seul  k  la  ronde  a  offrir  cette  possibility  En 
fait*  les  trois  instructions  qui  solvent*  permettent  des  manipu¬ 
lations  presque  inimaginables,  L*  ATARI  ST  dispose  de  trois 
niveaux  differ  enis,  en  ce  qui  concerne  son  systeme  Sexploitation. 
Chacun  des  trois  niveaux  a  des  fonctions  specifiques.  Grace  aux 
opcodes*  il  est,  par  ex.,  possible  de  formater  des  disquettes,  de 
charger  ses  propres  front-tables,  de  lire/ecrire  dans  les  secteurs 
d’une  disquette,  etc... 

Le  GEMDOS  (Graphic  Environment  Manager  Disk  Operating  System) 
represente  un  de  ces  niveaux.  En  attribuant  un  numero  de  fonction  a 
I'  instruct  ion  GEMDOS,  il  est  possible  de  declencher  differentes 
fonctions.  Une  variable  numerique  quelconque  est  alors  defime  pour 
contenir  une  eventuelle  valeur  de  retour  ou  un  numero  d’erreur. 
Le  resultat  de  la  fonction  cn  question  est  "attribue"  k  cette  va¬ 
riable.  Il  s’agit  icii  de  valeurs  qui  normalemeoi  sent  entrees  dans 
le  registre  de  donnees  DO. 

Le  nombre  de  parametres  k  attribuer  depend  de  la  routine  de  system© 
appelee.  Pour  connaitre  la  structure  des  fonctions,  nous  vous  con- 
sei  lions  un  autre  ouvrage  traitant  de  differentes  routines.  11 
s’agit  de  "LA  BIBLE  DE  L*  ATARI  ST  (Micro  Application) 
qui  trail©  exclusivement  de  ('application  de  ces  fonctions  ou  de 
fonctions  similaires,  Les  fonctions  en  question  sont  etudiees  de 
fat  on  tres  dctailie©  en  ce  qui  concerne  !e  type  des  parametres  k 
affecter  et  leur  composition. 

Si  la  fonction  attend  des  mots  longs  (par  ex.  en  indiquant  des 
adresscs),  WL:W  peut  preceder  la  valeur  en  question.  La  fonction 
sail  alors  qu’une  valeur  de  32  bits  est  attribute.  Si  "L:"  n'est 
pas  mis,  (a  fonction  considcre  les  valeurs  attribuees  comma  mots 
de  16  bits. 

PROCEDURE  S  etdn  v  e ( Dendrv  ) 

li  est  possible  de  determiner  utie  unit  A  de  ditqneUeft  quelconque 
'(1-15)  coniine  ltcteur  mctuel.  Une  Cole  1&  fonction  terminte,  mAm 
'cont  ent  I'ind ice  de  1'imit*  de  disquetUs  utilise  Dv&nt. 

A=GBMDOS(&HE, Deadly) 

RETURN 

> 
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PROCEDURE  %  print er(S  tnngl) 

'One  AXpraiion  dt  chain®  vet  attribute  el  enauile,  affichte  sur 
'la  poaition  du  curaettr. 
A=GEMDOS(&H9,L:VARPTR(S.tring$)) 

RETURN 

I 

PROCEDURE  D iik buffer 

’Retoume  dam  "A*  I'adreiK  du  tampon  cheque  (El 3  octet*)  el 
‘affiche  eon  conlenu  actual. 

A-CEMDOS(*H2F) 

PRINT  A 
FOR  1=0  TO  612 

PRINT  CHR|(PEBK(A+I)); 

NEXT  I 
RETURN 

4 

PROCEDURE  ConDut(c>ruUrcl) 

'Affiche  un  aeul  caraelire  aur  L  tcr&n . 

Aa  =  ASC(c  aract  tret) 

'  A— GEMDOS(&H2,Aa) 

RETURN 

PROCEDURE  Corun 

Attend*  la  eniaie  d'un  aeul  caruttre  A  parti r  du  clavier  et 

’affiche  l«  enauile  aur  I’icran 

A=GEMDOS(&!U) 

Caract*rel=CHRt(DPEEK{VARPTR(A)*4)) 

PRINT  caracttrel  ’A 
RETURN 


Les  [auctions  sms  BIOS 

BIOS 

Syntaxe : 

Var-BIOS(Opcode,liste  de  parametres) 
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En  principe,  il  s'agit  ici  de  la  meme  chose,  avec  pour  seule 
difference,  qu’un  autre  niveau  que  le  TOS  est  appele  :  le  BIOS 

PROCEDURE  Louche  a  sp4ciales  (Keys  tat) 

’Keyetat  —  -I  per  me  I  d'obtenir  Pit  at  d«  touche*  »p4cialea. 

*  A— 1  ==>  <SHIFT>  gauche  a  414  enfoncie 

*  A=2,  S=>  <SHIf*T>  droits  ft  414  enfonc4e 

*  A=4  ==>  <CONTRL>  /  A=8  ==>  <ALTERNATE> 

*  A=16  ==>  C&psLock  atlum4e 

Ccmhinaison,  par  ex.  A=22  CapiLock  allumte  +  <SHIFT> 

*  gaucht  +  <CONTRL> 

'line  vftleur  positive  cat  reprise  en  tnnt  que  mode  de  touches 
'sp4ciatci. 

A— 8lOS(U,Key*tat) 

RETURN 


PROCEDURE  Sec  tor  mod  (Rwfiag%IBuffert<Nombre%,Recno%  Dev%) 
'par  ex.  GOSUB;@Scctormod  (D.SP ACE! (2050),4i  10,0) 

'Lit/tcnt  dee  aecteurs  de/aur  disquette. 

“RwftVg*  —  identification  de  fonclEon 
0  s  lire  dci  aecteurs 
L  —  4crire  dam  dee  aecteurs 

2  =  lire  de*  aecteurs  /  ignores  le  change  mem  dr 
dtsque 

3  =  4crirc  dans  dea  aecteurs  /  ignorer  le 
changement  de  disque 

" Buffer f  s:  tampon  de  chain es  pour  lire/4crire. 

II  doit,  en  tour  car  itre  arses  grand  pour  loger 
toutea  lea  donntes  Si  vous  aouhaUea  done  lire 
trois  sect  aura,  il  doit  avoir  une  tallle  de 
3*S12=1S36  octet* 

“Nombre"  —  Nombre  de  secteurs  qu'il  but  lirt/icrirc 
Pun  aprte  I'autre. 

"Recno”  =  fndique  Le  seeteur  logiquc  (1-720}  avec  lequel 
il  fftUt  commcncer. 

"Dev"  s  Le  mtm4ro  du  lectetir  de  diequeiles  (0=A,  t=B; 
2=Dieque  due) 

A%=BlOS(41RwRag96.LVARPTR(Buffer|}1Nombre%(Recno%iDev%) 
PRINT  Buffer! 
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RETURN 

4 

PROCEDURE  Diskparameter  (Flopnr) 

’Retoume  1'idrttn  du  "DPB"  (Diskparame  Ur  block;  all  cm.  ;  bloc 
’de  pv&mttrei  du  diiqut)  pour  I'unitf  de  diiquettei 
'indiqute  [0=A;  1— B). 

*  Le  DPB  a  U  structure  ittiv&nte. 

Word  I  —  Taille  du  eeeteur  en  octets  (512) 

Word  2  =  Taille  du  cluster  en  secteurs  (2) 

Word  3  =  Taille  du  cluster  en  octets  (1024) 

Word  4  —  Longueur  du  repertoire  en  lecUuft 

Word  5  —  FAT  (Free  Allocation  Table)  en  acoteurs 

Word  6  =  Num#ro  de  secteur  du  Zitmi  FAT 

Word  7  —  Num#ro  de  secieur  du  tier  cluster  de  donnies 

*  (cluster;  artgl  grftppe) 

Word  8  =  N ombre  des  cluster  de  donnies  sur  disquette 
Farabi  ock  — BIOS  (T.FIopnr) 

FOR  1=0  TO  14  STEP  2 

D  isk  par  Disk  parc$+  STR*{DPEEK  (Par»bloc+ I))+"  - 

'NEXT  I 

PRINT  DiskparaS 

RETURN 

* 

PROCEDURE  Changedisk(  Flopnr) 

'Retoume  si,  entretempe,  la  disquette  a  changfte  II  fnut 
*alors  indiquer  dans  'Flopnr"  le  num#ro  de  I'uniU  de  disquette , 
Changes! at"  retoume  line  valeur  : 

0  —  disquette  n'a  pus  #14  chang#e 
t  =  Sans  doute  change  men!  de  disquette* 

2  —  disquette  a  it#  chang# 

Changes!  at — B 1 0  S  (9  F  l  o  pnr ) 

RETURN 
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Lcs  functions  sens  XBIOS 
XBIOS 

La  syntaxe  des  appels  sous  XBIOS  esl  egalemen!  identique  a  la 
syntaxe  precedente.  Cette  fois,  les  routines  XBIOS  sous  TOS 
(Tramiel  Operating  System)  sont  appelees 

PROCEDURE  Key  frequence  Retard  friquince) 

'Defintt  le  retardement  de  reaction  mt  la  frequence  de  repetition 
'pour  lei  cliqu&ge*  &  partir  du  clavier 

'1  repdaente  Irta  rapide;  tin  n ombre  plua  grand  correspond  ft  une 
"v  lease  plus  lent*. 

'Si  la  frequence  de  r*p«ition  cat  egale  ft  0,  seuls  dee  diet  de 
'touche*  individuals  son!  possibles 
A-XBIO S(3S  Retard, frequence ) 

RETURN 

* 

PROCEDURE  Set  palette  (Colbufft) 

P 

'II  est  possible  de  modifier  ft  1’aide  d'uns  nule  instruction 
‘toute  la  palette  de  couleurs.  II  faut  a  I  ora  mdiquer  une  chatne 
'de  caracttres  con  tenant  les  16  valeun  de  couleurs  en  taille  de 
'mcti,  l’une  nprts  I' autre 
'Par  ex: 

'FOR  J-I  TO  16 

*  CouE=RANDOM($ll) 

*  PalerteJ— Palett  e$+  MKli(cOulevir) 

*  NEXT  I 

*  (frSeLpalette  (Palett el) 

A=  XBIOS(6X:VAR  PTR  (Co  l  buffi )) 

RETURN 

PROCEDURE  Getieso 

'Retoume  la  resolution  acluclls  de  I’icran 

A  =  0  ==>  btiit  resolution  (L©WRES=32(T200  /  16  couleurs) 

A  —  1  — =>  moyenne  resolution  (MID RES— 640*300  /4  couleurs) 

A  =  3  ==>  haute  resolution  (HIG  HR  ES- 640*400  f  monochrome} 
A=XBIOS(4) 

RETURN 
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PROCED  L'RE  Midioul(Nombr«,S .  tringl) 

’line  chains  de  eancUrei  cat  tranimiic  au  port  MIDI* OUT. 

‘Lea  carteUm  de  ccttc  chntne  doivent  lire  indiquh  tn  lant  que 
'variable  alphamimlriquc. 

"Nombw"  indiqut  le  nornbre  dee  caractAres  -lb  tranimettr®. 

A = X  BIOS  (12 ,  nom  br* ,  L :  V  ARP  TR  [  S  t  rin  g  I )  J 
RETURN 


Les  sms  en  mode  Interrupt  sms  XBlOS( 32)  -  DOSOUND 

La  partie  XBIOS  du  TOS  permet  de  generer  du  bruit  et  mfeme  des 
petits  morceaux  de  musique,  en  mode  Interrupt.  Ces  sons  sent 
alors  produits  en  mode  interrupt,  independamment  du  programme 
execute  actuellement.  Les  instructions  SOUND  et  WAVE  ont  besoin 
d’un  certain  laps  de  temps  pour  lire  traltees.  Pendant  ce  temps  la, 
le  programme  ne  peut  se  poursuivre.  La  routine  DOSOUND  sous 
XBIOS,  par  contre,  ne  tient  pas  compte  du  programme  actuel,  mats 
tourne  en  m§me  temps.  II  est  done  possible  de  sonoriser  des  af- 
fichages  ou  d'autres  operations  sur  Pecran,  par  des  bruits  ou 
melodies. 

La  creation  de  morceaux  de  musique  est  trop  compliquee  pour  &re 
traitee  dans  le  present  livre.  Apr&s  tout,  il  s’agit  ici  d’un  Hvre 
sur  le  BASIC  et  non  sur  le  XBIOS. 

Pour  vous  per  met!  re  de  programmer  vous  m6me  du  son,  vous  trou- 
verez  ci-apres  un  petit  programme  de  demonstration  permet  tant  de 
determiner  les  14  registres  de  la  puce  de  son.  Essayez-le  done.  Si 
un  son  vous  plait,  appuyez  sur  <ESC>  el  faites  vous  developper  un 
programme  de  demonstration  pour  votre  son. 

Afin  de  permettre  P  utilisation  des  boltes  "+/-**,  la  routine 
DOSOUND  est  repetee  dans  des  intervalles  que  I’on  peut  definir 
(PAUSE).  Ceci  a  Here  la  reproduction  reelte  du  son.  Si  vous 
souhaitez  ecouter  le  son  en  entier  lors  d’un  simple  appel,  it  faut 
appuyer  sur  la  touche  <ESC>.  Une  boite  d’alarme  est  alors  affichcc 
et  le  son  est  genere  en  meme  temps,  sans  autre  appel. 
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Void  les  diffSrents  regisires  el  leurs  significations  : 


Reg.  0,  2.  4 

R&giage  approxjmaiif  des  canaux  1,  2,  3  avec  des 
valeurs  de  1 5  au  maximum. 

Reg.  1,  3,  5 

Reglagc  de  precision  des  canaux  1,  2,  3  avec  des 
valeurs  de  255  au  maximum. 

Reg.  6 

Regler  la  periode  de  bruit  avec  des  valeur  de  1 5  au 
maximum. 

Reg.  7 

Les  six  premiers  bits  allumem/deignent  des 
canaux. 

Up  bit  positionne  represente  canal  eteinif!) 

Un  bit  efface  represents  canal  allume(!) 

Bit  0  a  2  representcnt  les  canaux-sons  l  a  3 

Bit  3  i  5  representent  les  canaux-bruii  1  &  3 

Rxemple : 

255  tous  les  canaux  eteints 

254  canal -son  1  allume  /  tous  les  autres  eteints 
204  canaux-sons  1  et  2  ainsi  que  canaux-bruits  2 
et  3  all  times  /  tous  les  autres  eteints 

etc... 

Attention  !!  Les  bits  6  et  7  modifient  les  ports. 
L'ntilisation  de  ces  deux  bits  peut  entrainer  de 
mau  vaises  fonctions  Done  :  valeur  mini  male  du 
registre  7  «  192 

Reg.  8,  9,  10 

Rgglage  de  volume  pour  les  canaux  1-3.  Si  vous 
utilise?  ici  des  valeurs  comprises  entre  0  et  15, 
le  volume  du  canal  en  question  est  regie  par  une 
modulation  constant e  de  la  frequence.  Si,  par 
centre,  le  einquieme  bit  est  position  ne  (valeur 
=  16),  la  courbe  enveloppe  du  volume  definie  dans 
le  reg.  13  est  utilisee  pour  le  canal  dont  le  cin¬ 
quieme  bit  est  positiotme. 
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Reg.  1 1  Mail  vats  r£glage  de  la  periode  de  la  courbe 

enveloppe  avec  des  valeurs  de  255  au  maximum, 

Reg.  12  Reglage  approximatif  de  la  periode  de  la  courbe 

enveloppe  avec  des  valeurs  de  255  au  maximum. 

Reg.  13  Choix  de  la  courbe  enveloppe  du  volume  avec  des 

valeurs  de  15  au  maximum  (voir  les  formes  dc  la 
courbe  enveloppe  dans  le  paragraph e  WAVE), 

La  chame,  dont  I’adresse  doit  Sire  affeetee  a  XBIOS{32),  est 
constitute  d'une  seric  d' instructions,  se  suivant  Tune  a  pres 
Pautre.  Lcs  instructions  0  a  13  (Hexa  »  &II00  -  &H0F)  identifiem 
aiors  le  registre  dans  lequel  la  valeur  suivante  doit  etre  entree. 
Comme  des  tailles  d’oetets  maximums  sont  iraitees,  une  reinitiali¬ 
sation  entierc  du  registre  donne  une  longueur  de  chaine  de  28 
caracteres. 

Si  Ton  enchaine  plusicurs  definitions  de  registres  (pour  des 
chaines  de  son  plus  longues  que  les  28  caracteres  mentionnes  ci- 
dessus),  la  fonction  DOSOUND  les  traite  une  par  une.  Pour 
pouvoir  ecouter  la  suite  des  reglages  differcnis,  vous  disposez 
d’une  instruction  representee  par  la  valeur  130  (IIexa=&H82) 
(=>Opcode  -  voir  chapitre  "Le  BASIC  de  base”.  Cette  instruction 
permet,  pour  chaque  definition  de  la  chaine,  de  definir  le  laps  dc 
temps  qui  doit  s'ecouler  jusqu’a  ce  que  le  prochain  reglage  du 
registre  soil  traite,  11  est  indispensable  Que  la  fonction  soil 
suivie  par  une  valeur  de  1/200  sccondes  determinant  le  temps 
d’attente 

Exemple : 


For  i=i  to  ss 

READ  D.*U% 

S  oundS~S  ound*  *  CHRS(D  ntafc) 
NEXT  I 

VOID  XmOS(33,L:VARPTR(S  ou«d$)J 
VOID  INP(2) 

DATA  0,56,1 .14.2. 10,3.9,4.0.5,0,6.0.7 
DATA  2M,S*i^7*10.tU  1.2843*33*1544 
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DATA  130,654 ,0,81 ,1  2 ,1 ,0  3„(M ,  1 1 ,5 , 15  6 

| _ 1\AlAfllT«p,615.^.13.lO.  13.1 ,13,13 _ _ 

Dans  te  present  exemple,  rinstruciion  d'atiente  (130)  se  trouvc 
sur  la  troisieme  tigne  DATA.  La  valeur  qui  suit  determine  le  temps 
d'attente  (634/200=2.17  sec.)  jusqu*d  ce  que  le  programme  se  pour- 
suive.  Ensuite,  les  14  registres  sont  h  nouveau  charges  et  executes 
independamment*  par  DOSOUND.  Vous  pouvez  evidemment  modifier 
aussi  un  seul  registre  (hauteur  du  son  et  courbe  enveioppe).  II 
faut  noter  que  le  traitement  de  son  est  inierrompu,  aussit&t  qu'une 
touche  du  clavier  est  enfoncee. 

me  s’il  ne  s'agit  pas  ici  d'une  description  detaiilee  de  cette 
fonction.  vous  serez  sOrement  en  mesure,  aprCs  avoir  essay  e  le 
programme  exemple*  de  cr£er  vos  propres  sonorisations  de  bruit  ou 
de  melodie. 


TEST  DE  SON 


{alnit 

DO  I  Bo  Lido  principal* 

IP  MOUSEK>0  I  Si  ta  touche  do  la  sourie  est  onfoncio, 


(®  Modify 


1  vs  &  |b  procedure  do  r4glngc. 


END  IF 

Key.l*=INKEY3  *  Toot  du  clavier 

T.ime^TtMER  1  SauvoRirde  du  timer 

REPEAT  I  Lnncemenl  de  la  boucl*  pause 

UNTIL  (TIMER-Tjme)/4^=PARA(I4]  OR  MOUSEK 
VOID  XBIOS(32.L:VARPTR(S.ound$))  1  appd  do  DOSOUND 

Key.2t=INKEYJ  I  Nouveau  toot  du  clavier 

IF  Koy.II=CHRI(27)  OR  Key.2$~CHR3[27)  l  Si  <ESC>  c*t  cnfoncee, 
Al.ftrJ=’,Sauvegnrd*  *on|our  diiquetie  T* 

ALERT  2,Al.«!rtrl  *0KAY[RETOUR|FlN'\Bsick% 


IF  Baclt%-1  I  Si  lauveg&rd*  du  oor, 

(2Make  program  I  va  fc  le  routine  do  letive garde 

END  IF 
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IF  Bwk%=3 
EDIT 
END  IF 
ENDIF 
LOOP 

PROCEDURE  Inli 
DIM  PARA(14) 

FOR  1=0  TO  13 

S.cund|=S.cund*+CHR*(I)+CtIRl[a) 

NEXT  I 

CRAPHMODE  3 
PRINT 

PRINT  *  CUc  gauche  =  unitea" 

PRINT  "  Clit  droit  =  dieaima* 

PRINT  *  CJie  gauche /droit  s  ierop 
PRINT  "  Touche  <  ESC  >  =  Break" 

PBOX  3,6,215,86 
DEFTEXT  ,20,  ,26 
TEXT  30,160  -DOSOUND" 

TEXT  30, 190, 160  "TEST" 

BOX  3,00,216,226 
BOX  6,03,212,223 
BOX  7,04,211.222 
DEFFILL  .2,4 
FILL  114,156 
CRAPHMODE  2 
DEFTEXT  ,i„6 
DEFFILL  ,2,2 
PBOX  457,7.635,306 
FOR  1=20  TO  370  STEP  24 
TEXT  250,1+ lir-  ♦- 
TEXT  340.H  H  "REG ISTRE  "+STR$(INT(l/24)) 
READ  Info® 

TEXT  458,1+ 11, !nfo$ 

TEXT  270,1+ II  "0" 

BOX  247,1,260,1+  IS 
BOX  262,1,310,14  15 
BOX  312.1,325,1+15 
NEXT  I 

GRAPHMODE  1 


!  Order  tableau  de  parnmfctrei 
14  regiatrea  de  eon 
Remphr  chain*  »vec  numdroa 
d«  regiatrea  et  dea  adroa 


Representation  de  I'icran 
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Yy-7 

Para(?)=2S6 

^Doeound 

TEXT  540,(1-24)+  11  "PAUSE 

DEFPIIX  ,2,2 

BOX  227.7,444,30s 

BOX  230,10,441,392 

BOX  231,11.440,391 

GET  1 .00 ,2 17,2 2  5.T»t  re  t 

FOR  1  TO  3 

FOR  1=90  TO  260  STEP  10 
PUT  I.l.Titrel 
NEXT  I 

FO  R  1=360  TO  90  STEP  -10 
PUT  l.I.TitreS 
NEXT  l 
NEXT  J 

GRAPHMODE  1 
RETURN 


!  R«g.  7  3  c»  v«]«ur  maximum 
1 


I 
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page-term 


PROCEDURE  Modify 

REPEAT  1  Bcucle  inttHture  pour  t’uttliaation  de  la  bolte 

Yy=lNT((MOUSEY-I4)/24)  !  Cakuler  I’tndice  du  regiatre 

IF  Yy=>0  AND  Yy<=!4  * 

IF  MOU9EK=3  AND  MOUSEX>247  AND  MO  U  SEX  <32  5  !  lee  deux  touches  ? 


PARA(Yy)=0  I  Rtf  me  I  le  reget  re  A  rtro 

IF  Yy=7 

Pam(Yy)  =  255  1  ou  Reg-7  A  ea  v&Ieur  maximum 

ENDIF 


found  I  et  fall  de  la  musique 

ENDIF 

IF  MOUSEK=l  OR  MOUSEK=2  I  Une  dee  deux  touche*  ? 

IF  MOUSEX>247  AND  MQUSEX<260  1  lnftri tur  A  aero  ? 

IF  Para(Yy)>0  l  Si  le  paramMre  >  tiro 

PAUSE  4 

IF  MGUSEK=2  f  Touche  droit*  de  la  sourie  7 


IF  Para(Yy)=>10 
SUB  Para(Yy),10 
ENDIF 
ELSE 

DEC  para(Yy) 


!  Si  le  parsmttre  >  10, 
I  diminuer  aton  de  10. 

t  Si  touche  gauche, 

I  diminuer  alore  de  1 
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ENDJF 

(SDosound  I  Appel  DOSOUND 

END  IF 
ENDIF 

IF  MOUSEX>3I2  AND  MOUSEX<S2S  I  Si  inttrieut  4  r*ro 
IF  Para[Yy)<25S  I  «t  le  pa  ram  6  tn  <  255 

PAUSE  4 

IF  MOtJSEK— 2  1  Touche  droit©  da  la  souru  enfonc4e  ? 

IF  Para(Yy)=<245  I  Si  le  panunHre  <=*  245, 

ADD  F»r*[Yy),10  I  augmenter  aiora  de  10 

ENDIF 

ELSE  1  Si  louche  gauche  de  la  aouria, 

INC  parafYy)  1  augmenter  abn  par  1 

ENDIF 

<$Do»ound  9  Appel  DOSOUND 

ENDIF 
ENDIF 
ENDIF 
ENDIF 

UNTIL  MOUSEK-O  !  Quitter  boucle  inUrieure,  ei  aucune  louche  de 
1  la  louria  r'eal  plus  tn  fence© 

RETURN 

PROCEDURE  Doiound 

TEXT  270t31  + Yy*241STRIfPara(Yy))+"  *  I  Affieher  la  valeur  t 
I'lntirieur  de  la  bolte 

IF  Yy<14  !  Si  p  arum  H  re  a  du  regie!  ree 

I  ont  414  modifies, 

MlDSfSoundJ  ,(Yy*2)  +  2,t)=CHRt[Para(Yy)) 

*  I  place  la  neuvelle  valeur  alort 

ENDIF  1  4  I'intlrieur  de  la  chatnc. 

VOID  XBlOS(32 ,L:VARPTR[ Sound)) )  !  Appel  DOSOUND 

RETURN 

PROCEDURE  Make _ program 

FILESELECT  *  *  LST  “  LST"  ,Sel«elt 

IF  Select#^**  AND  Se!ect$<>"\*  AND  Select$o"\XST" 

OPEN  *0",# I, Select) 

PRINT  #l;*FOR  1=1  TO  28- 
PRINT  #1;“  READ  D  alaV 
PRINT  #1;-  S  ound) —S  ound)  t  CHR|(  D  .atn9£)* 

PRINT  flfNEXT  r 
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PRINT  #l;"DO" 

PRINT  #1;"  PAUSE  ■';STR*(P*ra[M)) 

PRINT  #1;*  VOID  XBlOSfSS.L  VARPTR(Seurdt))" 

PRINT  #  I  ^LOOP- 
PRINT  #lf DATA 
FOR  K-l  TO  27 

PRINT  #I:ASC(MIDi(S  ound*.K  l))r,*; 

NEXT  K 

PRINT  #I;ASC(MlD$(S.oimd*,K.I)} 

CLOSE 

ENDIF 

RETURN 

DATA  canal  I  prficiJ, canal  I  approx ,ctvn  a]  2  prfid»,canal  2  approx 
DATA  canal  3  prficii.canal  3  approx  p fir iodo  bruit.canaux  opcn/cloae 
DATA  volume  canal  1  .volume  canal  2 .volume  canal  3 
DATA  p  fin  ode  courhe  prfic  pfiriod*  courbe  approx  combe 


-521  - 


Le  iivre  du  BASIC  GfA 


* 
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4.  Le  BASIC  GfA  V2.0 


La  nouvelle  version  du  BASIC  GfA  off  re  une  serie  d'  instructions 
qui  font  de  la  programmaiion  on  plaisir  -  si  cela  n'a  pas  dej£»  etc 
le  cas  pour  la  premiere  version,  Ainsi,  de  multiples  manipulations 
de  memoire  sont  possibles.  Elies  depassent  les  homes  does  a  I'in- 
terpreteur  ou  les  limites  fixees  par  les  formats  de  variables  pre¬ 
difinis.  En  outre,  certaines  instructions  preparent  I’ utilisation 
du  compilateor  BASIC  correspondant,  et  en  facilite  ainsi  Temploi. 

A  part  les  nouvdles  instructions  BASIC  qui  suivent,  vous  trou- 
verez,  dans  la  version  V2.0,  quclqucs  fonctions  rendues  plus  con- 
fortables. 

Les  voici  : 

1,  Un  nouvel  operateur  : 

Le  double  signe  "egaf  per  met  d'obtenir  que  deux  valeurs 
*  soient  "presque"  egales.  Pour  cela,  Pegalite  est  testee 
pour  les  28  premiers  bits:  des  deux  valeurs  en  question. 
S’ils  sont  identiques,  la  condition  est  remplie. 

2,  En  general,  1* instruction  FILL  travaille  en  mode  COLOR. 
Cfest  pourquoi  toutes  les  surfaces  peuvent  etre  remplies  en 
mode  monochrome,  sans  tenir  compte  de  la  valour  coulcur.  11 
est  done  possible  de  remplir,  par  exemple,  des  surfaces 
noires  par  du  blanc  ou  un  autre  motif  de  remplissage. 

3,  Si  vous  souhaite2  sauvegardcr  le  programme  actuel  sur 
disquette  grace  aux  fonctions  SAVE  ou  SAVE,A  de  Tediteur 
et,  si  un  fichier  ".BAS”  ou  H.LST’  du  m^me  nom  est  deja 
existant,  Textension  de  ce  dernier  est  modifiee  en  ",BAK", 
Une  surimpression  par  le  nouveau  fichier  n'aura  done  pas 
lieu. 
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Si  Ton  sou  ha  lie  charger  ce  fichier  ".BAK"  cn  memoir  et  ceci 
esi  possible  (pour  les  anciens  fichiers  ".BA S'*)  gr&cc  a 
rinstruciion  "LOAD  nom  de  fichier”  en  mode  direct,  ou  a 
Taide  de  la  fonction  LOAD  ou  MERGE  du  menu  de  I’editeur. 
11  faut  que  la  ligne  contenant  Pindice  soil  alors  dickec 
sur  la  ligne  "FileselecC.  Ensuite,  (’extension  situee  sur 
ceite  ligne  est  modifiee  en  ".BAK"  ou  " *"  et  la  barre  de 
idle  grise  est  cltquee.  Une  fois  cela  effectue,  le  fichier 
pent  etre  charge  com  me  d’habitude  sur  (a  ligne  de  nom  grace 
a  un  double  cliquage  Comme  il  est  impossible  de  savoir  si 
un  fichier  avec  extension  ".BAK"  est  un  ancien  fichier 
".BAS"  ou  ".LST",  l®  messages  d’erreur  "Le  programme  n’est 
pas  en  GFA  BASIC  version  2.0"  ou  "Merge,  ce  n’est  pas 
un  fichier  ASCII"  pcuvcnt  apparaitre.  Vous  savcz  alors 
qu’il  faut  utiliser  (’autre  fonction  de  ehargemem. 

4.  L’editeur  garde  le  dernier  nom  de  chemin  choist  (par  ex., 
"\repmoire\sous -repertoire").  Si  vous  souhaitez  alors  re¬ 
passer  a  la  directory  principal,  il  faut,  lors  de  la  pro- 

#  chaine  opera  non -editeur  sur  disquette,  cliquer  le  petit 
tableau  CLOSE  situe  a  cOte  de  la  barre  de  tete,  h  I’inte- 
rieur  de  la  boite  "Fileselect". 

5.  En  mode  direct,  la  dernier©  ligne  de  commande  executce  pcut 
etre  a  nouveau  appelee  en  appuyant  sur  la  touche  <UNDO>. 
Ceci  est  egalement  possible,  si  vous  passez  a  I’editeur  et 
appelez  une  nouvelle  fois  le  niveau  commande. 

6.  L’inst ruction  1NP  a  ete  adapt*©  a  IUNP  du  BASIC  ST.  Les 
codes  de  claviers  retourncs  restent  done  toujours  les 
mCmes,  comme  ceux  de  i’ancienne  version.  Ceci  faeilite 
considerablement  la  conversion  des  programmes  cents  cn 
BASIC  ST,  en  programmes  GfA.  De  plus,  un  programme 
de  conversion  sera  ires  prochainemcnt  diffuse  par  la 
societe  GfA,  permettant  ainsi  d’effectuer  la  conversion, 
presque  automat  iquement  a  1 00  pour  cent 
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7.  A  rinverse  de  la  premiere  version,  les  nombres  eompris 
entre  0  et  3  ne  sont  plus  represemes  en  tarn  que  valeurs 
de  deux/quatre  ou  six  octets  mais  par  des  codes  d'tin  octet. 
Ceci  permet  d'economiser  de  la  place-memoire  si  de  nom- 
brcux  flags  sont  utilises  dans  cet  intervalle  (egalement. 
par  ex.,  pour  les  variables  de  retour  dc  la  boite 
d’alarme). 

Les  programmes  ".BAS*'  ecrits  en  BASIC  ST  pea  vent  ctre 
raccourcis  ulterieuremeni  en  les  sauvegardant  sur  disquette 
a  l’aide  de  SAVE.A,  en  les  rechargant  ensuite  avec  MERGE 
en  mdmoire  videe  du  programme  (new)  et  en  les  sauvegardant 
a  nouveau  sur  disquette  en  tant  que  fichier  ".BAS"  en 
version  V2.0  grace  a  SAVE. 

8.  Le  petit  programme  suivanf  permet  d'annoncer  un  pro¬ 
gramme  ".BAS"  A  rinterpreteur  RUN -ONLY.  11  suffit  de 
cliquer  rinterpreteur  et  te  programme  est  lance  automa- 
tiquement. 


OPEN  "U*.#  1  *GFAB  A5RO.PRG* 

SEEK  #1.30 

PRINT  #J,CHR${0}rNom  d«  programme" 

PRINT  #l.CHRt(0) 

L  CLQSg _ _ _ 

11  faul  evidemmcm  indiquer  le  nom  du  programme  "  BAS" 
en  question  dans  "nom  de  programme".  Ce  nom  nc  doit  pas 
depasser  60  caracteres. 

11  e juste  une  petit  astuce  permettant  de  faire  "semblam" 
d’avoir  ecrit  un  "vrai"  programme  PRG.  Sauvegardez  votre 
programme  sur  disquette  grace  &  PSAVE  en  utilisant  I'ex- 
tension  \RSC"  et  indiquez  ensuite  a  rinterpreteur  RUN- 
ONLY,  le  nom  de  ce  soi-disant  fichier  RSC  en  meme  temps 
que  le  petit  programme  plus  haut.  Puis,  donnez  a  rinter¬ 
preteur  de  "GFABASRO.PRG"  le  nom  de  votre  programme 
(suivi  de  fextension  ".PRO").  Et  voila  :  Vous  disposcz 
d'un  programme  "PRG"  parfaitement  executable 
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Encore  tine  autre  petite  astuce  : 

Une  des  caractcristiques  de  l’interprcteur  est  qu’il  se  sou v Sent 
de  tous  les  noms  dc  variables,  etiquettes  el  procedures  utilises 
jusqu’alors  It  Pinldrieur  du  programme.  Cest  pourquoi  il  les 
sauvcgarde  dans  un  listing  interne.  En  ce  qui  concerne  les  pro¬ 
grammes  ".BAS",  ce  listing  est  egalement  transmis  au  fichier  et 
sera  repris  lors  du  prochain  chargement. 

Les  noms  y  sont  conserves,  meme  s’ils  sont  ensuite  el i mines  ou 
rem places  &  I'interieur  du  programme.  Comme  ce  listing  de  varia¬ 
bles  ne  peut  avoir  une  taillc  extensible,  it  se  peut  que,  pour  les 
grands  programmes,  settles  les  variables  de  tableau  soient  con- 
serv£e$  et  non  les  autres. 

Pour  men  re  a  jour  ce  listing  de  variables,  il  faut  effect  uer  les 
memes  operations  que  cellos  decrites  au  paragraphe  1  plus  haul 
(sauvegarder/charger/sauvegarder).  Les  noms  des  variables  dont 
vous  n'avez  plus  besoin,  sont  alors  eh  mines  du  listing,  permettant 
a  ins  i  d*en  entrer  de  nouvetles. 


4.1  LES  INSTRUCTIONS  DE  LA  VERSION  V2.0 


t 

Syntaxe  : 

!  comment ai  re 

11  est  possible  d'ajouter  un  commentaire  a  la  ligne  d* instruct  ion 
en  question. 

En  principe,  le  point  d'exclamation  a  la  meme  fonction  que 
I'instuction  REM.  La  seule  difference  etant  que  te  commentaire  se 
trouve  separe  de  !a  ligne  d* instruction  par  ce  signe. 

Ceci  nfest  pas  autorise  pour  les  lignes  DATA  et  REM. 
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Excmple : 

PRINT  AS  !  Retour  ner  la  chains  de  caracteres 


Synlaxc : 

*Var 

Si  le  nom  d*une  variable  est  precede  d'une  "eioile'',  Padresse  de 
celle-ci  est  transmise. 

Si  le  nom  de  variable  ,TVar"  d*un  type  quetconque,  est  ainsi  pointe, 
ce  n’est  pas  le  content!  mais  Padresse  de  la  variable  qui  est 
transmise.  Pour  les  tableaux  et  les  chaines  de  caracteres,  il  s’a- 
git  du  dcscripteur  correspondant  et  pour  les  variables  numeriques, 
il  s'agit  de  Padresse  sous  laquelle  est  stockee  la  variable.  II 
est  done  possible,  d’adresser  les  variables,  si  necessaire,  de 
fa^on  indirecte  (cf.  VARPTR/ARRPTR), 

Example : 


h%=u 

B%=*A% 

•B$6=ss 

PRINT  4A%'VARFTR(A%1  E%'A%  LPEEK(B# 


BASE  PACE 
Syntaxe : 

BASEPAGE 

Perrnet  d’obtenir  Padresse  de  la  page  de  base  de  Pinterpr£teur  du 
BASIC  GfA. 
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Le  systeme  d' exploitation  atinbue,  a  chaque  programme  assemble  ou 
compile,  lance  k  parti r  du  desktop  ou  grace  k  I* instruction  EXEC, 
un  bloc  d' informal  ion  de  base  (page  de  base)  d'une  taille  de  256 
octets,  Ce  bloc  contient,  dans  les  128  premiers  octets,  les  donnccs 
internes  necessaires  &  rexploitation  du  programme.  Les  128  octets 
rest  ants  peuvent  6tre  utilises  de  diff&entes  ma  meres 

II  est,  par  ex.,  possible  d*y  entrer  la  ligne  de  commande  (si  die 
existe)  ou  d’y  installer  le  tampon  de  iransferi  de  disque  (Routine 
5lAdu  GEMDOS). 

Pour  les  programmes  compiles  (voir  chapitreS),  BAS  EP  AGE  pointe 
Padresse  de  la  page  de  base  du  program  me-mach i ne  executable. 
Dans  ce  cas,  les  octets  129  a  256  de  la  page  de  base  peuvent 
£tre  utilises  pour  affecter  differentes  informations. 


BITBLT 
SVntaxe : 

BITBLT  dbs%(),dbo%(),dbr%() 

Un  bloc  objet  est  masque  ou  modifie  en  differents  modes  (AND, 
OR,  XOR  etc.)  par  un  bloc  source. 

II  $+agit  d'une  posstbilitc  d’accte  direct  k  une  fo net  ion  compti- 
quce  sous  VD1  (COPY  RASTER).  Son  utilisation  la  plus  courante 
est  de  deplacer  des  blocs  sur  la  page-ecran  elle-meme  ou  de  les 
charger  en  memo  ire  (voir  GET/ PUT).  Vous  pouvez  alors  definir 
les  modifications  du  bloc  objet  par  le  bloc  source  (voir  PUT), 
II  est  egalement  possible  de  definir  ainsi  des  zones -memoi res 
quelconques  pour  des  parties  de  bloc,  et  de  les  Her  ensuite. 

Trois  differents  tableaux  de  nombres  emiers  doivent  itre  prepares. 
Le  premier  definit  le  bloc  source  sur  6  parametres  (dbs%= des¬ 
cription  du  bloc  source)  tandts  que  le  deuxieme  tableau  contient 
les  six  memcs  parametres  pour  le  bloc  objet  (dbo%»dcscription 
du  bloc  objet). 
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Les  9  paramctres  du  troisieme  tableau  (dbr%=deseripiion  du  bloc 

rectangle)  permettent  de  definir,  en  pixels  ou  en  octets,  les  deux 

rectangles  (zone-ecran  ou  recta nglenmemoi re  ideal  is ee). 

dbs%(0)  adresse  de  bloc  (doit  £tre  un  nombre  pair) 

dbs%(l)  largeur  de  bloc  en  pixels/ bits  (doit  £tre  divisible 

par  16) 

dbs%(2)  hauteur  de  bloc  en  pixels/lignes  de  mots  (nombre  de 

lignes  qui  ont  la  largeur  definie  ci-dessus  et  qui 
donnent  la  hauteur  de  bloc  si  elles  soni  mises 
1'une  sous  I'autre) 

dbs%(3)  largeur  de  bloc  en  mots  (toujours  largeur  de  bloc 

en  pixels/ 16) 

dbs%(4)  format  de  bloc  (toujours  0  parce  que  specifique  au 

hard) 

dbs%(5)  nombre  des  plans  de  bloc  (bitplanes)  (640/400=1  ; 

640/200=2  ;  320/200=4) 

dbo%()  le  bloc  objet  (memes  significations  que  plus  haul) 

dbr%(0)  Tabscisse  X  du  coin  superieur  gauche  du  rectangle 

source  (en  pixels/ bits) 

dbr%(l)  ford  on  nee  Y  du  coin  superieur  gauche  du  rectangle 

source  (en  pixels/ lignes  de  mot) 

dbr%(2)  1’abscisse  X  du  coin  infeiivur  droit  du  rectangle 

source  (en  pixels/bits) 

dbr%(3)  1'ordonnee  Y  du  coin  tnferieur  droit  du  rectangle 

source  (en  pixels/lignes  de  mot) 

dbr%(4)  a  (7)  le  rectangle  objet  (memes  significations  que  plus 

haut) 


dbr%(8)  le  mode  de  liaison  (voir  PUT) 


Les  deux  rectangles  doivem  avoir  la  m£me  taille  pour  donner  un 
resultat  retrouvable.  Si  les  blocs  definis  sont  de  taille  dif- 
ferente,  leur  liaison  est  toujours  effectuee  en  fonction  de  la 
taille  du  bloc  source  (Attention!). 
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Pour  faire  quciques  essais,  nous  vous  consci lions  de  limiter  vos 
operations  &  P£cran  ou  a  des  zones-mertioires  bien  d&erminccs.  II 
n’est  pas  facile  de  prevoir  les  res  u  I  tats  de  cette  fonctkm  de  bloc 
et  it  peut  done  en  resulter  de  mau  vaises  fonctions  ou  des  plantages 
du  systeme. 

Exempie  : 


At= STRING  1(82000,"  -*) 
B«=STRINGf  (S2OO0-+  ') 
DIM  A%(S)JB%(5}1C9G(e) 

A96  (©)= VARPTR  (At ) 
A96(l)=WO 
AX(2)=4G0 
A%(S)=A*(1)/1© 

A%(4)=0 

A%(S)=I 

BX(0)=VARPTR(Bt) 

B%(1)=640 

B%(2)=400 

BX(s)=B%(i)/ib 

BX(E)=i 

C%(8)=7 

FOR  1=0  TO  380  STEP  30 
CX(0)=10 
C%(1)-10 
C%(2)  =  !+  16 
CX(3)=!+16 
CK(4)  =  10 

e%(s)=i0 
C%(6)=U16 
CX(7)=s|+  16 

BITBLT  AX0.BX0.CX0 
SPOT  B* 

NEXT  I 

PRINT  MIDI  (Bf  ,28800,  J60O) 
DEFFILL  ,0,0 
PBOX  0,0.400,200 
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PRINT  AT(1PS);"L*  vaieur  ASCII  du  caroc  '  -  *  e»t  *,ASC("-") 
PRINT  *U  v»Jeur  ASCII  du  cxricUre  ’  +  '  «t  -;ASC{"+') 
PRINT  •  * 

PRINT  *  Union  OR  du  deux  vilcuri" 

PRINT  *  V  BIN$(ASC(’,-*))”{Motif  de  bits  dc  *;ASC 

PRINT  *  BIN*(ASCf +*))w,(Motir  de  bill  de  m  Ji8C[*+m)?}m 

PRINT  *  * 

PRINT  "  dorm*  *; 

Nouvbinf— BIN$  ( ASC  (" +-)  OR  ASC(“*)) 

Nouvmc=ASC("+*)  OR  ASC(*-*) 

PRINT  Nouvbinl"(nouy*eu  ASCII  =  ";Nouva*c;“)" 

PRINT  *  nouveau  cuKtlrt  =  *iCHR$(NouvMc) 

VOID  INP(J) 

EDIT _ _ _ 


BGET 
Syntax© : 

9 

BGET  #canal,adresse,nombre 

Lir©  une  parti©  du  fichier  sur  ur»  canal  et  la  plae©r  en  memoir© 
sous  une  adresse  definie. 

“#canal"  identifi©  un  fichier  ouveri  grace  &  OPEN.  "N  ombre"  indique 
le  nombre  d’octets  qui  sont  charges  en  memo!  re  a  partir  de  !a 
position  du  pointeur  du  fichier,  en  com  men  fa  nt  par  i^adresse". 

Exempt© : 


OPEN  *0*1#l1*Te§t.Fieh“ 
PRINT  #1;*  BASIC  GCA*; 
CLOSE 

At“SPACEl(B) 

OPEN  *r,#l,*T«t.Plch* 

imu&A _ 
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BGET  #14VARPTR(A*),6 
CLOSE 

PRINT  At _ 


BMOVE 
Syntaxe : 

BMOVE  adrcsse  source, ad resse  objet.nombre 

Unc  zone  memoire  quelconquc  esi  recop iee  dans  une  autre  zone- 
memoire. 

Cette  instruction  importante  et  rapidc,  permet  des  manipulations  de 
memoire  &  plus  grande  eehclle.  Conjointement  avec  !' instruction 
SPUT,  il  est  ainsi  possible  d'effectuer,  par  exemple,  des  suites 
d’ images  rapides  ou  un  scrolling  damages.  Le  "nombre"  d*octets  de 
la  zone-memoire  commengant  par  Fadresse  source"  est  reeopi6e  dans 
la  #zone-m6moire  commen9ant  par  Fadresse  objet".  La  zone  source 
reste  alors  inchangee. 

Exemple : 


S=FRE(0) 

RESERVE  S -100000 

At=SPACES(32OO0) 

A-HIMEM+ 1000 
FOR  1=1  TO  3 
DEFF1LL  ,2,1*2 

pe ox  i*ioo.rso1ri6o,t*i20 

BMOVE  XBIOS(2),A+  ((M)* 32000) ,32 000 
CLS 
NEXT  I 
REPEAT 

FOR  I=A  TO  A+ 64000  STEP  320 
BMOVE  I,VARPTR(Af) ,32000 
VSYNC 
SPUT  AS 

_ JBXtTJE,  MOUSEK_OR_LEN(INKEYS)_ 
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NEXT  I 

UNTIL  MOUSEK  OR  LEN(INKEYt) 
CLR  AS 

RESERVE  S-250 
EDIT 


BPVT 
Syniaxe : 

BPUT  #canal,adresse,noiiibre 

Une  zone-memoire  dcfinie  pent  etre  inscree  dans  un  fichier  d£ja 
exists  m. 

Cette  instruction  represente  la  fonction  complements  ire  de  BGET. 
Une  zone-memoire  commengant  par  fadressc"  et  comprenant  un 
certain  "nombre"  d’octeis,  est  inseree  dans  un  fichier  &  parti r  de 
la  position  de  son  poimeur.  Ce  fichier  a  ete  ouvert  a  Taide  de 
Tinstruction  OPEN,  et,  est  identifie  par  Je  numero  d'un  "canal".  A 
Tinverse  de  BSAVE,  il  est  possible  d'ecrire  sur  des  parties  d*un 
fichier  ou  d*en  ajouter. 

Exemple : 


DEFF1LL  ,2,4 
PBOX  100,100,640,800 
SGET  A  t 

OPEN  "O’,#  1, "Tat" 

BPUT  #lfXB10S{2),  16000 
CLOSE 

OPEN  “U%#I,"Tat" 

SEEK  #1,16000 
FOR  1=1  TO  8 

BPUT  #l,VARFTR(At)+  16000.2000 

NEXT  I 

CLOSE 

BLOAD  -T«*l",VARPTR{AS) 

SPUT  At 
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CLR 
Syntaxe : 

CLR  Var,  Var%,  Var$, 

Efface  Ics  variables  individueHes  (sauf  les  variables  de  tableau). 

Le  nom  de  la  variable  qui  doit  €tre  effacee  ou  le  listing  de 
variables  a  effacer,  ret  indique.  La  presente  instruction  remplace 
dcs  chainre  nullcs  ou  vides. 


CRSCOL 
Syntaxe : 

CRSCOL 

Rgtourne  la  colonne  stir  laquelle  se  trouve  actuellemcnt  le  curseur, 
en  fonction  de  Porigine  de  1'ccran. 

A  finverse  de  la  fontion  POS  retournant  la  position  de  la  colonne 
relative  a  la  chaine  de  caract6res  ou  se  trouve  le  curscur,  la 
presente  instruction  donne  la  cotonne  (1-80)  sur  fee  ran  ou  se 
trouve  le  curseur. 

Conjointement  avec  CRSLIN*  elle  est  complementaire  de  PRINT 
AT(S*Z). 

Voir  exemple  pour  CRSLIN 


CRSUN 
Syntaxe : 

CRSLIN 
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Retourne  la  ligne  sur  laquelle  se  trouve  actuellcmcnt  le  curseur, 
en  fonction  de  Porigine  de  Pecran. 

L'£cran  sous  TOS  dispose  d’un  FONT  8*16  con  tenant  80  colonnes 
et  25  lignes  de  caracteres.  La  presente  fonction  retourne  la 
ligne  de  Pecran  sur  laquelle  se  trouve  actuellement  (I  k  25) 
le  curseur. 

Conjointemem  k  CRSCOL,  cctte  fonction  esi  complementaire  de 
PRINT  AT(S,Z). 

Exemple : 


FOR  1=1  to  goo 

PRINT  -TEST  CRSCOL/CRSUN 
IP  CRSCOL>GO 
PRINT 
ENDIF 

IF  CRSUN=2G 
'  CL3 
ENDIF 
NEXT  I 


DEFNUM 
Syntaxe : 

DEFNUM  chiffre 

Toutes  les  valeurs  retournees  par  la  presente  fonction  sont 
arrondies  au  chiffre  indique. 

Les  nombres  doivent  dtre  arrondis  au  chiffre  significatif  (3  k  II) 
indique.  La  partie  des  nombres  reels  situee  avant  la  virgule  et 
apres  le  chiffre  significatif,  donne  des  zeros.  Si  le  chiffre 
significatif  se  trouve,  par  centre,  dans  la  partie  situee  apres  la 
virgule,  les  chiffres  qui  suivent  sont  ignores. 
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L’arrondissement  s’effectue  avec  unc  exactitude  math^matique  de 
(INT(A+0.5)).  Si  la  presente  fonction  est  appliquee  a  des 
variables,  leur  con  term  n'est  pas  modifie. 

La  definition  du  chiffre  significatif  coneerne  toutes  les  indi¬ 
cations  numeriques  retourn&s,  et  n’est  modifiee  ou  annulec 
(DEFNUM  li)  que  par  la  prochame  definition. 


EVEN 
Syntaxe  : 

EVEN(nombre) 

Determine  la  parite  d’un  nombre. 

La  valeur  -I  (vrai)  est  retour  nee,  s*il  s’agit  d’un  nombre  pair.  Si 
cela  n’est  pas  le  cas,  vous  obtenez  la  valeur  0  (faux). 


EXEC 
Syntaxe : 

EXEC  mode,* pig"," cdtfVenv"  (en  tant  qu' instruction) 

A= EX EC( mode,"  prg" ^ede" ,"en v" )  (en  tant  que  fonction) 

Les  programmes  .PRG/.TOS  sent,  soil  charges  et  lanc&,  soil 
seulement  charges,  soit  charges  en  indiquant  leur  page  de  base 

Presque  tous  les  programmes  compiles  ou  assembles  du  type  "  PRC 
ou  ".TQS”  peuvenl  etre  charges.  II  faut,  pour  cela.  preparer  une 
zone-memoire  assez  grande  (voir  RESERVE). 

’'Mode'1  corn  tent  soit  la  valeur  0  (charger  et  lancer),  soil  la 
valeur  3  (charger). 

"Prg”  represente  le  nom  entier  du  programme  (v  compris  le  chemin 
de  selection). 
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“ Cdc H  contient  une  lignc  de  commando  qui  doit  eventuel  lenient  etre 
transmise  au  programme,  afin  de  declcncher  differenies  operations, 
Dans  la  plupart  des  cas,  it  suffit  d'indiquer  one  chaine  vide. 

"Ehv”  represcnie  one  chaine  de  caracteres  contenant  une  description 
de  Tenvironnement  du  programme.  Cette  chaine  n’est  pas  assez 
documentee  par  ATARI  pour  permetire  un  jugemcnt  definitif  quant 
&  ses  possibilites  d'utilisaiion.  Dans  tous  tes  cos,  el le  peut 
etre  indiquee  en  tant  que  chaine  vide. 

Si  EXEC  est  utilises  cn  tant  que  function,  la  variable  contient,  en 
mode  =  0,  unc  vateur  evcnluellement  retournee  par  le  programme 
appclc. 

En  mode  =  3,  la  variable  eontiem  Tadresse  de  la  page  de  base  du 
programme  cn  question,  unc  fois  que  le  chargement  est  term  me. 

Des  programmes  non  executables  sont,  par  exemple.  les  programmes 
res  i  dam  en  memoire  (SID),  I'assembteur  SEKA  ou  tous  les  program¬ 
mes  utilisant  des  "batches'*. 

Exemple : 


(BEx«cut«r 
IF  R.«>tore— 1 
CLEAR 

RESERVE  S  r*** 

ENDIF 

PROCEDURE  Exec u ter 

FILESELECT  "\*V\; Selected! 

IF  Sctected!>H  AND  Srl*cUdt<>"\" 

IF  EX  I  ST(Sel  ec  K  ed  S )  <  >  0 
S  pnee— FRE{0) 

RESERVE  5DOOO 

ALERT  2*1.  Ch«rj*r  ei  tanc*r|2  Charger 
el  fourmr  buepagt<,ll,''  1.  |  2  ",Dummy% 
IF  Dtiminy%-1 
EXEC  O.Selecledt 
R.citon=l 

ELSE _ 
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A%=EXEC(3.S<lwled* *,**" 

PRINT  A% 

ALERT  2*Rendr*  memoir*  I  nouvtuu  dUponibte  ?*, 
1,-Oui  [Non  \Dummy2% 

IP  Dummy2%  =  I 

VOID  CEMDOS(&U49,L:A%) 

R.e«tora=l 
ENDIF 
END  IF 
ENDIF 
ENDIF 

RETURN  


FALSE 
Syrnaxe : 

FALSE 

* 

Con  dent  la  constant?  0 

La  valeur  booleenne  esl  retournfie  pour  differentes  Fonciions  (par 
ex.  EXIST).  Pour  ameliorer  la  clarie  du  programme*  la  consiante 
FALSE  pent  £tre  utilisee  &  la  place  de  la  valeur  0  lors  des  tests 
de  condition  ou  quand  des  valeurs  sons  indiquees  (voir  aussi  TRUE). 

Exemple : 


IF  EVEN  (IS) = FALSE 
PRINT  "Notnbr*  impair 
ENDIF _ _ _ 


FORM  INPUT  AS 
Syntaxe : 

FORM  INPUT  nombre  AS  VarS 
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Affiche  le  content!  d'une  variable  de  chaine  sur  l’ecran  et  autorise 
I'edition  ulterieure  de  I'ensemfole  ou  d'une  partie  de  cette  chaine. 

”N ombre”  represente  le  nombre  de  caracteres  a  editer,  et  se 
poursuit  dans  la  chaine  Var$  indiquee  <des  le  debut).  Apres  une 
nouvelle  saisie  et  la  validation  par  <RETURN>,  la  nouvellc 
chaine  est  contenue  dans  la  variable.  L'ancien  contenu  est  entiere- 
ment  remplace. 

Si  "nombre"  dcpasse  la  longueur  de  la  variable  indiquee,  il  faul 
fa  ire  de  la  place  a  la  saisie  en  appuyant  sur  <DELETE>  avani 
I'edition. 

Si  une  variable  vide  est  indiquee,  la  presente  instruction  a  la 
m&me  fonetion  que  "FORM  INPUT  nombre, VarS'’. 


HI  DEM 
Syntaxe 

HIDEM 

Fait  disparaltre  totalemcnt  le  curseur  de  la  souris. 

En  lisant  directement  le  contenu  de  la  m6moire-4cran  grace  a  BLOAD, 
la  page-teran  chargee  est  endommagee  par  le  masque  du  curseur  de 
la  souris.  Ceci  se  produit  egalement,  si  le  curseur  est  rendu  in¬ 
visible  en  surface  k  I'aide  de  DEFMOUSE  STRINGS(74,MK1S(0». 

HIDEM  fait  dispa raitre  le  curseur  de  la  souris,  mais  les  coor- 
donnees  de  sa  posit  ion  peuvent  tou  jours  fit  re  obtenues  k  I’aide 
de  MOUSE  X,Y,K  ou  MOUSEX/MOUSEY. 

Si  une  boite  de  selection  ou  d'alarme  est  affichfe  apr£s  avoir  fait 
disparaitre  le  curseur  de  la  souris,  il  redevient  visible  pendant 
I’ utilisation  de  la  boite.  Ensuite,  il  disparait  k  nouveau. 
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Une  fois  le  programme  (ermine,  il  reapparait  sans  6tre  appele 
(SHOWM). 

La  pcesente  instruction  est  complementaire  de  SHOWM 


HIMEM 
Syntaxe : 


HIMEM 


Retour ne  I'adresse  de  la  zone-memoire  situ6e  aprfes  cede  reservee 
au  BASIC  GfA  { interpreter,  programme,  zone  FRE{Q)  et  variables). 

La  pr£sente  instruction  sen  avant  tout  k  eonnaltre  I'adresse  de 
debut  de  la  zone-m6moire  dispomble  quand  r instruction  RESERVE 
est  utilises  (manipulations  de  bloc  k  Taide  dc  BMOVE,  BGET, 
BLOAD,  etc.). 

Voir  exemple  pour  BMOVE. 


INP? 

Syntaxe : 

INP7(port) 

Rctourne  si  un  octet  pout  etre  lu  ou  non  au  pcripberique  indique 
(voir  INP). 

'Port'  represen te  le  numero  d* identification  du  periphirique  dont 

Petal  doit  6tre  obtenu. 


0 

LSTr 

imprimante 

1 

AUX; 

interface  seriate 

2 

CON: 

clavier  et  ecran 

3 

MID: 

MIDI  In 
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Si  un  octet  peut  etre  lu,  la  valeur  -1  (vrai)  est  retournee.  Dans 
le  cas  contra i re,  on  obtient  0  (faux). 


MIDSO* 

Syntaxe : 

MIDS(var$,debut,nombre)»expression  de  chaine  alphanumerique 

En  indiquant  une  expression  de  chaine,  une  partie  d’une  variable 
alphanumerique  d£ja  existante  peut  etre  remplacee, 

"Var$m  represente  le  nom  de  la  variable  alphanumerique  qui  doit 
etre  modifies.  "Debut”  comient  la  position  de  1’ancienne  chaine 
alphanumerique  &  partir  de  laquelte  la  nouvelle  chaine  doit  are 
inseree.  L’emploi  de  "nombre"  est  facultatif  a  indique,  le  cas 
echeant,  le  nombre  maximum  de  caracteres  a  remplacer  a  partir  de 
"debut”. 

# 

Si  "nombre”  est  absent,  la  fonction  r  emplace  un  nombre  de 
caracteres  correspondani  au  nombre  de  caracteres  de  T  expression 
de  chaine  alphanumerique”.  Dans  le  cas  oil  Texpression  de  chaine 
alphanumerique”  est  plus  longue  que  la  partie  de  Tancienne  chainc 
apres  "debut”,  seuls  les  caracteres  restant  jusqu’a  la  fin  sont 
remplaces. 

La  longueur  d’ongine  de  la  chaine  n'est  done  pas  modifiee  par 
1'opcration. 

Exemple  : 


Af=*L«  ftouwsu  BASIC  GfA" 
PRINT  AS 
FOR  1=1  TO  25 

MIDI  (AS  ,S)= LEFTS  (AS,  I) 

PRINT  AS 
NEXT.  I 
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MONITOR 
Syntaxe : 

MONlTOR(pararnetre) 

Si  le  BASIC  GfA  a  ete  lance  a  partir  d’un  moniteur  rfeidant  en 
memoire,  ce  dernier  pent  etre  appelc  par  la  presente  instruction. 

Des  extensions  de  commande,  definies  par  soi-meme  grace  au  vecteur 
d’exception  4,  peuvent  cgalemcnt  etre  lancees. 

Le  "parametre”  facultaiif  per  met  de  transmettre  des  valeurs  (par 
ex.  des  adresses).  tine  valeur  ainsi  transmise  au  registre  de  don- 
nees  0  peut  etre  appelee  par  le  SID  ou  d’autres  extensions  even- 
tuelles. 

De  plus,  le  registre  AO  contient  radrcsse  d’une  table  pointeur 

pour  les  differents  types  de  variables. 

# 

La  presente  instruction  ne  permet  d’appeler  que  des  moniteurs  ou 
des  debuggers  qui  ont  *’transforme,r  le  vecteur  deception  4 
(Illegal  Instruction)  en  une  routine  d'appel. 

II  s'agit,  par  ex.,  du  "SID’’  du  package  developpe  par  Digital 
Research.  Pour  utiliser  ce  moniteur,  il  faut  le  lancer  de  la  fa^on 
habituelle,  en  diquant  les  icfines  du  desktop.  II  faui  alors 
prendre  soin  que  le  SID  contienne  Pextcnsion  .PRG  (modifier,  si 
necessaire). 

Inserez  maintenant  la  disquette  contenant  le  programme  BASIC  ; 

e  gfabasic.prg  charge  Pinterpreteur  BASIC 

g  lance  rinterpreteur 

Le  premier  aeces  &  rinterpreteur  produit  un  message  d'errcur  que 
vous  pouvez  ignorez  II  n’a  aucun  effet  sur  le  travail  de  P  inter - 
preteur. 
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Si  une  erreur  est  commise  en  utilisant  rinterpretcur,  le  systeme 
n’affiche  pas  de  message  d’erreur,  mais  retourne  a  la  saisie  en 
SID.  A  partir  d'ici,  vous  pouvez  ma  intenant  detecter  et  corriger 
vos  errciirs  grace  aux  options  du  SID.  La  lettre  "D**  du  nom  SID 
represen te  "debugger**  (debugging,  angl  :  suppnmer  des  erreurs). 
La  saisie  de  ”g"  appellc  alors  &  nouveau  rinterpreteur  BASIC. 

Vous  pouvez  appeter  directement  le  moniteur  grace  a  rin  struct  ion 
MONITOR.  Ceci  vous  met  £galement  en  mode  SID  pour  la  saisie.  A 
1'interieur,  MONITOR  declenche  alors  un  message  d’l  llegal  - 
Instruction*  qui  ensuite  est  rattrape  par  le  SID, 


Avant  de  revenir  &  rinterpreteur,  il  faut  obtenir  Petal  aciuel  du 
compteur  de  programme  (PC=program  counter)  grace  a  la  saisie  de 
"xpe”  en  SID.  Son  contenu  est  alors  affiehe  sur  Pecran  et  le  SID 
attend  la  saisie  d’un  nouveau  contenu  du  PC.  Ajoutez  2  a  la  valeur 
obtenue  et  indiquez  la  nouvelle  valeur,  en  la  validant  par 
<RETURN>.  Vous  vous  retrouvez  alors  cn  mode  commands,  et 
pouvez  done  appeler  a  nouveau  1‘ inter  preteur  BASIC,  grace  a  Pins- 
truction#Hg**  {abrev.  de  ’■go"). 

Quclques  instructions  du  SID  : 


e  nom  de  programme 

g 

x 

x  registre 


d  adresse 


charger  le  programme  (e  -  abrev.  de 
"execute") 

lancer  le  programme 

affichage  de  tous  les  registres 

affichage  d'un  seul  registre  et  attendre 

modification 


Excmple 

* 

xs 

pile  (ST  -  stack) 

xss 

pointeur  super  pile  (SSP  - 
superstack  pointer) 

XUS 

pointeur  pile  utilisateur(USP  - 
userstackpointer) 

xaO 

registre  d'adresses  0  (AO) 

xd4 

etc... 

registre  de  donnees  4  (D4) 

af ficher  en  octets  le  contenu  de  la  memoire 
a  partir  de  1*' adresse" 
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dw  adresse 
dl  adresse 

l  adresse 

I 

$  adresse 
$w  adresse 

si  adresse 


affichcr  en  mots  le  comenu  de  Ja  memoiie  & 
partir  de  l1" adresse" 

affichcr  en  mots  longs  te  contenu  de  la 
memoire  &  partir  de  Padresse* 
par  ex.  dlb0ef2 

disassembler  a  partir  de  Padresse'1 
disassembler  le  prochain  bloc 

afficher  le  contenu  de  Padresse*  ei 

at  (end  re  modification 

afficher  un  mot  £  partir  de  Padresse"  et 
airendre  modification 

afficher  un  mot  long  a  partir  de 

Padre^e*  et  attendre  modification 
Si  vous  apppuyez  sur  <RETURN>  lors  des 
instructions  "sH,  "sw",  "st"  sans  avoir 
mod  if  i  e  la  valeur,  Fane  ten  contenu  de 
Padresse  reste  inchange  et  la  prochaine 
adresse  sera  affichee  en  format  souhaite. 
Pour  revenir  cn  mode  commands,  appuve2 
sur  <TAB>  et  sur  <RETURN>. 


Remarque  :  Ceux  qui  connaissent  bien  les  veeteurs  d’exception* 
savent  sans  doute,  qu'il  est  possible  d’appeler  ses  propres 
routines  a  Faide  des  vccteurs.  C*est  pourquoi  unc  modification  du 
quatrieme  vecteur  permet  de  creer  ses  propres  extensions  (voir 
journal  Vt"  12/86). 


ODD 
Syntaxe : 

GDD(  nombre) 

Permet  d’obtenir  la  parite  du  nombre  transmis. 

La  valeur  -I  (vrai)  est  retournee  si  le  nombre  est  impair.  Dans  le 
cas  contraire,  vous  obtenez  0  (faux). 


-  544  - 


BASIC  GfA  l '2.0 


ON  MENU  BUTTON  GOSUB 
Syntaxe : 

ON  MENU  BUTTON  nombre,louche,etat  GOSUB  Procedure 

Branche  le  programme  sur  une  procedure,  si  la  touche  de  la  souris 
indiquce  a  ete  cliquec  plusieurs  fois  de  suite  (doublc/triple 
die). 

"Nombre"  represente  le  nombre  maximum  de  dies  a  enregistrer,  IJ  ne 
s’agit  pas  d’une  fonction  de  sortie.  C'esl  simplement  pour  indiquer 
le  nombre  maximum  de  dies  &  at  tend  re 

"Touche"  determine  la  touche  de  la  souris  qui  doit  dre  uiilisec 
pour  cliquer. 

0  aucune  touche 

1  touche  gauche  de  la  souris 

2  '  touche  droite  de  la  souris 

3  les  deux  touches  de  la  souris  simultanemeni 

"Elat'*  determine  quel  etat  de  la  touche  choisie  doit  declencher 
Pevenement. 

0  aucune  touche  enfoneee 

1  touche  gauche  enfoneee 

2  touche  droite  enfoneee 

3  les  deux  touches  enfoncees  simultanement 

Comme  les  indications  plus  haul  ne  peuvent  pas  etre  prouvees  et  vu 
que,  en  outre,  I' analyse  correspondante  est  assez  compliquee,  vous 
trouverez  ci-aprcs  les  differemes  variety  de  dies  possibles. 

Nous  ne  tenons  compte  Que  d’un  maximum  de  double  die,  ce  qui 
represente  sans  doute  ta  limiie  du  faisable.  Les  triple  dies  sent 
pl  u  tot  pour  ceux  a  yam  un  bon  doigte 

ON  MENU  BUTTON  2,0,1  GOSUB  BUTTON 
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Le  branchement  esl  toujours  effecrue  ei  toutes  les  combinaisons  de 
touches  declenchent  i’evenemenL 

ON  MENU  BUTTON  2,1 ,1  GOSUB  BUTTON 

Le  branchement  n’est  effected  que  si  les  deux  touches  ou  la  touche 
gauche  son!  enfoncees.  Declenehement  seulement  suite  k  remploi 
de  la  touche  gauche  ou  dcs  deux  touches  simuItanemenL 

ON  MENU  BUTTON  2,2.1  GOSUB  BUTTON 

Branchement  toujours  si  la  touche  droite  et  les  deux  touchy  ne 
sont  pas  enfoncees.  Declenehement  suite  k  touche  gauche. 

ON  MENU  BUTTON  2,3  ,1  GOSUB  BUTTON 

Branchement  toujours  si  touche  gauche  enfoncee.  Declenehement  suite 
k  touche  gauche. 

'  ON  MENU  BUTTON  2,2,3  GOSUB  BUTTON 

Branchement  si  touche  droite  ou  les  deux  touches  sont  enfoncees. 
Declenehement  suite  &  touche  droite  ou  les  deux  touches. 

ON  MENU  BUTTON  2,3,2  GOSUB  BUTTON 

Branchement  si  touche  droite  enfoncee.  Declenehement  suite  k  touche 
droite. 

ON  MENU  BUTTON  2,3.3  GOSUB  BUTTON 

Branchement  si  les  deux  touches  enfoncees.  Declenehement  suite  aux 
deux  touches. 

Les  conditions  &  liees  k  Tev^nernent  doivent  figurer  a  i’ inter ieur 
de  la  procedure  indiquee.  11  est  alors  possible  de  lire  le  nombre 
de  dies  reels  dans  MENU(I5).  Vous  trouverez  les  coordonnees  X/Y 
de  la  position  de  la  sourss  lors  de  Tevenement  dans  MENU(IO) 
pour  X  et  dans  MENU(ll)  pour  Y. 
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Exemple  : 


ON  MENU  BUTTON  3,3,1  GOSUB  BUTTON 
DO 

ON  MENU 
LOOP 

PROCEDURE  button 

PRINT  AT(€0 ,30)  ;MEN  U(  15 ) 

PRINT  AT(eO>3l);MENU { 10)  *MBNU(1I) 

IT  MENU(lS)-3  I  ai  double  die, 

EDIT  1  *lon  fin. 

ENDIP 

RETURN _ 


OPTION 
Syntaxe : 

OPTION  "texte  de  P instruction*’ 

II  esi  possible  de  donner  au  compilateur  de  BASIC  CfA  des 
instructions  de  travail. 

Vous  trouverez  une  description  detaillee  de  toutes  les  options  de 
compilateur  dans  le  chapitre  5  "Le  compilateur  -  le  summum!" 


OPTION  BASE 
Syntaxe : 

OPTION  BASE  O  =*=>  indice  de  debut  =  0 
OPTION  BASE  I  indice  de  debut  =  1 

11  est  possible  de  choisir  Pindice  de  debut  des  tableaux  utilises 
(0  qu  I  ). 
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Com  me  cela  peut  el  re  complique  ct  defavorable  de  travailler  4 
r inter ieur  d’un  vecteur  avec  des  elements  nuls,  il  est  possible  de 
les  diminer  ou  de  les  restituer.  Cette  definition,  par  centre, 
s'applique  4  tous  les  tableaux  du  programme.  II  est  cependant 
possible  de  modifier  4  plusieurs  reprises  1* indice  de  debut  pendant 
Pexecuiion  du  programme,  les  elements  deftnis  s’y  adaptant 
toujours. 

Si  votis  avez  done  commence  a  remplir  les  tableaux  en  OPTION 
BASE  1  et  si,  ensuite,  Pelement  nul  est  introduit,  le  contenu 
entier  du  tableau  est  decale  d’un  element  vers  le  bas.  Dans  le  cas 
contraire  (d’abord  des  dements  nuts),  tons  les  corneous  som 
decales  d’un  element  vers  le  haul,  si  la  base  des  tableaux  est 
modtfiee  de  I . 

Exemple : 


dim  AS6(4) 

PRINT  "Option  bait  0" 

FOR  1=0  TO  4 
A%(I)=riOG+lOO 

PRINT  "EUm*nt  “;STR$[!)f  =  -.A96(I) 
NEXT  I 

PRINT  "Option  but  V 
OPTION  BASE  l 
FOR  1=1  TO  S 

PRINT  “EUnwnt  *;STR$(1);*  =  ";A%(I) 
NEXT  1 _ 


OUT? 

Syntaxe : 

OUT?{ peripherique) 

Permet  de  savoir  si  le  peripherique  indique  (voir  OUT)  est  pr£t  4 
recevoir  ou  non. 

’Peripherique*  represen te  le  numero  du  peripherique  dont  Petal 
doit  eire  obtenu. 
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0  LST:  imprimante 

1  AUX:  interface  serielle 

2  CON:  clavier  et  ecran 

3  MID:  MIDI  OUT 

Si  un  octet  peut  £tre  envoye  ay  penpherique,  la  valeur  -I  (vrai) 
est  retournee,  Da  ns  le  cas  centra  ire,  on  obtient  0  (  faux). 


RESERVE 
Syntaxe : 

RESERVE  nombre 

Determine  la  place-memoire  disponible  pour  le  BASIC  ("FRE(0)w), 

"Nombre^  com  lent  la  nouvelle  taille  en  octets  tie  la  memo  ire 
principale  du  BASIC.  Si  la  place  memoire  do  BASIC  diminue,  la 
nouvel!6  place  disponible  peut  ctre  util  i  see  com  me  vou$  le 
souhaitez. 

Poyr  cela*  vous  disposez  d’instructions  telles  que  BMOVE,  BLOAD 
ou  BGET,  mais  aussi  de  fichiers  .RSC  (si  Resource  Construction 
Set  est  disponible). 

Si  la  place-memoire  du  BASIC  augmente.  i!  faut  noier  que  le  GEM 
et  le  GEMDOS  utilisent  pour  certains  travaux  (comme  boitc 
d’alarme,  boite  de  selection  de  fichiers,  DTA  etc...),  la  place- 
mcmoire  situee  directement  au-dessous  de  la  memoire-ecran 
<XB10S(2)), 

L*interpreteur  determine  automat iquemcnt  la  borne  superieure 
de  la  place-memoire  disponible  pour  le  BASIC  a  16384 
octets  au  dessous  du  RAM  du  moniteur-video.  U  est  done  pos¬ 
sible  d'epuiser  la  memoire  jusqy’au  RAM  du  moniteur-video 
(RESERVE  FRE(G)+ 16384). 
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Dans  le  cas  present,  HI  MEM  el  XBIOS(2)  seraient  identiques.  En 
procedant  ainsi,  le  GEM  ne  pourra  plus  representer,  par  ex*,  la 
boite  de  selection  de  fichiers.  II  faut  done  choisir  la  taiile 
maximum  de  la  place-memoire  afin  qu’il  reste  encore  un  bloc 
d’environ  4000  octets  au-de$sou$  du  XBIOS(2),  qui  soil  reserve  au 
GEM.  Si  Ton  utilise,  lors  d'une  diminution  de  la  place-memoire 
occupec  par  le  BASIC,  la  zone-memoire  situce  au  dessus  jusqu’a  la 
fronfiere  de  la  otemoire-ecran,  i!  se  peut  que  certaines  donnees 
con  ten  ues  sur  ces  4000  octets  soient  surimprimees  par  le  GEM 
(Attention!).  Pour  eviter  tout  aeces  du  GEM  k  la  zone-memoire  au- 
dessus  du  BASIC,  une  zone-memoire  peut  fctre  reservee  gr&ce  a 
RESERVE  ou  bien  k  Taide  de  la  function  $48  (MALLOC)  du 
GEMDOS.  Une  zone-memoire  reservee  grace  a  cette  derniere  fonction 
doit  etre  liberee  par  la  suite  k  Taide  d’une  autre  fonction  du 
GEMDOS:  $49  (MFREE). 

II  faut  figalement  utiliser  la  fonction  S49  pour  rendre  disponible 

la  place-memoire  occupee  par  un  programme  qui  a  ete  charge  griice 

a  V  instruct  ion  EXEC  3  et  qui,  ensuite,  n’a  pas  ete  lance. 

* 

Avant  que  la  place-memoire  du  BASIC  soil  restauree  au  cours  de 
('execution  du  programme,  nous  vous  conseillons  de  la  liberer 
egalement,  grace  k  CLEAR. 

Si  cela  n’est  pas  possible  parce  que  le  programme  a  ete,  par  ex, 
interrompu  suite  a  un  message  d’erreur,  il  faut  modifier  une  ligne 
du  listing  du  programme  avant  d’utiliser  k  nouveau  RESERVE  en 
mode  direct.  Ceci  eniraine  reffacemeni  de  toutes  les  variables. 
Vous  obtenez  le  meme  effet,  si  vous  inserez  une  instruction  EDIT 
sur  la  premiere  ligne  du  programme  et  lancez  ensuite  cette  ligne 
normalement. 

Voir  excmple  pour  EXEC. 


SGET 
Syntaxe : 

SGET  Var$ 
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Copie  le  contenu  actuel  de  la  memoire-6eran  dans  une  variable 
atphanumerique. 

MVar$"  represente  le  nom  d’une  variable  alphanumerique  prSvue 
pour  le  contenu  de  la  memoire-ecran.  A  T inverse  de  GET 
XO,YO,XltYltAS,  il  ne  faut  pas  uliliser  de  mots  tronques.  C'esi 
pourqtioi,  rinstruciion  SGET  est,  d’une  part*  environ  15  fois 
plus  rapide  que  GET  et  d*autre  part,  le  format  des  variables  <s»t 
different.  C*esl  pourquoi,  une  memoire-ecran  lue  grSce  a  SGET, 
ne  peut  etre  deplacee  a  I’aide  de  PUT. 

La  prgsemc  instruction  est  complements!  re  de  SPUT. 

Ses  fonctions  sont  identiques  k  ; 

A$-SPACE$(32000) 

BMOVE  XB IOS(2),VARPTR(A$),32000 

Exemple : 


DEFF1LL  .2,4 
FBOX  100, 100,  $40,300 
GET  0,0.639 ,399 ,  AS 
PAUSE  SO 
SPUT  A* 

PAUSE  SO 
A-LEN(AI) 

SGET  AS 

B=LEN{ASJ 

CLS 

PAUSE  100 
SPUT  AS 
CLS 

PAUSE  100 
PUT  0,0. AS 

PRINT  •’Get’  -longueur  do  In  chalne:  *^A 
PRINT  *  'S^etMongutur^dfi-bi  chnlne ; 


Voir  &us4i  I'exemple  pour  BMOVE. 


-  55  1  - 


Le  Hire  du  BASIC  G/A 


SHOWM 
Syntaxe : 

SHOWM 

Fait  reapparaltre  le  curseur  de  la  souris  a  pres  Tcmploi  de 
I' instruction  HI  DEM. 

Si  HI  DEM  a  fait  disparaitre  le  curseur  de  la  souris,  il  esi  pos¬ 
sible  de  le  faire  reapparaltre,  soit  grace  a  la  pr&ente  instruc¬ 
tion,  soit  par  VDISYS  122,  soil  en  retournant  &  Pediteur. 


SPUT 
Syntaxe  : 

SPUT  VarS 

* 

Copie  du  con  ten  u  d’une  chame  alphanumerique  au  debut  de  la 
memoire-ecran, 

"VarS"  represente  le  nom  de  la  variable  dom  le  contenu  dnit  etre 
charge  en  memoire-ecran.  11  ne  s*agi!  pas  obligatoirement  d'une 
variable  initial isee  par  a  SGET  Si  son  contenu  depasse  32000 
caracteres  (octets),  seuls  les  32000  premiers  caracteres  (octets) 
sent  pris  en  consideration. 

La  presente  instruction  esi  complementaire  de  SGET. 

Ellc  est  cgalcment  beaucoup  plus  rapide  que  PUT  0,0, AS, 

Exemple  : 


At-STRlNGt(2000,">BASIC<  on  bits!*) 
SPUT  AS 
PAUSE  50 
AS-*" 

FOR  1^1  TO  320  _ 
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At=AUCHRS(l‘(I  mod  8)) 
NEXT  I 
SPOT  At 

VOID  IMP  2)  _  _ 


Voir  suifi  t ’exempt*  pour  SGET 


TRUE 
Svniaxe : 

TRUE 

Contient  ia  constants  -I. 

Pour  certaines  fonctions  (par  ex.  pour  EXIST),  la  valeur  booleenne 
est  retournee.  Pour  ameliorer  la  lisibilite*  il  esl  possible  de 
remplacer  la  valeur  -I  par  la  constame  TRUE  (vrai)  lors  des  tests 
de  conditions  ou  lors  de  I’emploi  de  certaines  fonctions  (voir 
aussi  FALSE). 

Exemple : 


IP  EVEN(13)<>TRUE 
PRINT  PN ombre  impair!" 
ENDIF 


TYPE 
Syntaxe : 

TYPE(pointeur) 

Fournit  le  type  de  variable  qui  est  point ee. 

”Paitucur”  represente  le  numero  d*un  pointcur  indiquant  radresse 
de  la  variable  dont  le  type  doit  £tre  retourne  (voir 
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Pour  determiner  1* indice  du  type  de  variable,  il  est  cgalement 
possible  d’indiquer  dlrectement  le  nom  de  la  variable,  precede 
d'une  6tolle.  La  fonction  retourne  alors  une  vaieur  comprise  entre 
-1  et  7. 

-I  erreur  commise 
0  variable  de  nombre  reel  (Var) 

1  variable  alphanumerique  (Var$) 

2  variable  de  nombre  enlier  (Var%) 

3  variable  booleenne  (Var!) 

4  variable  reelle  de  tableau  (Var()) 

5  variable  alphanumerique  de  tableau  (VarSQ) 

6  variable  entiere  de  tableau  (Var%0) 

7  variable  bool&nne  de  tableau  (Var!()) 

Exemple : 


Al='huic* 

@T«t(*Al) 

PROCEDURE  Twt(Ptr) 

PRINT  Ty  p«(Ptr) fTyp*(*At) 

IF  Type(Ptr)<>l 

PRINT  “Typ«  d«  vtriabl*  erron*r 
ELSE 

PRINT  At  "UPPER!  (Af) 

END  IF 

RETURN _ _ 


VD1BASE 
Syntaxe  : 

YDIBASE 

Retourne  Fadresse  de  base  du  bloc  de  parametres  sous  VDL 

II  s’ a  git  ici  d’une  zone-memoire  d’environ  300  octets,  cree  par  le 
GEM  pour  la  gestion  des  differents  parametres  sous  VDI. 
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On  y  trouve,  par  ex.,  les  renseignements  concernant  la  hauteur  des 
caracteres  choisis,  le  mode  graph  ique  eta.,  Mais  il  y  a  aussi  des 
donnees  neeessaires  pour  la  gestion  de  I'environnement  du  VD1 
(peripherique  ou  fichier  OPEN/CLOSE,  FONTS,  organisation  de 
Tecran  etc..).  Comme  il  n'existe  aucune  documentation  ATARI 
concernant  cette  zone-memoire,  nous  ne  sommes  pas  en  mesure  de  vous 
indiquer  ses  octeis/mots/mots  longs  qui  s'appliquent  aux  diffe- 
rentes  fonctions.  Si  vous  pokez  dans  cette  zone-memoire,  il  se 
peut  que  les  different  parametres  sous  VDI  soient  man i pules  ou 
que  de  mauvaises  fonctions  soient  declenchees,  provoquam  alors  le 
plantage  du  systems 

L’interpreteur  BASIC  gere  differents  tableaux  et  variables  de 
programme  qui  se  trouvent  au-dessus  de  lui.  VDIBASE  se  rajoute  a 
cette  zone-memoire.  A  pres  cette  zone  du  VDI,  rinterpreteur  BASIC 
cree  une  liste  de  variables  suivie  du  programme  BASIC  en  question. 

Example : 

Le  present  programme  retourne  les  differentes  valeurs  de  format  du 
bloc  sous  VDL 


PRINT  -OcUti:- 
FOR  1=0  TO  $00 

PRINT  PEEKfVBIBASE+l)’ 

NEXT  I 

PRINT  CHKI(  10) \ CHRif  1 3) 

FOR  1=0  TO  300  STEP  2 
PRINT  DPEEKCVDIBASE+I)' 

NEXT  l 

PRINT  CKRt ( 10)  ,CHRI(  1$)  tengr* 

FOR  1=0  TO  300  STEP  4 
PRINT  LPEEK(VDtBASE+I)* 

NEXT  I 

_ Y-gJPlNECfl - - 
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VOID 


Syntaxe : 

VOID  fonctionCparametre) 

Appelle  une  fonction  sans  lui  attribuer  une  variable  de  retour. 

Dans  de  nombreux  cas,  il  n’est  pas  nfccessairc  de  creer  une  variable 
lors  de  Tappet  d'une  fonction,  car  ces  variables  ne  represen  tent 
sou  vent  quc  des  dummies.  Pour  gagner  de  la  placenmemoire  (et  du 
temps),  il  est  possible  d’appeler  ces  fonctions  a  Paide  de  VOID. 


Exemple  : 


mi  lieu  de: 

==  >; 

au  lieu  de: 

ssts  >: 

ftu  lieu  der 

ass*  >: 


A=INP(2) 

VOID  INP(2) 

A=FR£(0) 

VOID  FRE(O) 

A~GEMDOS(illEl) 
_VOlD_G £MDOS(A'HE ,  I ) 


1  ittondn  louche 


I  'garbage-cr>ll«  tion* 


!  appeler  diique  B 


VSYNC 

Syntaxe : 

VSYNC 

Attend  une  impulsion  de  synchronisation,  e'est-d-dire  un  affichage 
total  de  r image  sur  Tecran,  avant  d’afficher  le  prochain  dessin. 

Pour  les  instructions  graph iques  SPUT  ou  PUT  il  peut  fitre  utile 
d'attendre  la  restitution  totale  de  Tecran.  L' impulsion  Verticale 
de  SYNChronisation  permet  ainsi  de  limiter  le  tremblentent  de 
Timage.  Cependant,  il  existe  des  dessi  ns  graph  iques  ayant  besoin, 
pour  Taffichage  totale  de  Timage,  d’un  temps  super ieur  &  celui 
necessaire  a  Tordinateur  (monochrome  =  70  Hertz). 
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Des  inter  Terences  peuvent  aiors  se  produire. 
Voir  example  pour  BMOVE. 


4.2  UN  PROGRAMME  EXEMPLE  :  FICHIER  RAM 

L' exemple  servant  met  en  evidence  les  possibility  offertes  par  une 
propre  gestion  de  la  mCmoire.  II  s’agit  de  la  gestion  d’urt  fichier 
dont  les  donnees  sent  entrees  dans  une  zone-m£moife  rendue 
disponible  grace  a  RESERVE  ( I  er  octet  — >  HIMEM).  L’ instruction 
BMOVE  permet  de  copier  les  differents  enregistremenis  dans  une 
variable  alphanumerique  deja  preparee.  II  s’agit  done  d’un  "vral" 
fichier  RAM. 

Ce  procede  demande,  d’une  part  une  utilisation  soignee  des  actresses 
et  off  re,  d'autre  part,  plus  de  varietes  pour  d£velopper  le  pro¬ 
gramme  ainsi  que  la  possibilite  de  le  raceourcir  et  te  rendre  aiors 
plus  efficace.  On  programme  comparable  n*uti)isant  que  des  vari¬ 
ables  BASIC  pour  la  sauvegarde  serait  beaucoup  plus  long  et  done 
sans  doute  plus  lent. 

Un  fichier  d’ initialisation  est  necessaire  pour  pouvoir  exploiter 
le  programme.  La  definition  de  fichier  doit  etre  effectuce  une 
seule  fois  pour  chaque  fichier  en  question.  Vous  avez  done  la 
possibilite  de  creer  un  nombre  quelconque  de  fichiers  ay  ant  des 
structures  variees. 

Une  fois  le  fichier  defini,  les  noms  el  le  nombre  des  fichcs 
peuvent  encore  changer  ulterieurement.  Toutes  les  autres  donnees 
com  me,  par  ex.,  le  numero  ou  la  taille  de  la  fiche  ne  peuvent  plus 
fctre  modifiees,  une  fois  qu’elles  sont  definies,  Ceci  n'est  pas 
faisablc  car  autrement,  les  enregistrements  ne  logeraient  plus  sur 
le  masque  des  fiches. 
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^utilisation  du  fichier  : 

A  pres  avoir  charge  le  fichier,  vous  disposes  de  trois  fonctions 
d’utilisation  : 

1.  Rechercher  : 

Un  tableau  apparait  pour  r entree  d'une  chatne  de  caracteres  a 
rechercher.  Si  vous  entrez  une  chaine  de  caracteres  et  appuyez 
sur  <ESC>  lorsque  le  curseur  se  trouve  sur  la  derniere  posi¬ 
tion  de  la  chaine  de  caracteres  A  rechercher,  la  fonction  de 
recherche  est  abandonnte  apres  <RETURN>. 

Deux  caracteres  "Esc"  au  debut  de  la  chatne  de  caracteres  a 
rechercher  produisent  le  mfime  effet.  Par  contre,  une  autre 
chaine  a  rechercher,  eventual  lement  dejA  entree,  est  con- 
servee.  Si  vous  souhaitez  effacer  entierement  la  chaine  de 
caracteres  a  rechercher,  il  faut  entrer  comme  premier  carac- 
tere  "Esc*.  Apres  la  validation  par  <RETURN>,  ie  programme 
recherche  routes  les  expressions  du  fichier  etui  sent  iden- 
*  tiques  a  la  chaine  de  caracteres  a  rechercher.  S’il  trouve 
une  telle  chaine,  la  fiche  qui  la  contient  est  affichee.  En 
appuyant  sur  <RETURN>,  la  recherche  est  poursuivie. 

Si  vous  souhaitez  interrompre  la  recherche  avant  sa  fin,  il 
faut  appuyer  simultanement  sur  les  deux  touches  de  la  souris. 

2.  Feu  1  lifter  : 

Toutcs  les  fiches  sont  affichces  dans  leur  ordre  numerique, 
En  appuyant  sur  <RETURN>  ou  sur  la  touche  gauche  de  la 
souris,  vous  feuilletez  vers  1’avant.  Par  Pemploi  simultanc 
de  <CONTROL>  et  <RETURN>  ou,  en  en  fondant  la  touche 
droite  de  la  souris,  vous  feuilletez  vers  Tarriere. 

L’emploi  simultane  des  deux  touches  de  la  souris  permet 
d’ interrompre  reparation. 
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3,  Reg  i  si  re  alphabet  ique 

Si  vous  cliquez  un  des  petits  tableaux  marques  sur  les 
"onglets"  des  fiches,  routes  les  fiches  dont  la  premiere 
lettre  de  la  premiere  ligne  est  identique  &  la  lettre  choisie 
du  registre,  sont  affichees  dans  leur  ordre  chronologique.  II 
importe  peu  que  cette  premiere  lettre  soil  fieri  ie  en  majus¬ 
cule  ou  en  minuscule, 

L/emploi  de  <RETURN>  ou  de  la  touche  gauche  de  la  souris 
permet  d’afficher  la  prochaine  fiche, 

L'opfiration  pcut  fit  re  interrompue  par  I’emploi  simultane 
des  deux  touches  de  la  souris. 

Vous  pouvez  modifier  une  fiche  en  appuyant  sur  <INSERT>  lors  de 
I'affichage  de  la  fiche.  Le  curseur  se  trouve  alors  sur  le  premier 
caractere  de  la  premiere  ligne  saisie.  Au  debut,  cette  ligne  est 
entierement  remplie  par  des  points.  Pour  y  fieri  re,  il  faut  d’abord 
faire  de  la  place  avec  la  touche  <DELETE>,  Le  curseur  peut  fitre 
deplacfi:  sur  cette  ligne  grace  aux  quatre  touches  de  fleche  ou  A 
Faide  de  <BACKSPACE>.  La  validation  de  la  ligne  est  effeetuce  en 
appuyant  sur  <RETURN>.  Le  curseur  est  alors  placfi  sur  la  ligne 
suivante  etc... 

Pour  terminer  la  saisie,  il  faut  appuyer  stmultanement  sur 
<COHTROL>  et  <RETURN>.  Le  programme  continue  alors 
en  mode  ehoisi. 

I!  est  figalement  possible  de  sortir  le  contenu  d’une  fiche  sur  im- 
primanie.  Pour  cela,  it  faut  appuyer  simultanfiment  sur  les  touches 
<CGNTROL>,  <SHIFT>  et  ^ALTERNATE*. 

Une  fois  le  travail  ter  mine,  le  contenu  actuel  du  fichier  est  sau- 
vegarde  sur  disquette  &  Faide  de  TERMINER. 

Pour  des  informations  supplemental  res,  veuillez  consumer  le 
listing  page  suivante. 
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Les  variables  du  programme  el  lairs  significations  ; 


FichicrS 

TitreS 

Fiches 

Enregistremems 

LongueurQ 

Nom$() 

EnregistrementSO 
E  total% 

K.tota1% 

Free% 

Start 

F.char 

Ligne  1 
M.  index 
I  nd  exmem 
R. index 
Choix 
Mode 

Donntes.pos 

D.pos 

P.os 

DonneesS 

SearchmemS 

SearchS 

SortcharS 


Nom  du  fiehier  sur  disqueue 

Titre  du  fiehier 

Nombre  de  fiches 

Nombre  dc  lignes  par  fiche 

Zone-memoire  pour  la  longueur  des  lignes 

Zone-memoire  pour  les  noms  de  lignes 

Zone-memoire  pour  les  lignes  d’enregistrements 

Longueur  totale  d’un  enregistrement 

Longueur  totale  de  tous  les  enregistremems 

Memoire  BASIC  disponible  avani  le  lancement  du 

programme 

Adresse  de  debut  du  fiehier 

Adresse  de  debut  de  la  premiere  ligne  cn 

question 

Position  du  pixel  de  la  premiere  ligne 
Indice  de  menu  (1-3) 

Marquage  de  find  ice 
L' indice  de  registre  {0-25) 

Flag  (menu  ou  registre) 

Flag  (option  de  menu) 

Pointeur  sur  la  ligne  actuelle  dans  DonneesS 
Position  actuelle  de  la  chaine  de  caracteres  ft 
rechercher  dans  DonneesS 
Offset  de  la  phrase  pour  Fccrire  a  nouveau  en 
memo  ire 

Chaine  de  caracteres  ^  sauvegarder  con  tenant 
Fenregistrement  actuel 

Marquage  de  la  chaine  de  caracteres  i  rechercher 
chaine  de  caracteres  &  rechercher  actuelle 
Premier  caraetere  de  la  premiere  ligne  d'une 
fiche 
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>  FICHIER- VARIO  -RAM  < 

>  Progrnmme  DEFINE  < 

29  Avril  1987 


Avftnt  4*  lancer  un  fichier  pour  la  prmiiin  foil,  lea 
different «  donnftt  d ’initialisation  doivent  tire  determine** 
pour  le  fichier  an  question,  gr&ce  au  programme  DEFLITS E 
•uivant- 


* 


Lei  donnte*  situ  tea  &  I'inUrieur  d«  c«  bloc  peuvent  tire 
1  #  modi fiies  comm*  vou*  !e  souhaiteE 

I 

Enregistrem*nt~4ata  :  I 

D  AT  A  BO ,  n  om ,  30  tp  rin  cm  ,40  , ru  e,  4  .code  postal  4  0  ,do  mi  cile 
DATA  lS.teUphonB.SO.date  n&iM  .SO.prof. ,60, render- voua,60,notM 

I 

II  faut  tout  d’abord  entrer  Tune  apris  t’autre,  sur  1m 
tignes  DATA,  lea  longueur*  louhultei  des  diffinntei 
tignes  de  saisie  (max-  de  60  car  act  ires)  puis  lea  noma 
qui  doivent  ftgurer  sur  le*  tignes  c  rrespondantM  (noma  s 
max.  de  10  caractens). 

* 

FichierJ=:“  Adreasea"  t  Nom  du  fichier  *Ur  I*  disque  (sans 

f  extension) 

Titre$~*Adresses  (privies)*  1  Indiquer  le  Mtre  de  la  fiche 

Fichei- 50  I  Indiquer  le  nornbre  de  fichei 
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I  Enrtgistr,  par  fiche  (max.  20) 


OPEN  "0",#l.Fiehier|+".DEr' 

F  ichi  e  r$ = Fie  hicrl + **  .DA T* 

WRITE  #l1Fichiert1T.lr«| 

WRITE  f  1  ,Fichei,Enregitl  remcn tt 
RESTORE  Enr*giitrem*nt-d#U 
FOR  I%=1  TO  Enregistremeni* 


READ  Longueur  ,Nom| 


Ouvrir  Itchier  DEFINE 
Raj  outer  I ‘extension  .DAT 
Entrer  tea  definition* 

Entrer  tee  definitions 
Posit  tenner  lc  pointeur  DATA 
Pour  tout  enregist  rumen  ts 
Lire  les  longueurs  el  les  norm 


IF  LEN(Nom|)>iO 

Noml^EFTKNomi.lO) 

ENDIF 

IF  LEN(Nom*)<IO 

Noml=Nomt+SPACEi(10  LEN(Nomt)) 

ENDIF 

IF  Longueur>60 

AN.  STR$=W  Longueur  de  I’enregietrement  •+STRt(l%)+*  est|diminuie 
&  60  carae  tires  T 

ALERT  LAL.*tr*,J, "OKAY- .Dummy 
Longueur=60 
ENDIF 

WRITE  #1  .Longueur.Noml  !  Entrer  donates  des  masques  des  fichos 

NEXT  1%  I  Prochain  enregislrement  sur  fiche 

CLOSE  #1  I  Fenner  fichler  DEF 


>  FICHIER-VARIO  -RAM  < 

>  Programme  principal  < 


29  Avril  1B87 
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Avant  de  lancer  un  fichier  pour  li  pnmltre  foil,  certainea 
dorm  tea  do i vent  tire  d£fimea  &  1'aide  du  programme 
FJCHJDEF.BAS 

Un*  foia  «  travail  termini  iJ  faut  crier  un  lRhier  DEF  pour 
le  ‘clawur'  en  qu ration. 

Ce  fichier  eat  alora  ouvert  Ion  du  tancetnent  du  programme 
principal  et  lea  donniea  DEFINE  mont  iuea. 

II  eat  done  poaaibie  d1  exploiter  un  nombre  itlimit#  de  fichier 
avec  le  priaent  programme. 


ON  BREAK  CO  NT  I  Pa*  d 'interruption 

DEFF1LL  ,2.4 

DEFTEXT  ,16, ,26 

PBOX  10,10,629,389 

TEXT  194 ,46/TICH-V  ARID -RAM" 

Start: 

ALERT  l/Choiair  fichier  I",  l,"  OK  AY"  .Dummy 

F1LESELECT  "\*.DEFV  .Selected* 

1 F* S elect edS>"“  AND  Selected* o'V  AND  Selected* o^  DEF" 

’  Si  un  fichier  a  hi  clique 

IF  RIGHT|(Selected$.3)="DEF"  \  Avec  extern  ion  .DEF  ? 

OPEN  ”  I",#  l  .Selected*  I  Ouvrir  fichier  DEFINE 

ELSE  1  Pm  d 'ex  tension  -DEF  I 

ALERT  3,"Pm  de  fichier  -DEF  !!" ,  1 Rccommencer"  .Dummy 
GOTO  S.Tart  I  Recommeneer  dta  le  debut 

ENDIF 

ELSE  1  Si  non 

EDIT  1  Alora  p&a 

ENDIF 

INPUT  #l,Fichier*,Titre|, Fiche*,  Enregiatrement*  1  Lire  lea  donn4e* 

DIM 

Longueur(enregiatr*m«nts}JNnm*(enregtstrementa)lEnr«giatr«ment* 

(enregistrementa) 

FOR  I%=1  TO  enregiatrementa 

INPUT  #llLongueur(t%}lNom$(l%)  I  Lire  marque  de*  fiche* 

ADD  E. totals .Longueu  r(l  %)  !  Longueur  total*  de  la  fiche 
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Enreg«trement$(l%)=SPACES(Long-Lieur{l96))  f  Ddfmir  iont  mtoo  re 


NEXT  1% 

CLOSE  #1 

K,total%~E.tota3%*Fichua 
D>onn4«*t=SP  ACES  (E. tot  al%) 


f  Firmer  fichier 

I  Retourner  longueur  d«  fichea 
!  Preparer  ntimoire  dc  phratea 


1  Prip&rer  la  md moire 
» 

Frte96=FRE(0) 
RESERVE  100000 
Start =IUMEM+ 1000 


!  Retourner  place -memo ire  duponible 
1  100.000  K  octet*  aont  auffiaant*  pour  BASIC 
!  Adreaac  de  debut  de  I’enaeRtble  du  fichler 


1  Preparer  le  background 

■ 

DEFFILL  ,2.8 
PBOX  7,7t©36,3B6 
DEFFILL  .2.4 
PBOX  3,3,632.302 
DEFFILL  ,2.8 
PBOX  12,13,406,80 
DEFFILL  ,0.0 
PBOX  10,11.404.48 
GRAPHMODE  2 
DEFTEXT  ,20,, 26 
TEXT  20,41  SSS.Titrcl 
DEFTEXT  .21, .26 
TEXT  20,41, 38$ .TitreS 

Ligne  .1=(  I N  T  (  (  (  24  -en  r  egi*  t  re  me  nta)/2)-l)*16)+7 


*  Detainer  le  regiatre 

GRAPHMODE  1 
DEFFILL  ,0 
DEFTEXT  ,17. ,6 
FOR  136—25  DOWNTO  0 
DEFFILL  ,2.8 

PBOX  40+136*20+3,380  136*13+3,80+196*20+25.370-136*13-12 
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DEFFILL  ,0,0 

PBOX  40+ 156*30.380-1% •  13 ,»0+I%*20+2213f0'I%- 13' IS 
BOX  40 4- 1 56 *20 -*-2 ,380 -1%“  13-14,80+ 156*20-20,370 -I%*  13 -13 
BOX  40+ 196*2®+ 4,380-196*13- 16,80+ I9&*2O-22,S70 -195*13-1 1 
TEXT  40+ 1%*20+  46,380-1%*  13- 1 5,CHR*(65+ 196) 

NEXT  I?6 


*  Detainer  le  menu 

I 

DEFFILL  ,2,8 
PBOX  12,60,118,144 
DEFFILL  ,0,0 
PBOX  10,38,116,142 
DEFFILL  ,2,8 
PBOX  16,63,114,86 
PBOX  16,00,1 14,113 
PBOX  16,117,114,140 
DEFFILL  ,0,0 
PBOX  14,61,112.84 
PBOX  14,88,112.111 
PBOX  14,115,112,138 
GRAPHMODE 2 
DEFTEXT  ,16., 13 
TEXT  20,78, "Recherther* 

TEXT  20,105  •Feuilbtcr" 

TEXT  20. 132  "Terminer" 

DEFTEXT  ,17 

TEXT  20,78, "Reehercher" 

TEXT  20,I05."F«ii!leter" 

TEXT  20, 132, "Terminer* 

SGET  Background!  I  Sauveg&rdcr  le  background 


*  Charger  ou  erfer  le  fichier 


Chargeur: 

IF  EXIST(Fichiert)  I  Si  le  fichier  «xi»te, 

GRAPHMODE  l 
PBOX  300.180,440,220 
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TEXT  220(206,pFichier  tat  charge  T 

BLOAD  Fichiert  .Start  I  alert  charger 

SPUT  Background  I 
ELSE 

ALstrf="Fiehier  non  trouvfi  l|R*crtw  ?“ 

ALERT  ^ALjitrl.SrNouv  |ichierlRecommencer|lnterniption*  .Dummy  % 


IF  Dummy9S=I 
GRAPHMODE  I 
PBOX  200,180,440,120 
TEXT  230,200  "Un  petit  instant  !" 

FOR  l%=Start  TO  Start*  K. tot al % 

POKE  1%,250  1  Remplir  mimoire  du  Itchier  par  das  points 

NEXT  1% 

BSAVE  FichierS  ,St art ,K. totals  !  Ecrire  ftchicr  vide 

SPUT  Background! 

ENDIF 


IF  Dummy %-2 

GOTO  ehargeur  !  Si  recommences-,  alors  t  nouveau 

ENDIF 


IF  Dummy%=8 

LPOKE  XBlOS(2)+ 32000, Free  96  !  Sauver  It  maxi  de  place- m*  mot  re 

CLEAR  I  Effacer  toutes  les  variables 

RESERVE  LPEEK(XB  103(2)4-  32000)  !  Rest  surer  ancienne  mtmoire 
EDIT  !  Retour  4  1'tditcur 

ENDIF 


ENDIF 

I 

■  *•*•***■»**•*■*■••••••*•***»***  •••■•••«  ********** **+*4***4 

♦  Tester  l'mdice  du  registre 

DO  I  Boucie  principal* 

DEFFILL  ,2.8 

INDICEM^I = R.index  1  Se  souvenir  do  1'ancien  indice  de  registre 


DO  !  Grande  boucie  4  I'intcrieur 

REPEAT 
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UNTIL  M0USEK=1  OR  ASC(!XKEYf)=13  I  Touche  gauche  aouna  ou 
REPEAT  I  <RETURN>  ? 

UNTIL  INKEYf=""  !  Vider  me  moire -clavier 

CRAP1IMODE  3  I  Graphmode  3  pour  dignotant  dc  la  bolte 


REPEAT  I  petition 

Choix=0  1  Mettre  flag  dc  choix  I  aGro 

Xx=INT((MOUSEX-IOj/20)  I  Abcclue  X  dc  find  ice  do 

*  !  regiatre  (0=A  /  2S-Z) 

Yy=25  lNT((MOUSEY  60)/l3)  2  1  Ordcnn**  Y  dc  l'indice  de 
4  !  regiatre  (0“A  /  2$=Z) 


IF  MO  U5EX>  14  AND  MOUSEX<  112  AND  MOUSE  Y>61  AND  MOUSEY  <  143 

I  Si  poinieur  cut  menu 

Yyy=INT[(MOUSEY-62)/27)+ 1  1  calcukr  l'indice  du  menu 

PBOX  16,62+ (Yyyl)*27.1 10,62  *(Yyy-l)*27  + 21  I . | 

PAUSE  12  1  J«- >  Bolte  dignote 

PBOX  16,62+  (Yyy-l)*27JlIG162  +  (Yyy-l)*27+21  1 - 1 

M.ind«x=Yyy  1  Rcprendre  l'indice  du  menu 

Choix  ~2  I  Flag  de  choix— 2  =>  menu  choiai 

ENDIF 


IF  Xx—  Y y  AND  Xxs>0  AND  Xx<26  !  Si  cureeur  de  la  aourie 

I  eur  dec  champ*  de  regift  res 

PBOX  40+ Yy*20+ 2,380  Yy-13  14.80+ Yy*20  2D, 370  Yy*13  13 
PAUSE  12  1  ——>  dignotant  de  la  bolte 

PBOX  40+  Yy*20+  2.380-Yy*  13 - 14,80  «•  Yy  *20 -20,370- Yy*  13 -13 
R.  index—1 Yy 
Choix=l 
ENDIF 

*  . . — 

UNTIL  MODSEK— 0  !  juaqu  &  touche*  aouria  —  0 

* _ _ _ __  _  _ _ „ _ _ _ _ _ „ 

EXIT  IF  Choix=l  OR  Choix- 2  I  Quitter  grande  bond*  It 

LOOP  I  fintCrieur.  ai  choiai 

•  . . * . _ _ _ _ _ 

GRAPHMODE  1 

IF  Choix— 1  !  Si  option  du  regiatre  a  4U 

1  choiai  c 
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@ACnON(2) 


ELSE 

B'lndex-Indexmcm 

IF  M. index— 1 

(®Action(D) 

ENDIF 
IF  M.index=2 
#Action[l) 
ENDIF 

IF  M.index=S 


1  Si  option  du  menu  a  choiiie 
I  Ancicn  mdice  du  registre 
f  Si  option  de  menu  “Rechercher" 


I  Si  option  de  menu  "Feuilteter" 


I  Si  option  de  menu  •Terminer" 


ALERT  2*Fermer  fichier  ?-,irOKAY|NON",Dummy% 
IF  Dummy 96=1 
GRAPHMODE  1 
DEFFILL  ,0.0 
PBOX  200,180.440.230 
TEXT  220.206,*,Fi[ihier  eet  claae*  P 
©SAVE  F  ich  icr  S  ,S  tart  ,K .  total  % 


I  Sativegarder  fichier  aur 
I  diaque 

!  Sauver  mu.  de  plan- m^mo  ire 
I  Ef facer  lee  variable* 


'LPOKE  XBlOS(2)+82000,Free% 

CLEAR 

RESERVE  LPPEK(XDIOS(2}+ 32000)  I  Reetaurer  ancienne  mfrnoire 
ALERT  2  "Charger  nouveau  fichier  ?*  OK  A  Y|NO  N"  ,D  u mmy 
IF  Dummy=l 

RUN  !  Relancer 

ELSE 

EDIT  !  Retour  4  l’4diteur 

ENDIF 
ENDIF 
ENDIF 
ENDIF 


SPUT  Background! 
LOOP 


t  Rcf&ire  background 
!  Fin  de  la  boucle  principal* 


■  ••i 
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PROCEDURE  Action(Mode) 
DEFTEXT  ,L(>13 
DEFF1LL  .0,0 


IF  Mode-0 
SEARCH: 

DEFFJLL  ,1.8 
PBOX  261.308.620.S51 
DEFFJLL  .0.0 


I  Si  mode  ’Such'  ft  iU  choiii 

i . I 

I  I 

I  | - >  Detainer  bolu 


# 


PBOX  250,306.618,340  !  I 

BOX  261,308.616.34?  ! - --| 

PRINT  AT(36 ,2 1 ) ;* Chaim*  ft  rechcreher  r  p; 

SearchmemS—SearchS  I  Mimoriaation  nncienne  chain* 


FORM  INPUT  27  AS  Search* 
IF  LEN  (Search! )  >  25 

Search*- LEFT*{SearchS, 25) 


!  Sat* it  (27  de*ainer)<RETURN> 
I  Si  chains  >  35  destine? 

I  2  detainer  place  pour  annul 


END  IF 


IF  MlDt(Seiireh*.l.2)=CHR$(27)  OR  RIGHTt(Search*)=CHRS(27) 

*  1  2  Etc  dibut  on  1  Esc  &  la  fin 


Scare hf  -  Search  memS 

i 

GOTO  O  UT 
END  IF 

IF  LEFT$(Search$)=CHRI(27) 
Searchls"- 


!  ret  owner  andenne  eholne  ft 
I  rec  here  her 
!  Terminer  recherche 

I  Si  1  Etc  au  dibut 
I  Efface?  entiftrement  chalne  6 
I  rec  here  her 


GOTO  SEARCH 
END1F 
END  IF 


I  el  recommencer 


Detainer  fich* 


PBOX  8,Lfgnt.l,6l7,Lifne.I  +  l6^Enregi»treinenl**16 
BOX  ll.Ltgne . l+S.622,Lignel  +  16+  Enregitlrcmenll*  16-5 
PBOX  8, Ligne.lt-  16+EnregUtre 
menta*l6+  1  627,Ligne  1+  16+Enregialr*m#nt**16-§>18 
BOX  8,Lifne-l,628.Llp»el  + 16+ EnrefitireiijenU *16+10 
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I%—0  I  Remettre  compteur  4  e£ra 

DO  I  Bcuclc  dr 

Recommencer: 

INC  1%  I  Compteur  + 1 

F.char%=St&rU  (l%-l]*E.(oisI%  1  Adniu  ler  octet  de  I'enreg. 

BMOVE  F  chnr^.VARPTR  Donn<nl),E  tct#J56  I  Imirer  cnreg.  dn.ni 
*  I  chatne 


Donn£es  poa=  1  !  Position  enreg.  sur  ler  csru 

FOR  J%— 1  TO  enregLStremcnts  I  Defimr  enreg.  sur  lee  lichee 

Enregi*  tremen tl (I % ) =M1  D| ( DonnietS .Don n£e  e  pos tLc ngue  u  r(  J  % ) ) 
ADD  Donnies  pos,Longueur(J 56) 

NEXT  J56  !  Proch&in  enrcgislremcnt 


IF  Modc=3  I  Si  «n  mode  'Alpha'  (alphabet  ique) 

IF  I56>fiche»  I  et  si  demitrc  fiehe  attaints 

GOTO  O.UT  I  alon  Interrompn  afTich&ge 

ENDIF 

Sorttbrl=LEPT$(Donnti»$)  I  Rechercher  ler  canc.  de  I’enreg. 

IF  Sortchsr$<>CHR$(R  index+  65)  AND  SortchartoOHRSfR. index*  97) 

!  Si  premier  came.  <>  car&c.  Alpha 

IF  MOUSEKoS 

GOTO  recommence  (  Charger  prochame  phrase 

ENDIF 
ENDIF 


ENDIF 


IF  Mode-0  !  Si  mode  "recherche" 

D.pos=lNSTR(0  .DonnietS,  Scare  h$)  j  Ch&tnc  rec  here  hie  4 

!  I'mterieur  de  I'enreg.  ? 

•  _ _ _ _ ^ _ 

IF  D.pooO  I  Si  chains  tocher  chit  trouvi* 

(^Showcarts  !  alors  affichage  del  Itches 

ENDIF 

1  ___  •  _____  _ _ _ 

ELSE  I  si  "Feu ill e ter"  ou  mode  "Alpha" 

gShowcarts  I  Biers  4  I'aiTichage  dei  lichee 

I 
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IF  [MOUSEK-2  OR  KEY=10)  AND  Mode=l 


f 

!  Si  “FeuilJeteF*  el  louche  droite 

• 

1  de  I*  aourle  el  cm  plot  aimultan# 

* 

1  de  <RETURN>  et  <CONTROL>, 

SUB  I9S.2 

IF  I%<0 

196=0 

ENDIF 

ENDIF 

I  nlor*  compteur  -2 
!  Si  eompleur  mttrieur  t  a*ro 

1  remettre  compteur  4  aero 

ENDIF 


IF  SCAN ~82 
g&CHANGINGS 

DEC  m 

ENDIF 

SCAN=0 

1  Si  <INSERT>  enfoncle 
!  dors  i  procedure  de  modification 
l  Compteur  -1  [retour  uicienne  fiche) 

1  ^  H,  h.  m .m  m  __  _  _  _  _  __  _  _  _  ___  _  4  *■«  —  —  —  *  W  *  —  «**  — 

EXIT  IF  MOUSEK=3  OR  (Modeol  AND  1%-Fichaa) 

*  I  Interruption  du  pare  our*,  ai  lea 


• 

f 

1 

i 

t  deux  touche*  de  la  aouris  tntonciti 

1  ou  ai  mode  "Feui  Meter*  tonics  le* 

1  lichee  out  6l£  feui!iet«e* 

IF  1%=>  Fichc* 

I%=0 

ENDIF 

LOOP 

O.UTt 

RETURN 

I  Si  compteur  >  nombre  de  liche* 

I  at  or*  compteur  i  nouveau  aur  ler  fiche 

PROCEDURE  Showcerta 

ON  BREAK  GOSUB  imp  rimer  !  Lon  de  BREAK  -- >  Imprimer  He  he 

FOR  J%=1  TO  En  re  gi*t  remen  ti  1  Afficher  enregiatre.  dea  riche* 

PRINT  AT(4,J%+  la-  Lignc .  1/ 16) ;Nom$( J%);" :  ";Enregi»trement$(J96);" 

<" 

TEXT  2 2, Ligne- 1  + 16+  Enregiitremeni*ne+  1S,STR*[I%)+"  " 

NEXT  J96  I  Prochain  enregiatrement 

1  ■■■■■■ 

REPEAT  I  Attendr* 
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KEYt=INKEY$  I  Twter  k  clavier 

KBY=ASC(KEY!)  !  Code  ASCII 

SCAN=ASC[RfGHT!(KEY!))  I  Code  special 

UNTIL  MOUSEK  OR  KEY- 13  OR  KEY- 10  OR  SCAN=82  I  juiqu’i  ct  que 

I  emplol  de  touche  iouris  oil 

*  1  <RETURN>  ou  action  similitude 

*  I  tur  <RETURN>  et  <CONTROL> 

*  I  ou  <INSERT> 


ON  BREAK  CONT  !  Pu  d'interruption  ou  pu  d'  mpresnon 

REPEAT  I  Vidcr  ndmoire -clavier 

UNTIL  INKEYI^” 

* 

RETURN 


PROCEDURE  Changings 
DO 

Poe=0  I  Poaition  de  debut  &  stro 

FOR  COUNT— 1  TO  Enregiitrementa  I  Afficher  enreg  pour  edition 
Dummy|=Eriregistrementl(COUNT}  !  Enregi*.  d&ns  dummy  de  taiaie 
PRINT  AT(l©,COUNT+ i+Lign*-l/l8j;  I  Position,  chalne  de  curse 
FORM  INPUT  Longueur (C  OU NT)  AS  Dummy!  I  Saisic  de  la  chalne 


*  ............ — «  |  de  carac tires 

IF  BlOS(U,-l)=4  I  Si  emptoi  simultant  de  <RETURN> 

»  I  et  <CONTROL> 

Off=l  I  mettre  flag  d' interruption 

END  IF 

*  _ 


LSET  Etiregi>trement!(COUNT)= Dummy!  I  Insurer  saiiie  dans 
BMOVE  I  en  regia  t  reman  t 

VARPTRfEnregistrcment!(  COUNT))  .Fchar^+P.oe.LongueurfCOUNT) 

*  I  Ecrire  en  regia  trement  en  m&noire 

P.os=P.o«+Lof)gueur(  COUNT)  !  Cal  ruler  prochatne  position  debut 
EXIT  IF  O  fT=l 

NEXT  COUNT  !  AfT c her  prochain  enregistremeni 

IF  O.FF=l 
GOTO  O.UT2 
ENDIF 
LOOP 
O.ulX: 
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Off=© 

RETURN 


PROCEDURE  IMPRIMER 

ALERT  S*Inipriinanlfl  prH#?" .  1  ,’OK  AY|NON",Dummy 
IF  Dummy =1 

FOR  K56-1  TO  EnregiatremcnU 

LPR1NT  Nor^K^S);";  ^Ercr*gv*tr«mti*tt(K9G) 
NEXT  K56 
ENDIF 
Dummy=0 
RETURN 

■  *#»*♦«■•***»***•••'•••*♦*  **•#**•  **»■#*** •***•♦»■  "  *  *  *  * 


# 
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5.  Le  compilateur  -  le  summum  ! 


It  fa  ud  rail  in  venter  un  nouveau  nom  pour  ce  que  M.Frank 
OSTROWSKI  a  fabrique  iei.  Que  pensez-vous  de  "Ostropiler"  ? 
Vo  us  connaissez  les  compitateurs  C,  Modul  ou  Pascal  ? 

En  iravaillant  avec  te  present  compilateur  BASIC,  vous  pouvez 
tranquil lement  oublicr  tout  ce  que  savez  sur  le  fonctionnement 
habitue!  d*un  compilateur  (liaison,  bibliotheques,  etc.). 

II  est  difficile  d’ecrire  sur  un  outil  aussi  complique  mais  quand 
mCme  facile  k  utilzser  Comme  vous  atlez  le  voir,  1' utilisation  du 
compilateur  est  assez  simple,  pour  peu  que  vous  ayez  un  minimum 
d'entrainement  La  complexity  du  present  programme  ressort,  par 
exemple,  de  sa  taille. 
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Le  compilateur  et  te  fichier  ,RSC  corresponds  nt  occupent  au  total 
(environ)  55  K  octets.  De  boos  compilateurs  des  autres  langages  ont 
presque  la  rotate  faille  ("linker"  inelus).  Mais,  leiir  taille  com- 
prend  egalement  les  40  &  80  K  octets  reserves  pour  les  biblio- 
theques. 

Je  suppose  que,  dans  raven  ir,  beaucoup  de  personnes  s’mteresse- 
ront  a  cette  nouvetle  technique  qui  est  de  strueturer  le  compila¬ 
teur,  Le  mieux,  scran  encore  de  faire  un  seul  programme  du  com¬ 
pilateur  et  de  Pinterpr&eur  dans  un  seul  programme.  Ceci  pour  rail 
economiser  pas  mal  de  code-programme.  Alors,  M.  OSTROWSK1  ?? 

Ce  qui  para  it  egalement  presque  incroyabte  est  le  fait  qu'un 
programme  ,BAS  d’environ  100  K  octets  soil  entieremeni  charge, 
compile  et  reecrit  sur  disquette  en  tant  que  programme-machine, 
tout  prfit,  en  moins  de  trois  minutes.  II  est  inutile  de  parler  ici 
des  petits  programmes  en  BASIC  (jusqu'&  environ  10  K  octets). 
Ceux-ci  sont  traites  4  une  vitesse  qui  ne  vous  laisse  rotate  pas  te 
temps  de  songer  a  la  ires  fameuse  tasse  de  cafe  qu'il  est  possible 
de  faire  et  de  boire  durant  tout  le  temps  que  les  autres  compila¬ 
teurs  prennent  pour  execufer  le  mime  travail.  La  raison  du  "galop" 
de  ce  programme,  reside  dans  le  fait  qu'il  dispose  d'une  structure 
asscz  complexe  avec  des  chemins  ires  courts  et  qu'il  represente 
un  compilateur  RAM  4  100  pour  cent.  Pendant  Pexecution  du  compi¬ 
lateur,  la  memoire  principale  n'est  done  pas  utilisee  pour  stocker, 
le  cas  echeant,  des  fichiers  de  travail. 

Le  programme  peut  done  etre  sauvegarde  sur  une  disquette  protegee 
contre  toute  4criture,  sans  que  cela  gene  ie  travail  du  compila¬ 
teur. 

Celui  qui  dispose  du  confort  d*un  disque  RAM  ou  d'un  disque  dur, 
doit  faire  attention  a  ne  pas  succomber  4  la  frenesie  du  present 
compilateur.  Les  disques  RAM  ou  les  disques  durs  reduisent  le  temps 
(de  chargement  et  de  sauvegarde)  par  un  coefficient  cfenviron  10. 
Celui  qui  connait  deja  d'autres  compilateurs,  en  a  sans  doute  de 
belles  4  raconter  en  ce  qui  concerne  relimination  des  erreurs  de 
programme. 
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Editer  -  compiler  -  lier  -  tester  -  le  programme,  programme  tourne 
mal.  Encore  one  fois  :  charger  le  programme  dans  Pcditeur  - 
fiditer  -  compiler  -  ...  etc... 

Nous  possedons  ma intenant  on  compilateur  BASIC  entierement 
compatible  a  Pinterprcteur.  Nous  ne  rencontrons  done  pas  ces 
problemes  car  nous  pouvons  nous  mettre  k  raise  derriere  not  re 
interpreter  et  profiler  de  ses  avantages  Quand  te  programme  est 
pret,  if  passe  k  toute  vitesse  par  te  compilateur  et  voiia  -  tout  k 
coup,  un  programme  .PRG  executable  se  trouve  sur  disquette,  If  peut 
ensuite  etre  lance  en  cliquant  a  partir  du  desktop,  et  voiia  qui 
tourne  ! 

II  n*y  a  que  peu  d’exceptions  k  ce  que  le  programme-machine  ne 

fonct tonne  pas  tout  a  fait  comme  on  fa  espere.  Ce  peut  dire  le 

cas,  par  exemple,  lorsque  les  quelques  options  du  compilateur  (voir 

OPTION  plus  bas)  n’ont  pas  ete  uiilisees  de  fa^on  adequate.  Dans 

ce  cas,  le  programme  .BAS  doit  a  nouveau  etre  edn6  Mais  avec  un 

peu  d’expcrience,  cela  ne  devrait  plus  poser  de  problemes. 

# 

D'autres  erreurs  peuvent  etre  dues  au  fait  que  le  fonctionnement  du 
compilateur  est  completement  different  de  ceiui  de  f  interpreter. 
II  en  resulte  des  differences  dans  I'utilisation  des  instructions. 
Mais  ces  differences  sont  apres  tout,  assez  I  unit  ces,  et  elles  vous 
seront  rapidemeni  familieres.  Nous  y  reviendrons  a  nouveau  un  peu 
plus  loin. 

Sans  exagerer,  nous  pouvons  dire  que  le  present  compilateur  a  fixe 
des  mesures  auxquelles  tous  ceux  qui  vont  etre  developpes  dans 
I’aven ir  seront  compares. 


5.1  COMPILATEUR  /  INTERPRETEUR 

Quelle  est  la  difference  enire  un  compilateur  et  un  interpreter  ? 

Un  interpreter  effcctue  des  traductions  simultanees,  qu’il  tradult 
sur  le  tas,  instruction  par  instruction,  de  code-programme  en  code- 
machine.  Le  deroulement  du  programme  est  alors  contrOle. 
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S*il  est  inter rompu  ou  termine,  il  retour ne  en  mode  saisie  et 
permet  done  d’etre  immediatement  reed  it  e.  Si  aJors  des  erreurs 
logiques  on  syntaxiques  ont  ete  commises,  if  est  facile  de  les 
detecter  et  de  les  corriger. 

Un  compilateur  n’offre  pas  toutes  ces  possibility.  II  effectue  k 
Favance  la  traduction  du  texte-programme  en  texte-machine,  avam 
que  le  programme  ne  soil  lance  k  parti r  du  desktop  gr&ce  a  un 
double  clic.  Ce  programme  est  done  completement  independant  d’un 
traducieur  car  le  systems  d'operation  ou  le  processeur,  peut  com- 
prendre  et  trailer  le  code-machine  directement.  La  suppresion  de 
T intermediate  permet  ainsi  d'augmenter  la  viiesse  d'execution 
d’une  fa?on  considerable.  En  ce  qui  concerne  le  compilateur  du 
GfA,  cette  augmentation  peut  atteindre  jusqu’a  2000  pour  cent. 
Les  programmes  tournent  done  selon  le  type  et  Fefficaeit£  du  code 
source  (texte  BASIC  du  programme  source)  k  one  viiesse  jusqu’A  20 
fois  plus  elevee. 

Imaginez-vous  un  velo  normal  et  une  Porsche  "nor male"  roulam  k 
vitesse  maximum,  Voila  le  rapport  de  viiesse  entre  le  programme 
interpretc  et  le  programme  compile.  Mais  cela,  sous  reserve  qu'il 
existe  des  conditions  opt i males.  Par  exemple.  des  programmes 
purement  arithm£tique$  qui  ne  iraitent  que  de  nombres  en  tiers,  qui 
effectuem  des  affichages  le  moins  souvent  possible  et  qui  ne 
disposent  d’aucune  option  de  compilation.  Dans  des  conditions 
nor  males,  la  presente  compilation  permet  une  vitesse  de  trois  a  six 
fois  plus  grande.  Pour  revenir  k  notre  exemple  plus  haul  :  le 
rapport  de  vitesse  entre  une  bonne  mobylette  et  une  Porsche,  Le 
paragraphe  precedent  met  en  evidence  l'a  vantage  d’utiiiser  le  plus 
souvent  possible  des  variable  entieres  k  F  inter  ieur  des  program¬ 
mes. 


S.2  ^UTILISATION  DU  COMPILATEUR 


Si  elte  n’esl  pas  encore  ressortie  des  chapitres  precedents,  la 
void  ma  intenant  etudiee  de  fa^on  plus  detaillce  : 

A pres  avoir  developpe,  teste  et,  le  cas  echeant,  corrige  un 
programme  4  Faide  de  Finterpreieur,  vous  pouvez  le  sauvegarder 
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sur  disquette,  disque  RAM  on  disque  dur  grace  k  la  fonctlon 
SAVE  de  Pediteur  on  k  I'aide  de  P  instruct  ion  ’’SAVE  nom  de 
programmer  en  mode  direct.  N’utilisez  ni  "SAVE, A"  du  menu  de 
Pediteur,  ni  les  instructions  LIST  ou  PSAVE  car  le  compilateur 
refuse  tous  les  code-sources  de  ce  genre.  Le  programme  se  trouve 
alors  sur  une  memoire  de  masse. 

Si  vous  n’utilisez  pas  la  routine  de  debut  .PRG  (voir  EXEC), 
lan^ant  ainst  le  compilateur  k  partir  de  Pinterpreteur,  il  faut 
quitter  ce  dernier  et  revenir  au  desktop,  k  partir  duquel  vous 
pouvez  lancer  ie  compilateur  grace  k  un  double  clic. 

line  bolte  de  dialogue  apparait  alors,  vous  demandant  d’ initialiser 
les  options  du  compilateur  qui  seront  event uellemeni  necessoires 
par  la  suite.  Si  vous  Pavez  deja  effectue,  grice  k  Instruction 
OPTION  du  code-programme,  vous  pouvez  negliger  cette  demande 
du  compilateur.  L*instruction  OPTION  et  ta  signification  des 
boutons  situes  a  Pinterieur  de  la  boite  de  dialogue  seront  etudies 
plus  bas  dans  te  chapitre  5  3.  Ensuite,  vous  cliquez  done  le 
tableau"  "Compiler"  de  la  boite  ou  appuyez  sur  <RETURN>,  et 
choisissez  dans  la  boite  de  selection  de  fichiers  qui  apparait 
main  tenant,  le  programme  BASIC  k  compiler.  Lors  du  premier 
parcours,  le  fichier  .BAS  est  entierement  charge  en  memoire  et 
sa  structure  est  verifiee.  Si  elle  n’esi  pas  correcte,  il  vous 
est  demandes  de  la  corriger  k  Paide  de  Pinierpreteur.  Lors  du 
deuxieme  parcours,  le  programme  est  entierement  compile.  Pour  cela. 
il  est  recharge  en  memoire,  paragraphs  par  paragraphe,  et  con  vert  i 
pas  k  pas  en  programme-machine.  Pour  rendre  ce  processus  moins 
ennuyeux,  Peer  an  est  rempli  alternativement  par  des  tignes  noires 
et  blanches  tors  de  la  compilation. 

Une  fois  la  compilation  terminee,  une  nouvelle  boite  de  selection 
de  fichiers  apparait,  s'appelant  "Ecrit  PRC'.  Le  nom  de  votre 
programme  BASIC  est  deja  affiche  sur  ie  cOte  droit  de  la  boite,  au- 
dessous  de  "Choix",  avec  P extension  .PRG.  Si  vous  souhaitez  girder 
ce  nom,  il  suffit  de  cliquer  "OK". 
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Si  non,  vqus  pouvez  tou  Jours  le  modifier  grace  aux  fonctions  habi- 
tuelles  de  Pcdiieur,  a  savoir  <BACKSPACE>,  <DELETE>, 
<ESCAPE>  ainsi  que  les  touches  de  fleche,  ou  en  cliquant  le 
nom  d’lme  fenfetre,  II  faut  noter  que  le  compilateur  ne  cree  pas  de 
fichicr  BAK.  Si  vous  indiquez  alors  le  nom  d*un  programme  deja 
exist  ant  sur  ta  disquette,  il  est  surimprime  sans  pitie.  En  outre, 

i!  faut  prendre  soin  qu'il  reste  suffisamment  de  place  disponibte 

sur  la  disquette  devant  conienir  le  programme  final.  Malheureuse- 
ment,  le  compilateur  ne  peut  pas  la  cafculer  et  vous  la  retourner. 
S’il  n'y  en  a  pas  suffisamment,  un  message  apparait.  mdiquant  que 
vous  avez  comm  is  une  erreur  d'orthographe,  Le  compilateur  retournc 
alors  a  la  boite  de  saisie.  Ccla  sign  i  fie  qu’il  faut  &  nouveau 
entierement  compiler  le  programme.  Le  cas  echeani,  changez  done 
la  disquette  avant  que  cela  vous  arrive. 

A  pres  avoir  clique  "OK",  le  programme  machine  PRG  est  sauve- 

garde  sur  la  memoire  de  masse  (disquette,  disque  RAM  ou  disque 

dur).  Une  fois  cela  termine,  la  boite  de  dialogue  du  compilateur 
rfepparait  et  vous  pouvez,  soit  compiler  encore  d’autres  pro- 
gfammes,  soit  *  inter  rompre"  le  compifateur.  Sur  ta  disquette  se 
trouve  maintenant  le  symbole  de  programme  PRG  typique  avec  le 
nom  de  voire  programme  au-dessous.  Vous  pouvez  alors  choisir  ce 
symbole  grtce  a  un  double  die  et  lancer  ainsi  votre  programme- 
machine.  Ce  sera  it  tout  en  ce  qui  concerne  I’ utilisation  du 
compilateur,  s’il  n’existait  pas  encore  les  differentes  options 
possibles. 


5.3  LES  OPTIONS  DLT  COMPILATEUR 

Lors  de  la  description  de  V instruction  OPTION,  elle  n’a  pas  ete 
eiudiee  en  detail.  Ceci  est  effect  ue  ci-opres  dans  un  cadre  cor- 
respondant. 

L’ ins  (ruction  OPTION  permet  d’indiquer  au  compilateur  comment  il 
doit  trailer  certains  etats  ou  ply  tot  comment  votre  nouveau  pro¬ 
gramme  compile  doit  trailer  ces  etats. 
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OPTION  "Ox" 

Le  premier  etat  a  trailer  se  produit  si*  lors  du  derou  ement  d'un 
programme  compile,  la  fonction  d’ interruption  ( habit uelle  pour 
T  interpreter)  <CONTROL>,<SHlFT>,<ALTERNATE>  esi 
utilisee.  La  letlre  'I*  vue  plus  haul,  represente  done  ’imer- 
ruption\ 

En  indiquam  pour  ’x*  un  nombre  compris  entre  0  et  3  (par  ex.  12), 
il  est  possible  de  reagir  de  quatre  differences  fa^ons  a  cetie 
tentative  d’ interruption. 

OPTION  nur 

La  fonction  d’imerruption  n’est  pas  inseree.  Cest-a-dire 
qu’il  n’est  pas  possible  d’interrompre,  par  les  touches 
correspondantes,  un  programme  compile  lors  de  son 
execution.  Un  branchement  du  programme  par  ON  BREAK 
GOSUB,  eventuellement  prevue  a  T  inter  leur  du  programme, 
n’est  plus  possible  non  plus.  En  principe,  I’OPTION 
'  "U0"  produil  le  m£me  effei  a  Tinterieur  du  programme 
compile  que  I' instruct  ion  ON  BREAK  CONT  de  I’inter- 
pretcur.  La  scule  difference,  etant,  qu’ici,  les  routines 
n£ces$aires  pour  trailer  la  fonction  d’imerruption  ne  sont 
pas  inscrees  dans  le  programme  compile,  le  rendant  ainsi  un 
peu  plus  court. 

Si  vous  n’avez  pas  utilise  cette  instruction  a  Tinier ieur 
du  programme,  it  esi  possible  de  le  rattraper  en  cliquant 
le  bouton  "Jamais  arreter”  de  la  boite  du  compilateur. 


OPTION  ”ur 

Permet  de  verifier  sur  la  position  ou  se  trouve  Tins! ruc¬ 
tion  ”UT,  si  les  touches  d’imerruption  ont  ete  enfonctes 
ou  non.  Vous  pouvez  done  utifiser  ce  test  d*  interrupt  ion  de 
fa$on  ciblee,  e’est  &  dire  Tappliquer  exactement  sur  les 
positions  que  vous  considerez  imports  ntes.  Dans  le  cas 
present,  un  branchement  du  programme  grace  a  ON  BREAK 
GOSUB  est  possible. 
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Cette  instruction  ne  pouvani  £tre  utilisee  tors  de  Tappet 
du  compilateur,  un  bouton  eorrespondant  n*esi  pas  prevu  a 
rinterieur  de  la  boite. 


OPTION  ’*U2M 

La  presence  option  indique  au  compilateur  d’inserer  un  test 
avant  chaque  instruction  de  fin  de  boucte  (done  LOOP, 
UNTIL,  WEND  et  NEXT)  et  chaque  instruction  GOTO. 
Com  me,  sans  doute,  la  plus  grande  partie  du  programme  se 
passe  a  rinterieur  d'une  boucle,  i'option  "12"  devrait 
suffir  dans  la  plupart  des  cas.  II  cst  egatement  possible 
de  definir  une  procedure  d’ interruption  grdcc  a  ON 
BREAK  GOSUB.  Au  lieu  d’utiliser  cette  instruction  a 
Pinter  ieur  du  programme,  vous  pouve2  aussi  ciiquer  le 
bouton  11 A r r6 ter  boucle"  de  ta  boite  du  compilateur. 


OPTION  *U3" 

Ceux  qui  souhaitent  pouvoir  interrompre  le  programme  a 
tout  moment,  grace  aux  touches  d’imerruption,  doivent 
utiliser  P  opt  ion  "U3".  La  fonction  d’ interrupt  ion  est 
alors  verifite  apres  chaque  instruction  d*une  commande 
BASIC.  II  est  evident  que  le  programme  devient  ainsi 
beaucoup  plus  lent  puisqu'il  doit  travailler  plus. 

Comme  pour  ”UO"  ei  "U2“  il  est  egalement  possible  de 
choisir  cctte  option  a  rinterieur  de  la  boite  de  dialogue, 
en  cliquant  le  bouton  "Arreter  tou jours". 

Les  options  d' interrupt  ion  ont  egalement  pour  fonction  de  verifier, 
lors  de  RESUME,  s’il  y  a  des  etiquettes  de  saut  ou  non  (voir 
’GenCrol it es’'  plus  loin). 
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OPTION  "T-"  /  OPTION  "T+" 

One  difference  enlre  le  mode  de  travail  de  Finterpreteur 
et  celui  du  compilaieur  reside  dans  le  fait  que  le  premier 
ne  peut  trailer  que  les  valeurs  entieres  d*un  intervalle 
determine  (de  -2147483648  a  2147483647).  Si  vous  depassez 
ou  restez  sur  une  position  inferieure  a  cet  intervalle,  le 
message  d’erreur  correspondant  est  affiche.  L’interpreteur 
verifie  done  si  vous  avez  respecte  ces  bornes.  II  n'en  est 
pas  de  m£me  pour  le  compilateur.  A  F inter ieur  du  programme 
compile,  certaines  instructions  concemant  Farithmetique 
des  entiers  (INC,  DEC)  sent  executee  directemeni  comme  des 
instructions-machines  individueltes.  li  n*est  done  pas  ve¬ 
rifie  si  vous  respectcz  Fintervalle  des  entiers  ou  non. 
Si  une  variable  entiere  contenait  la  valeur  2147483647 
(231-1)  et  si  elle  elait  augmentee  ensuite  de  I,  par  ex., 
grace  A  INC,  la  valeur  de  la  variable  deviendrait  une 
valeur  negative  (-2147483648)  et  s'approcherait  de  zero 
par  d'autres  instructions  INC.  Cela  pourrait,  le  cas 
echeant,  altcrer  les  resuliats  de  calcul.  Grace  a  la  pre- 
•sente  option,  vous  pouvez  verifier,  dans  les  rares  cas 
oil  de  idles  valeurs  sont  utilisees,  si  une  valeur  a  de- 
passe  ou  est  reslee  au-dessous  des  bornes  fixees  pour  les 
entiers. 


OPTION  "T-" 

Le  cas  particulier  deer  it  plus  haul  n’est  pas  verifie  et 
aucune  routine  correspondante  n’est  ins^ree  dans  le  pro¬ 
gramme.  Si  vous  depassez  la  borne,  les  valeurs  deviennent 
negatives  et  inversement.  Si  vous  cliquez  "Trapv  -  a 
Finierieur  de  la  boite  du  compilateur,  vous  obtenez  le 
m£me  effet  qu*en  utilisant  Foption  de  programme  "T-. 


OPTION  rtT+" 

Une  routine  de  controle  est  inser#e  pour  verifier,  dans  les 
cas  extremes  deer  its  ci-dessus,  si  les  bornes  des  entiers 
ont  m  respcctees  ou  non.  Si  vous  depassez  la  borne,  soil 
le  programme  affiche  le  message  d'erreur  "n  107"  si 
Foption  "B+”  a  etc  choisie.  soil  il  est  interrompu  grAce 
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au  message  d’erreur  (d£j&  presque  oublie  en  BASIC  GfA)  de  1 
bornbes  (interruption  TRAPV).  Si  vous  restez  au-dessous  de 
la  borne  negative,  ie  programme  est  interrompu,  Comme, 
dans  la  plupart  des  cas,  les  valeurs  entieres  restent  entre 
las  deux  bornes,  la  present®  option  n’est  utilise®  que  Ires 
rarement.  Si  vous  ne  1'avez  pas  inscree  dans  le  programme, 
it  est  possible  de  le  faire  dans  le  programme  compile  en 
cliquant  le  bouton  "Trapv+*  de  la  boite  du  compilateur. 


OPTION  "E+"  /  OPTION  "E-" 

Vous  connaissez  sans  doute  les  confortables  messages  d’er- 
reur  de  rinierpreteur.  Chacun  de  ces  messages  transmet  un 
code  a  la  variable  reservee  ’ERR’.  Vous  pouvez  obtenir  ce 
code,  par  ex.,  a  I’aide  "PRINT  err"  qui  affiche  un  numero 
d’erreur.  En  ce  qui  concerne  lesprogrammes  compiles,  les 
messages  d’erreurs  sont  Cgalement  affiches,  si  une  erreur 
est  commise. 


OPTION  "E-" 

Un  message  d’erreur  est  affiche  contenant  ie  num6ro 
d’erreur  (voir  #-033)  et  Indication  ,,PC>$00XXXXXX,\ 
Pour  savoir  de  quelle  erreur  il  s’agit,  vous  disposez  d’un 
listing  de  messages  d’erreurs  (voir  en  annexe).  Au  lieu  de 
I* insurer  dans  ie  programme,  vous  pouvez  egalemcnt  cliquer 
le  bouton  "Errors  -  de  la  boite  du  compilateur. 


OPTION  "E+" 

Pour  ne  pas  etre  obliges  de  consuiter  a  chaque  fois  Ie 
listing  des  messages  d’erreur,  vous  pouvez  utiliser  ia 
presente  option  ou  cliquer  le  bouton  "Errors  +"  dans  la 
boite  du  compilateur.  Ees  messages  d’erreur  affiches  par 
les  programmes  compiles  represen  lent  ma  intenant  un  texte 
similaire  a  celui  que  vous  connaissez  de  1*  interpreter, 
Ceci  est  Ires  utile,  surtout  au  moment  de  developper  le 
programme,  car  cela  facilite  considerablement  la  recherche 
d’erreurs.  En  outre,  le  programme  affiche  I’ indication 
"PC^OOXXXXXX'*  qui  vous  ret  our  ne  1’etat  du  compteur 
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programme  (PC  -  Programcounier)  lorsque  Perreur  s’est 
produite.  En  general,  le  compteur  programme  retourne 
I’adresse  memo  ire  con  tenant  V  instruction  qui  a  declenche 
Perreur. 


OPTION  "B+M  /  OPTION  "B-" 

Ceux  qui  travaillent  avec  le  BASIC  GfA  depuis  longtemps, 
ont  sans  doute  dejl  presque  oubiiees  les  bombes  Une  erreur 
de  bombes  se  produit  tou jours,  si  vous  essayez  d’effectuer 
quelque  chose  qui  n’est  pas  defini  dans  le  systeme 
d’operation  (par  ex.  la  division  par  zero,  I’acces  non 
prepare  1  des  zones  reservee.  das  opcodes  non  valables.  des 
adresses  impaires  pour  des  mots  ou  mots  longs  etc...).  Le 
systeme  ne  dispose  done  pas  de  routines  permettant  d’eviter 
ces  erreurs.  Voill  le  secret  des  messages  d’erreur  de 
Tinterpreteur,  meme  en  cas  d’erreurs  de  bombes.  Prencz 
done  le  vecteur  d’exception  et  transformez4e  salon  la 
routine  definie  par  vous~m£mc.  Et  voila,  plus  de  bombes, 
•car  les  erreurs  sont  rattrapees  a  Paide  d’une  petite 
routine  de  I’imerpreteur.  A  la  place  des  bombes,  un  simple 
message  d’erreur  est  alors  affiche.  En  fait,  ce  n’est  pas 
si  facile  que  cela  puisqu’il  faut  sauver  et  restaurer  I’ im¬ 
portant  con  ten  u  des  registres.  Mais  il  s’agit  du  principe 
pour  trailer  des  exceptions  (voir  aussi  MONITOR). 
Grice  1  la  preseme  option,  vous  avez  le  choix  d'inscrer 
ou  non  la  routine  de  rattrapage  corresponds  nte,  dans  Ie 
programme  compile. 


OPTION  "B-" 

Si  des  erreurs  de  bombes  sont  commises  (numfros  d’erreurs 
102  1  109),  les  bombes  en  question  sont  af Lichees  sur 
I’ecran.  2  bombes  representent  alors  numero  d’erreur  102,  3 
bombes  »  numero  d’erreur  1 03  etc..  Ce  genre  de  plantage  du 
systeme  vous  oblige,  pour  des  raisons  de  securite.  a 
reinitialiscr  (RESET)  le  systeme  emier  pour  s’assurer  que 
le  systeme  d’exploitation  travaille  en  bon  ordre.  II  se 
pent  que  les  registres  ne  soient  pas  del ru its  dans  le  cas 
de  2  ou  3  bombes.  Mais  vous  n’avez  aucune  garantie. 
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Si  vous  avez  prevue  une  routine  pour  le  traitement  des 
erreurs  &  rinterieur  du  programme  (ON  ERROR  GOSUB), 
elle  n’est  pas  appelee.  Au  lieu  de  Pinsercr  dans  le 
programme*  vous  pouvez  aussi  cliquer  le  bouton  'Bombes-* 
dans  la  boite  du  compilateur. 


Option  "BV 

Si  vous  souhaitez  egalement*  que  des  erreurs  de  bombes 
soient  interceptCes,  et  qu’un  message  d'erreur  cones- 
pondant  soil  affiche  ou  que  le  programme  soil  branch^  sur 
une  des  routines  definics  par  vous-meme  (ON  ERROR 
GOSUB),  il  est  possible  d’inserer  la  presente  option  dans 
le  texte  de  programme.  Vous  pouvez  egalement  cliquer  le 
bouton  "Bombes  +"  de  la  boite  du  compilateur.  Une  routine 
de  rattrapage  d’erreurs  de  bombes  est  alors  inseree  dans  le 
programme  compile  et,  a  partir  de  ce  moment  13,  voire 
programme  traite  ces  erreurs  de  la  m£me  fa^on  que 
I'interpreteur, 


5.4  GENERALITES 


La  suite  des  priorites 

L’option  vaiable  est  celle  que  le  compilateur  rencontre  la  der- 
niere.  Les  options  possibles  grace  a  la  boite  de  dialogue*  sont 
alors  considerees  comme  option  initiates.  Si  done*  des  options  en 
contradiction  a  cel  les  de  la  boite*  se  trouvent  a  rinterieur  du 
programme,  les  options  inserees  dans  le  programme  sont  priori- 
taires.  II  en  est  de  meme  pour  les  options  du  mime  type  (I*T.E 
Ou  B),  inserees  dans  le  texte  de  programme.  Lorsque  le  compilateur 
rencontre  une  option  "U3",  il  est  peu  utile  d'avoir  defini  une 
procedure  d' interruption  corrcspondante*  si*  plus  loin  dans  le 
programme,  la  derniere  option  est  *U(T.  Celle-ci  indique  finalement 
au  compilateur  qu'il  ne  faut  pas  inserer  la  fonction  d1  inter¬ 
ruption.  Dans  le  eas  present,  il  faudrait  done  prevoir  de  mau vaises 
functions  partout  oil,  malgre  cela,  la  fonction  doit  etre  appel£e, 
done  13  ou  se  trouvent  les  options  "UT,  "U2"  ou  "US". 
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Extensions 

Le  trentieme  octet  de  chaque  programme  determine  si  Pec  ran  est 
efface  ou  non  Ior$  du  lancement  du  programme.  Si  ce  trentieme 
octet  eontient  des  zeros,  Peffacement  de  Pecran  est  supprime. 

OPEN  'I'  .#  1  ,*N  om_pro*r wnm*. PEG* 

SEEK  #1.30 
OUT  #1,0 
CLOSE 

Si  vous  avez  change  d*avis  et  souhaitez  ma intenant  que  Pecran  soit 
a  nouveau  efface,  it  suffit  de  remplacer  dans  le  petit  listing  plus 
haut,  la  ligne  "OUT  #1,0"  par  "OUT  #!,27”.  Mais  ceci  sous  reserve 
que  le  3 1  ieme  octet  du  programme  n'ait  pas  6te  modifie  ou  (s' it  a 
et£  change)  qu’il  soit  remis  4  la  valeur  69. 

Les  octets  30  a  38  de  chaque  programme  compile  sont  reserves  pour 
une  chaSne  alphanumerique,  executee  en  debut  de  programme.  It 
s'agit  iCi  des  sequences  escape  sous  TOS  (voir  PRINT).  Vous  pouvez 
done  utiliser  ces  9  octets  pour  determiner  vos  propres  sequences 
qui  doivent  alors  tire  executees  en  debut  de  programme.  Une  telle 
chaine  contiem  alter nativement  une  serie  de  valeurs-"  Escape"  27  et 
la  valeur  ASCII  du  caractere  represemant  la  sequence  en  question 
et/ou  les  valeurs  ASCII  des  caracteres  de  eontrOIe  souhaites.  Cette 
chaine  pourrait  avoir  la  structure  suivame  : 

Ai=CHftt(S7}+'r+CHRi(27)^"l-+  CHR$[27)+’,p"+CHEl[7l+CHR*[D)+  C 
HRt(O) 

OPEN  -tr^irNom^roframnwPRG* 

SEEK  #1.30 
PRINT  #1;A|, 

CLOSE 

Vous  retrouvez  ici  les  sequences-*1  Escape"  et  les  lettres  utilisees 
plus  haul  dans  le  paragraphe  PRINT.  II  faut  noter  que,  en 
transmettant  une  telle  chaine  de  caracteres,  le  dernier  est  un 
caractere  nul.  Vous  trouverez  plus  haut,  outre  des  definitions- 
" Escape" ,  egalement  le  caractere  de  contrOIe  CHRSC7)  (BEL).  Si 
ce  caractere  de  contrOle  est  execute,  la  sonnerie  retentit. 
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A  if icher /&eindre  curseur  de  la  srnrts 

Lors  de  vos  premiers  essais  pour  dcvelopper  des  programmes  execu¬ 
tables  a  Paide  du  compilateur,  vous  allez  remarquez  que  pour 
certains  tTentre  eux  le  curseur  de  la  souris  a  disparu.  La  raison 
de  ceia  reside  dans  le  fait  que  le  compilateur  ne  reaffiche  pas  le 
curseur  de  ta  souris  aprcs  chaque  instruction.  L'interprcteur,  par 
centre,  rend  ie  rend  constamment  visible  (si  HI  DEM  n’est  pas 
act  if).  )1  ne  faui  done  pas  se  faire  de  soucis.  Mais  ceia  preseme 
aussi  un  inconvenient  :  le  curseur  dig  note  souvent  a  l’interieur 
des  boucles.  Ceux  qui  ont  d 6j&  cree,  dans  d'autres  inter preteurs 
BASIC,  des  images  graph iques  (PBOX,  CIRCLE  etc.)  grace  aux 
routines  sous  GEM,  savent  qu’il  faut  eteindre  a  chaque  fois  le 
curseur  pour  eviter  un  "trou"  dans  le  fond,  sur  la  position  oti 
il  se  trouve.  Ceci  est  effectue  automat iquement  aussi  bien  pour 
rinterpreteur  que  pour  les  programmes  compiles.  La  difference  est, 
que  le  programme  compile  ne  le  reaffiche  que  lors  de  l1  instruction 
SIIOWM,  lors  <Tun  test  de  la  souris,  lors  de  1’appel  du  AES 
(GEMSYS...)  ou  lors  d'unc  option  *Ux“.  Si  I* instruction  permettant 
de  reaf richer  le  curseur  de  la  souris  emit  executce,  comme  dans  le 
cas  de  rinterpreteur,  a  pres  chaque  deplacement  de  la  souris  ou 
chaque  instruction,  les  programmes  compiles  seraient  beaucoup  plus 
longs  et  lems 


Les  instructions  nan  ut  disables 


Les  instructions  suivantes  du  BASIC  ne  peuvent  £tre  traitees  par  le 
compilateur  car  elles  ne  s'appliquent  que  sur  le  travail  de 
rinterpreteur  : 


LIST 

LLIST 

TRON 

TROFF 

DEFLIST 

SAVE 

PSAVE 

LOAD 

STOP 

CONT 

Si  le  compilateur  rencontre  quand-m£me  une  de  ces  instructions, 
une  boite  d*alarme  contenant  le  texte  "Erreur  de  compilation"  + 
nom  de  rinstruction  non  executable,  est  affichee. 
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Vous  avez  alors  le  choix  entre  "Continuer"  ei  "Fin"  pour  determiner 
si  le  compilateur  doit  inter rompre  son  travail  oo  si  rinslruction 
doit  £tre  ignoree  tors  de  la  compilation. 


L' execution  de  RESUME 

Pendant  Pcxccution  du  programme,  P  interpreter  dispose  constam- 
mcnt  d’adresses  exaetes  pour  chaque  instruction.  Cela  ne  pose  done 
pas  trop  de  problems  de  retourner,  grace  &  I' instrut  ion  RESUME 
et  apres  une  routine  de  traitement  d’erreurs,  a  Pendroit  du  pro¬ 
gramme  oii  Perreur  s’est  produite.  Pour  les  programmes  compiles, 
cela  se  presente  de  fa?on  differente.  Afin  de  savoir  a  quel  endroit 
s’ est  produite  Perreur,  it  faut  d*abord  connaitre  Padresse  de 
{'instruction  qui  la  declenchee.  Cette  adresse  est  connue  si  une 
etiquette  (RESUME  Label)  a  eie  utilisee,  car  le  systeme  la 
considgre  en  tant  que  telle.  Si.  par  contre,  on  souhaite  executer 
RESUME  NEXT  (la  prochaine  instruction)  ou  RESUME  toute 
seule  (executer  la  mauvaise  instruction  a  nouveau)  dans  un  pro¬ 
gramme  compile,  il  Taut  uhliser  P  instruct  ion  OPTION  lx.  Outre 
ses  facultcs  d*  interrupt  ion,  cette  instruction  peut  servir 
d’adresse  de  saut  pour  RESUME  et  RESUME  NEXT.  Lors  de  Pexc- 
cution  de  P  instruct  ion  OPTION  Ux,  le  compteur  du  programme 
est  en  mdme  temps  dcsactive.  Si  alors  une  erreur  se  produit,  le 
programme  peut  done  la  local iser  immediatement. 

Si  vous  utilisez  "Ur  ou  ,'U2",  il  est  evident  qu’tl  ne  s’agit  pas 
de  la  position  exacte.  RESUME  fait  alors  en  sorte  que  le  pro¬ 
gramme  retourne  a  Pendroit  ou  la  demiere  instruction  OPTION 
Ux  a  ete  employee.  It  ne  s’agit  done  pas  exactemcnt  de  Pendroit 
oii  Perreur  s'est  produite.  Ileureusement,  on  sait  a  peu  pres,  dans 
la  plupart  des  cas.  i  quel  endroit  du  programme  elle  a  eu  lieu.  11 
suffit  done  d*inscrer.  avant  cet  endroit,  une  OPTION  Ul  a 
laquelle  le  programme  peut  retourner  gr&ce  a  RESUME  ou 
RESUME  NEXT.  It  en  resulte  en  me  me  temps  que  le  programme  peut 
etre  interrompu  I  Paide  de  la  fonction  des  touches  d' interruption. 
Si  vous  souhaitez  £viter  ce  genre  d‘  interrupt  ion,  il  faut  mettre 
1' instruct  ion  ON  DREAK  CONT  en  debut  de  programme. 
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De  plus*  il  est  possible  de  mettre  en  place  une  routine  de  trai- 
tcment  de  BREAK.  L'instruction  "ON  BREAK  GOSUB  nom  de  la 
procedure"  permet  alors  de  sauter  sur  cette  routine  et  de  rCagir 
de  fa$on  adequate  k  1’ interrupt  ion, 

Cette  forme  de  proeede  est  necessaire,  car  la  sauvegarde  perma- 
nente  du  compteur  d*un  programme  compile  entrainerait  une  impor- 
tante  reduction  de  vitesse  (Texecution  et  une  taille  plus  grande 
du  programme. 

Exemple  : 


OPTION  *U0" 

OPTION  -T+“ 

ON  BREAK  GOSUB  Interruption 
ON  ERROR  GOSUB  Errtur 
A%=2‘31-100 
DO 

OPTION  *U1* 

PRINT  k% 

INC  A% 

EXIT  IF  FLAG  96= I 
LOOP 

PRINT  "Quitter  In  boudc  I  A%  ==>  ";AS6,"  (enfoncer  la  louche)* 
VOID  INP(2) 

QUIT 

PROCEDURE  Interruption 

ALERT  2, "Fin  de  programme  r,ll'OKAY|NON>,lB»ckft 
IF  Back%=I 
QUIT 
ENDIF 
RETURN 

PROCEDURE  Erreur 

ALERT  1,'Valeur  max.  de|  I  INTEGER  2U7483647*,lr"OKAY"1Biwk% 
Flag%=I 
RESUME  NEXT 
RETURN 
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L’ execution  de  CHAIN 

Le  compilaieur  execute  1’ instruction  CHAIN  tfune  fagon  differente 
a  celle  de  Pintcrpriteur.  Dans  ce  dernier,  cette  instruction 
s’appliquc  a  un  programme  ".BAS"  qui  doit  etre  charge  et  ensuite 
execute.  Comme  cela  est  impossible  pour  un  programme  compile, 
CHAIN  s’applique  dans  ce  cas  la,  a  n’importe  quel  programme 
".PRC*.  "TOS"  ou  ".TTP"  qui  peut  6tre  execute  immediatemem. 
Avant  son  execution,  le  nom  du  programme  est  transfer©  a  la 
fonction  sous  AES  "sh_write"  et  le  programme  qui  appelte  est 
termine.  Ce  dernier  peut  done  etre  a  nouveau  appele  et  la  place- 
memoire  qu'il  occupait  se  trouve  liberie.  La  deuxigme  moitie  de  la 
page  de  base  (octets  129  &  256)  est  transferee  an  programme  qui 
appetle,  en  tant  que  ligne  de  commande,  grace  a  la  fonction  sous 
AES  "sh  write".  11  esi  ainsi  possible  d'utiliser  ces  128  octets 
pour  transferer  des  informations,  des  contemis  de  variables  etc... 
au  programme  qui  appeile. 

Exemple : 

* 

**  Programme  1  ** 


At="L«i  chfttnii  ton!  indiquiet  en  majuicult  per  ft  ’ih  write  I" 
POKE  BASEPAGE+ 128  LEN(At) 

BMOVE  VARPTR(A*).BASEPAGE+ 1 2$,LEN(AS) 

PRINT  "PROGRAMME  3" 

CHAIN  "Pro  2  prg" 


*♦  Programme  2  ** 


L.en%=PEEK(BA5EPACE+ 128) 

AS^SPACES(L  en%} 

BMOVE  BASER AGE+  l2S.VARPTR(Al)rL  en% 

PRINT  "PROGRAMME  2* 

PRINT  "Conttnu  d«  variable*  de  ehalne  qui  te  trouvent  ft 
I'inUricur  de  programme  3:" 

PRINT  CHRi(IO);l,At,,;CHR*(13)rCHR$(lO);CHR$(lO);*t«nfoneer  la 
touche)" 

VOID  tNP(2) _ _ 
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Sauvegarder  les  deux  programmes-exemples  en  tarn  que  fichiers 
".BAS".  Le  deuxieme  programme  doit  alors  porter  le  nom 
"Prog2.Bas".  Compilez  ensuite  les  deux  programmes,  puis  lancez 
programme  1.  A  pres  un  court  laps  de  temps,  programme  1  est  inter - 
rompu  et  programme  2  est  lance.  Vous  pouvez  voir,  en  fonction  de 
la  chalne  transmise,  qu*un  echange  d*  informations  entre  les  deux 
programmes  ne  pose  pas  de  probtemes.  11  est  alors  possible  de 
transmettre  des  noms  de  fichier  qui,  ensuite,  sent  charges  ou 
traites  par  le  programme  appele.  La  difference  par  rapport  a  r ins¬ 
truction  EXEC  reside  surtout  dans  le  fait  que  la  page  de  base 
est  transmise  &  Paide  de  la  fonction  sous  AES  et  que  le  programme 
qui  appelle  est  efface  en  memoire.  En  appelant  un  programme  & 
Paide  de  EXEC,  par  centre,  la  page  de  base  n’est  pas  transmise 
et,  une  fois  le  programme  appele  termini,  le  systeme  ne  retourne 
pas  au  desktop  mais  au  programme  qui  appelle. 


La  memoire  de  la  boite  de  selection  de  fichiers 

Lfappel  de  la  boite  de  selection  de  fichiers  ne  pose  egalement  pas 
de  probleme.  Certains  d,entre-vous  ne  savent  sans  dome  pas  que  le 
fond  (done  la  page-ccran  actuelle)  doit  etre  sauvegarde  lors  de 
chaque  appel  pour  que  la  boite  ne  soit  pas  surimprimee  ensuite. 
L’interpr£ieur  dispose  de  deux  memoires-ccrans.  L'une  des  deux,  la 
memoire-ecran  de  Pediteur,  est  utilisee  pour  sauver  le  fond,  lors 
des  appel  de  selection  de  fichiers.  Comme  les  programmes  compiles 
ne  disposent  pas  d*un  editeur,  il  n'existe  pas  de  page*ecran- 
editeur  non  plus.  Cest  pourquoi  vous  devez  vous  assurer  que  le 
programme  dispose  d’une  place-memoire  disponible  d’ environ 
32500  octets  lorsque  la  boite  de  selection  de  fichiers  est  appelee. 
Ceci  est  possible,  en  definissant  ces  32500  octets  +  une  taille 
approximative  de  place-memoire  pour  les  variables  employees  a 
rinteneur  de  la  memoire  du  programme,  grace  &  Pinst  ruction 
RESERVE.  La  boite  utilise  alors  le  resiant  de  la  place-memoire 
disponible  pour  les  variables,  pour  sauvegarder  la  page-eeran 
actuelle  el  la  restaurer  ensuite. 
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Si  vous  ne  souhaitez  plus  charger  d'autres  programme  en  memo  ire 
(voir  EXEC),  vous  pouvez  vous  assurer  &  cent  pour  cent,  en  inse- 
rant  RESERVE  FRE<0)  en  debut  de  programme  et  en  rfeervant 
ainsi  la  totalise  de  la  plaee-memoire  disponible,  pour  le  programme 
actuellement  utilise. 


Divers 

Apres  avoir  defini  toutes  te  options  a  Pinldrieur  du  programme 
ou,  si  vous  souhaitez  employer  te  options  "U0\  "T-,  "E-"  el 
*B-t  il  n’est  pas  necessaire  d’utiliser  les  boutons  situes  dans 
la  boiie  du  compiiateur.  Us  soni  deja  choisis  et  apparaissent  sur 
fond  noir,  lors  d’un  appet  du  compiiateur. 

Si  vous  laissez  un  blanc  entre  T  instruct  ion  et  P  opt  ion,  tors  de 
la  saisie  d’  opt  ions  de  programmes,  les  guillemets  peuveni  Ctre 
ignores  L’ interpreter  les  mettra  automaliquement  (par  ex.  Opt 
ul).  Les  lettres  de  Poption  peuvent  cgalcment  fetre  ecrites  en 
minuscCile. 

Chaque  option  qui  amcliore  le  confort  du  programme  (Ul  &  U3,T+, 
E+,  B+),  augmente  son  volume  et  red u it  sa  vitesse  d’ execution. 

En  ce  qui  concerne  te  programmes  utilisant  la  memoire-ecran  de 
Tediteur  pour  sauvegarder  teurs  propres  donnees,  il  se  peut  que 
de  mau vaises  fo net  ions  se  produisent  pour  la  version  compilee. 

Une  division  de  zero  par  zero  (0/0)  ne  donne  pas,  comme  pour 
lf  interpreter,  le  message  d*erreur  "Division  par  zero",  mais  le 
compiiateur  voit  que  cette  division  donne  la  valeur  1.  11  retourne 
done  cette  valeur  au  programme  en  taut  que  resultat  de  la  division 
(PRINT  0/0  *>  donne  l).  II  n’est  guere  imaginable  que  ce  cas 
se  produise.  Mais  deux  precautions  valent  mieux  qu’une-  A  la  dif¬ 
ference  de  r interpreter,  te  programmes  compiles  exeentent  la 
boucle  REPEAT. ..UNTIL  avec  compter  de  nombres  entiers,  plus 
rapidement  qu’une  boucle  FOR. ..NEXT  correspondante,  avec 
nombres  entiers. 
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Par  exemple  : 


REPEAT 
INC  Count  56 
UNTIL  Cou nl%= 1000 

est  plus  rapide  que 


FOR  CounfcX-l  TO  1000 
NEXT  Count  % 
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Les  procedures  de  "GRAF  PRO" 


Nom  de  la  procedure 

Page 

A.ep 

264 

A.cr 

272 

A.rrecp 

262 

A. freer 

271 

A^reep 

261 

A.srecr 

270 

Accessory 

450 

Alterscreen 

177 

Areaprocs 

298 

B_lockerror 

306 

Bildloader 

439 

Bildsaver 

439 

Bloc  k.h. grow 

307 

Btock.h.rrur 

310 

Block.h  shrink 

308 

Block.v.grow 

309 

Block.v.mir 

310 

Block  v,shnnk 

309 

Block  x.fade 

320 

Bioek.y.eHy 

311 

Block  loader 

440 

Branchement 

334 

Busy 

393 

Const. lines 

350 

Clipprec2 

453 

Changemod 

369 

Cinema 

413 

Clearplane 

393 

Clicks 

457 
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Clippree 

452 

Contour 

454 

Def  patch.2 

334 

D.ef patch 

333 

Djize 

459 

Disk, error 

448 

Disk.ops 

195 

Div.cero 

449 

Divbycero 

448 

Downlarge 

352 

Downpatch 

355 

Downpattern 

351 

Dragbox 

441 

Dragwindow.i 

407 

Draw.edpic 

399 

Drawraster 

393 

E.dragbox 

407 

Extend 

451 

F.cp 

263 

F.cr 

271 

FJllpro 

284 

F.lipservice 

179 

F.rrecp 

261 

F.rrecr 

270 

F^recp 

256 

F.srecr 

268 

Fin 

460 

Formalert 

456 

G.etflip 

179 

G.ettinny 

427 

G.rubberbox 

454 

Getpics 

419 

Getfkeys 

343 

Getpicinits 

414 

Graf  men  ue 

105 

Grow.shrink.box 

455 
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Hjelplext 

460 

Hidemouse 

452 

Iconloader 

440 

Iconp 

265 

Iconsaver 

440 

Initarray 

401 

Initvar.wl 

409 

Kill 

451 

L.cp 

264 

L.cr 

272 

L.oad.error 

448 

L.rrecp 

262 

L.rrecr 

270 

Ljsrecp 

260 

Ljsrecr 

270 

M.enuiext  1 

187 

Menutext.2 

186 

Menu  text-2 1 

186 

Menutext.22 

186 

Menutext.2  3 

187 

M.enutext-3 

194 

Menutext-SI 

194 

Menutext.4 

195 

Mainmenue 

350 

Marquage 

287 

Markermenu 

288 

Menue 

450 

Mir.l 

342 

Mir.  1  line.  1 

281 

Mir.lline.2 

282 

Mir.2 

342 

Mir. 2. line.  I 

281 

Mir.2  line.2 

282 

Mir.3 

342 

Mir.31ine.i 

281 

Mir,3.Sine.2 

282 
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Mir.4 

343 

Mir  4. line.  1 

281 

N.amc_error 

248 

P.utflip 

179 

P_icIoad 

430 

P_icsave 

432 

Pa  ted  it 

408 

Patternsaver 

440 

PI.spr 

285 

Pre-loading 

61 

Predefs 

255 

Pl.spr 

286 

Ready 

393 

Rubberbox.l 

393 

Rubber  bo  x.2 

394 

Rubbgoing 

268 

Rubbself 

442 

S.ave.error 

449 

S.  bowlines 

350 

S.lin 

273 

Screensei 

170 

Set. black 

399 

Set. dipping 

300 

Set.const 

187 

Set  .grid 

188 

Set.  in  its 

182 

Set  .paras 

350 

Set. pics 

417 

Set. raster  form 

380 

Set  .specials 

191 

Set.white 

399 

Set_menuback 

298 

Setareas 

302 

Setdrawmode 

355 

Setgrafmode 

363 

Setnewmenu 

363 
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Setplane 

395 

Setpoint 

397 

Setsteps 

354 

Sho  whelp 

367 

Showmouse 

452 

Showpics 

436 

SI  .so  me 

248 

Small  text 

457 

Starter 

37 1 

T.ext 

291 

T.extmenu 

293 

T_extlen 

349 

Test  de  la  souris 

381 

Tinny 

314 

Trforme 

353 

Trtype 

353 

Uplarge 

352 

Uppatch 

354 

Uppattern 

351 

Watchbounds 

394 
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ANNEXE  B 


Manuel  ({'utilisation  pour  "GRAF  PRO” 


Les  touches  defonctlqn 


Pour  la  partie  graphtque  : 

FI  Motif  de  remplissage  + 

F2  Motif  de  remplissage  - 

F3  Largeur  de  trait  + 

F4  Largeur  de  trait  - 

F5  Type  de  trait 

F6  Type  d'extremite  en  debut/fin  de  ligne 
F7  Taille  de  Patch  + 

F8  Taille  du  Patch  - 

F9  Choix  graph ique  (+) 

TIC  Mode  graphique  (+) 


D*  a  litres  touches  : 


Insert 

Undo 

Help 

Or/ Home 

Esc 

Tab 


fixer  la  page-6cran  actuelle 

ef facer  la  sequence  de  dessin  depuis  le  dernier 

Insert 

d'evcntuels  textes  Help 

ef  facer  la  page-ecran  actuelle 

appeler  le  menu  principal 

appeler  le  menu  de  definition  graphique 


Les  touches  peuvent  egalement  fctre  employees  en  dessinam. 


L' utilisation  du  menu 


Le  menu  principal  : 

Cliquer  les  tableaux  de  menu  correspondants.  Les  functions  de  menu 
peuvent  etre  activccs  simultancmcm 
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Option  dc  menu  QUIT”  :  Fin  de  programme 


Option  de  menu  IN  ITS’  ; 

1.  quatre  fonctions-rmroirs  et  miroir  eteinls 

2.  deux  fonctions  de  trait  proviso  ires  et  eteint 

3.  Mode  grille  allum£/£teint 

II  est  possible  de  definir  un  bloc  queiconque  en  mode 
grille.  Toutes  les  fonctions  graph iques  (Text  aussi!) 
s’apphqucnt  alors  a  ce  bloc. 


Option  de  menu  EDITS' : 

1.  L'editeur  d'icOnes  con  tenant  au  maximum  60*80  pixels 

2.  L’editeur  pattern  contenant  I6*S6  pixels 

Le  motif  de  remplissage  ainsi  cree  peut  ensuite  £tre 
appele  dans  le  menu  de  motifs. 

# 

L’ancien  con  ten  u  (precedent)  de  fediteur  pent  etre 
reafficher  a  pres  le  retour  du  programme  graphique, 

Les  fonctions  : 

Option  superieure  gauche  «=  definition  de  la  fenetre 
Option  a  droite  =  re  vers 

Option  superieure  droite  »  contenu  de  fediteur  est  repris 
et  retour  au  programme  principal 

Option  &  gauche  *  CANCEL.  Contenu  de  fediteur  n’est  pas 
repris.  Retour  au  programme  principal. 

Option  sous  option  superieure  droite  «  CLEAR 
Options  gauche  et  droite  au  milieu  «=  miroir  h/v 
Option  infer ieu re  droite  =  rubber  (continuer  d  appuyer  sur 
touche  et  modifier  la  boite) 

Option  au<de$sus  -  sauvegarder  le  contenu  de  l'editeur 
Option  infer  ieu  re  gauche  =  dragger  (continuer  &  appuyer  sur 
la  touche  et  deplacer  la  boite) 

Quatre  touches  de  flcche  -  scrolling  du  contenu 
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Opt  iofi  de  menu  ' CfNB *: 

Voir  explications  pins  loin. 


Opt  i  of  i  de  menu  SPEC  I': 

I.  les  fonctions  MOVE/COPY  classiques  jusqu'a  ce  que 
les  touches  de  fleche  soient  enfoncees.  Apres  avoir 
defini  un  bloc  a  I’ aide  de  MOVE  ou  COPY, 
{'option  commence  a  clignoter.  11  est  possible  de 
deelencher  maintenam  des  fonctions  spec ia les  ; 

Fleche  vers  la  gauche  -  effei  miroir  vertical 
Fleche  vers  le  has  =  effet  miroir  horizontal 
Fleche  vers  le  haul  =  representation  'tonneau* 

Fleche  vers  la  droite  -  representation  'sinus' 
$hift/F16che  gauche  =  reduire  le  bloc  horizontalement 
Shift/Fleche  haut  =  r&iuire  le  bloc  verticalement 
Shift/ Fleche  droite  ■  espacer  le  bloc  horizontalement 
Shift /Fleche  has  =  espacer  le  bloc  verticalement 

Une  fois  ces  fonctions  terminecs,  il  est  possible  de 
vnettre  en  place  les  nouveaux  blocs.  En  passant  & 
l'autre  page-ccran,  le  bloc  y  est  r6activ€.  M£me  apres 
avoir  ete  mis  en  place  (appuyer  une  fois  sur  ta 
touche),  le  bloc  restera  aeiif  sur  l'autre  page-6eran, 
jusqu'a  ce  que  la  touche  de  la  souris  soil  enfoncee 
deux  fois  de  suite.  II  est  egalcment  possible  de 
definir  un  nouveau  bloc  aprCs  n’avoir  appuyer  sur  la 
touche  qu'une  seule  fois.  L'ancien  bloc  (actif)  sera 
alors  perdu. 

Si  vo us  fcteignez  les  fonctions  MOVE/COPY  et  conti¬ 
nue?  &  travailler  en  mode  SELF,  vous  pouvez  meme 
dessiner  &  1'aide  de  ces  blocs. 
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2.  Charger/sauvegarder  le  bloc 

Lors  de  SAVE,  la  fonction  vous  demande  dc  definir 
une  partie  de  la  page-ecran.  Celle  partie  sera  alors 
sauvegardee  sur  disquelte  avec  Pextension  .BLO.  La 
fonction  LOAD  permel  de  charger  des  parlies  k  partir 
d'une  disquelte. 

3.  Mettre  CLIPPING  /  CLIPPING  allume/eteint 

II  est  possible  de  definir  une  partie  de  la  page-ecran 
(coniine  pour  MOVE/COPY  ou  pour  les  fonctions  Rubb, 
la  touche  gauche  de  la  souris  est  enfoncee  el  une 
boite  est  tracee.  Les  deux  touches  ■  UNDO). 

Tomes  les  fonctions  graphiques,  k  Pexccption  de  SELF 
et  MOVE/COPY,  son!  alors  decoupees  aux  bords  de 
ce  champs.  II  n'est  done  possible  de  dessiner  ou  lire 
qu *k  Pinterieur  de  cette  feneire. 

4.  BORDER  allume/ eteint 

Les  bords  de  la  page -6c ran  peuvent  fttre  actives.  Si, 
en  dess  inant,  vous  touchez  certains  points  du  bord  de 
Tecran,  le  programme  attend  I'emploi  d'une  touche.  Si 
vous  cliquez  alors  rapidement  deux  fois  de  suite 
(comme  pour  ouvrir  un  fichier  k  partir  du  desktop), 
des  fonctions  specialcs  sont  dcclenchees. 

Comme  une  touche  doit  tou jours  6tre  enfoncee  pour 
pouvoir  dessiner,  le  present  mode  n*a  que  peu  d’effet 
dans  ce  cas  la.  11  entre  en  jeu,  seulement  lorsque 
vous  touchez  les  bords,  sans  avoir  enfonce  une  touche. 
Le  curseur  de  la  souris  ne  clignote  alors  plus  et  vous 
pouvez  cliquer  deux  fois  de  suite. 
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Vous  d£clcnche2  alors  : 

Souris  au  milieu  du  bord  gauche  de  la  page-ecran  : 
L^autre"  page-ecran  apparait.  II  est  possible  de 
la  deplacer  k  Paide  de  ia  souris.  EUc  red  is - 
paraft  en  cliquant  une  nouvelle  fois. 

Souris  dans  le  coin  inferieur  gauche  :  vous  passez 
en  fonction  SELF. 

L'ancienne  fonction  (active)  -  k  P except  ion  de 
MOVE/COPY  -  est  sauvegardee  en  attendant  ct  die 
peut  itre  reactivee  (apres  avoir  touche  k  nouveau 
le  coin  de  Pecran). 

Souris  dans  le  coin  inferieur  droit  ;  les  coor- 
donnees  de  la  position  de  la  souris  sont  affichces 
dans  le  coin  super ieur  gauche  de  Pecran. 

Lors  des  fonctions  Rubb  et  en  mode  straight-line, 
la  distance  X/Y  entre  la  souris  et  Porigine  des 
coordonnees,  ainsi  que  la  longueur  de  la  diagonal? 
(calculees  seion  le  theoreme  de  Pythgore)  sont 
egalement  affichees.  Toucher  k  nouveau  coin 
inferieur  droit  et  double  cliquage  =  eteint. 

-  Souris  au  milieu  du  bord  inferieur  :  le  menu  de 
choix  est  appclC. 

-  Souris  au  milieu  du  bord  droit  :  Pediteur  est 
appela 


Opiim  de  menu  ' FLIP 

Vous  passez  &  Pautre  page-ecran. 

II  est  ainsi  possible  de  transferer  des  blocs  MOVE/COPY,  qui  n*ont 
pas  encore  ete  fixes,  d’une  page-ecran  k  Pautre. 
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Option  de  menu  ‘DfSKV: 

Les  fonctions  LOAD*  SAVE.  KILL  el  NAME. 


Option  de  menu  PRINT' : 

La  page-ecran  actuelle  est  sortie  sur  imprimante  (adapta¬ 
tion  possible  de  rimprimante  h  Paide  de  l’accessoire  du 
desktop).  Les  aeeessoires  peuvent  fitre  appeles. 


Le  menu  de  ehoix  : 


Cliquer  le  champ  de  litre  ou  appuyer  sur  les  touches  de  fonction. 

Particularity  pour  le  champ  'Mode  Draw'  :  vous  pouvez  cliquer 
cette  option  de  menu,  i  ndependammeni ,  si  des  icOnes  de  menu  ont 
ete  chargees  ou  non.  Si  dies  Tont  ete,  il  suffit  de  cliquer  le 
champ  de  litre.  Le  menu  graph ique  ap  par  a  it  alors. 

II  faut  noter  une  particularite  pour  les  champs  de  menu  MARKER 
et  TEXT!  Si  vous  n'enfoncez  qu'une  seule  touche  de  la  souris, 
la  fonction  est  simplement  appeSee.  Si  vous  appuyez  simuUanement 
sur  les  deux  touches  de  la  souris,  le  sous -menu  est  affichc. 

Si  aucune  icCrne  de  menu  ri*a  de  chargee,  vous  pouvez  passer  d'un 
mode  Draw  a  Tautre,  a  fintericur  du  menu  de  titre,  grace  aux  deux 
touches  de  la  souris. 

Un  autre  cas  particular  de  MARKER  et  TEXT  :  si  un  des  deux  titres 
de  Draw  se  trouve  a  Tinterieur  de  la  boite,  i]  faut  appuyer  sur 
<TAB»  afin  de  pouvoir  appeler  les  sous-menus. 

Particularite  SELF  :  La  presente  fonction  permet  d'utiliser,  en 
tant  qu'elemenis  graph iques,  les  parties  de  la  page-ecran  qui  ont 
et£  defimes  a  I’aide  de  MOVE/COPY  (voir  option  de  menu  ’SPECT). 
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A  pres  avoir  defini  le  bloc,  fades  le  disparaitre  de  la  page-ecran 
el  rallumez  MOVE/COPY.  SELF  pent  egalement  etre  utilisae  poor 
chacun  des  quatrc  modes  graph iqiies  (Replace,  Transparent,  XOR, 
Revers), 

Vous  pouvez  egalement  charger  des  icOnes  ou  des  blocs  quelconques 
et  les  utiliser  ensuite  pour  dessiner 

Attention  :  II  est  possible  qu*on  nc  retro uve  plus  les  iednes  et 
blocs  qui  ont  disparus  vers  on  bord  de  la  page-ccran  St  cela  vous 
arrive,  il  soffit  d’appeler  &  nouveau  SELF  et  vous  verrez  I'icdne 
reap  para  it  re  dans  le  coin  superieur  gauche  de  Pec  ran. 


Les  fonctlons  dfutillsatlon  des  differentes  operations  graphiques 

Toutes  les  functions  Patch  (1  a  9)  sont  decienchCes  en  appuyant  sur 
la  touche  gauche  de  la  souris; 


La  / maim  SELF  { 10 )  ; 

La  touche  gauche  permet  de  dessiner  PicOnc,  la  touche 
droite  de  la  deplacer  sans  dessiner. 


Les  fonctions  Rubb  {  U -19): 

La  touche  gauche  permet  de  definir  le  point  de  depart, 

En  appuyant  ensuite,  egalement  sur  la  touche  droite  (done 
sur  les  deux  touches  simultanement),  la  boite  est  efface®. 

II  faut  alors  prendre  soin  que  la  touche  gauche  soil 
relichee. 

Si  vous  n’appuyez  que  sur  la  touche  gauche  apres  avoir 
trace  une  boite,  cette  demiere  est  dess i nee  lorsque  vous 
relichez  la  touche. 
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Le  mode  Line  (20): 

Touche  gauche  -  dessiner  a  main  levee 
Touche  droite  =  definir  des  droitcs 

En  appuyant  ensuite  egalemem  sur  la  touche  droite,  la 
droite  est  dessinee. 


Le  mode  Fill  (21): 

La  touche  gauche  de  la  souris  declcnche  le  processus  de 
rempltssage. 


Le  mode  Spray  (22  el  23): 

Pour  le  mode  Spray,  il  faut  noter  la  chose  ;  La  faille  de 
la  zone-spray  depend  de  la  taille  definie  pour  Patch. 

# 

Les  trois  touches  de  la  souris  out  une  fonction. 

Touche  gauche  =  afficher  des  pelits  points 

Touche  droite  =  afficher  des  points  un  peu  plus  grands 

Les  deux  touches  =  afficher  de  gros  points 

Vous  disposez  de  deux  differents  modes  de  spray  ; 


1.  Plot -Spray  :  des  points  monochromes  (noirs)  sont  af  ri¬ 
ches. 

2.  Patt -Spray  :  le  motif  de  remplissage  choisi  est  dessi- 
nc. 


'Marker*  (24): 

Vous  pouvez  dessiner  &  Paide  de  six  types  de  markers 
differents.  La  taille  des  markers  depend  de  la  taille  de 
Patch  choisie.  Elle  ne  peut  etre  variee  que  par  pas  et  non 
de  fa$on  continue. 
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9 Text "  (25): 

II  est  possible  de  determiner  du  texte  graph ique,  En  ap- 
puyant  sur  la  touche  gauche  de  la  souris,  vous  places  la 
chaine  de  caracteres  sans  Peffaeer. 

Ceci  est  egalemcnt  possible  en  emplovant  <RETURN>.  La 
touche  droite  de  la  souris  ou  <DELETE>  effacent  la  chaine. 
<  BACKSPACE^  efface  respcctivement  le  dernier  caractere. 

De  plus,  vous  pouvez  choisir  entre  les  quatre  touches  de 
fleche. 

Fleche  vers  la  gauche  =  reduire  la  longueur  de  la  chaine 
(attention  :  sa  longueur  commence  par  zero). 

Fleche  vers  le  bas  =  determiner  le  mode  d'espa  cement. 
Alternativement  :  espaccmcnt  des  mots  ou  des  caracteres. 
Fleche  vers  le  haut  =  remet  Ire  en  longueur  de  texte 
normale. 


CINE 

Vous  commencez  par  definir  la  taille  d’une  page-6eran  (continuer  H 
appuyer  sur  une  touche  et  tracer  la  boite).  En  suite  vous  pouvez 
determiner  le  nombre  d' images  £  dessiner  ou  a  utiliser.  Le  nombre 
maximum  damages  depend  de  la  taille  de  Pecran  definie  auparavant 
et  de  la  place-mcmoire  disponibte. 


1/edlteur  de  dessins  animus  : 

Explication  non  necessaire. 

Lorsque  vous  dessinez,  la  taille  de  Plot  pern  fttre  modifiee 
par  Pemploi  des  touches  de  la  souris  : 

Touche  gauche  =  constante 
Touche  droite  =  plus  grande 
deux  touches  =  plus  petite 
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Lorsque  vous  dessmez,  les  touches  de  fonction  soot  acti¬ 
ves. 


FI  couleur  de  dessim  noir 

F2  couleur  de  dessin:  blanc 
F3  photo  individuelle  de  la  page-ecran  actuelle  / 
comptcur  de  photo  ■*•! 

F4  effacer  la  fenfire  de  dessin 
F5  choisir  truquage 

T ruquage  BUBBLE  :  Une  bulle  brillante  est  dessinee. 
Sa  faille  peut  Sire  modifiee  a  I'aide  des  touches 
(voir  plus  haul),  Le  compteur-photos  est  increments 
automat  iquemcnt,  tant  que  la  touche  de  la  souris  reste 
enfoncee. 

Truquage  TAMBOUR  :  Laissez  vous  surprendre  et  pre¬ 
parer  deja  votre  disquette  vicrge. 

F6  film  SAVE  /  sauvegarder  des  images  individuelles 
F7  LOAD  -  II  est  possible  de  charger  des  icdnes,  des 
blocs,  des  images  individuelles  ou  des  films. 

Le  film  est  lance  automat iquement 

A  pres  les  avoir  charges,  vous  pouvez  transferer  les 
icdnes,  les  blocs  et  les  images  individuelles  dans 
Tediteur  grace  &  la  touche  <HELP».  11$  peuvent  ttre 
mis  cn  place  par  E'emploi  des  touches  de  la  souris. 

FS  Continuer  avec  ta  presentation  ou  retourner  au  pro¬ 
gramme  principal. 


De  plus,  vous  pouvez  : 

1.  scroller  la  page-ecran  actuelle  a  faide  des  quatre 
touches  de  fleche 

2.  transferer  le  dernier  bloc  actif  du  programme  gra¬ 
ph  ique  ou  Tic6ne  SELF  dans  I’editeur,  grace  &  la 
touche  <HELP>. 
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Picture-Show  ; 

Le  film  edite  est  presente. 

Sa  vitesse  peut  etre  contrOiee  par  les  deux  touches  dc  la 
souris. 

Photo  individuelle  :  toucher  bord  infcrieur  de  P^cran  avec 
le  curseur  de  la  souris. 

Affichage  de  photos  individuelles  ;  toucher  le  bord  infe- 
rieur  et  cliquer  simultanement. 

Retour  d’ images  :  curseur  de  la  souris  sur  ’Backstep’  et 
appuyer  sur  touche  de  la  souris. 
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ANNEXE  C 

Modifications  du  programme 
pour  I’ATARI  260  ST 


Le  programme  graph ique  du  present  livre  est  con^u  pour  V ATARI 
ST  qui  dispose  d’une  memo  ire  cent  rale  de  I  Mega -octets.  Les 
utiJasateurs  du  ST  512  K  octets  doivent  renoncer  a  r edition  de 
dessins  ammes  La  version  260  est  d'ailleurs  identique  &  la 
version  Mdga.  A  condition  qu’elle  dispose  egalement  du  ROM-TOS. 

II  faut  effacer  les  parties  de  programmes  suivantes  pour  la  version 
260  : 

Procedure  Cinema  entierement 
Procedure  Getpicimts  entierement 

Procedure  Get _ pics  entierement 

Procedure  G.ettinny  entierement 
'Procedure  P  icload  entierement 
Procedure  P_icsave  entierement 
Procedure  Showpics  entierement 
Procedure  Set. pics  entierement 
Procedure  Btldsaver  entierement 
Procedure  Bildloadcr  entierement 

Pour  la  Procedure  Grafmcmte  : 

Ligne  6  ("IF  Menstartflag%=r)  jusqu'a  ligne  12  (inclose) 
("IF  Mensiartflag%=0" ) 

Ligne  34  ("GET  0,0,639...'*)  et  ligne  35  ("GET 
0,359,639...") 

Ligne  37  C,Menstartflag%ep)  et  ligne  38  ("ENDIP) 

Pour  la  Procedure  Screens?!  : 

Ligne  2  (HHasard%s..*)  jusqu'a  ligne  5  (incluse)  ("End if  ) 
Ligne  7  ("IF  Hasard'to^O")  jusqu'a  ligne  13  (incluse)  ("IF 
Hasard%=l") 

Ligne  19  ("ENDIF**) 
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Pour  la  Procedure  Set. huts  ; 

Ligne  4  ("IF  Iniislanflag%»  1")  jusqu*&  lig ne  10  (incluse) 

("IF  lnitstarlflag%“0") 

Ligne  38  ("DIM  lnitmcnu$(l42)*)  jusqu’a  iigne  40  (incluse) 
("ENDIP) 

Ligne  104  ("FOR  1=0  TO..*)  jusqu’a  Iigne  107  (incluse) 
("NEXT  1*) 

Pour  la  Procedure  Sets  pec  ials  ; 

Ligne  5  ("IF  Spec.starlflag%- 1 ")  jusqu’&  ligne  8 
(inclu$eX"lF  Specjtariftag%=0") 

Ligne  28  ("Spec,startfiag%=  I ")  ei  ligne  29  ("ENDIP) 

Ligne  129  ("GET  100,60,540,340...")  /  «  avant-dernicre 
ligne  de  la  procedure) 

Pour  la  Procedure  SLsome  : 

Ligne  97  ("GET  0,0,319...")  jusqu’a  ligne  100  (incluse) 
("GET  320,200,639..*) 

Ligne  i  10  ("GET  0,0,319..")  jusqu’a  Iigne  1 13  (inluse) 
("GET  0,0,639...") 

Pour  la  Procedure  Predefs  * 

sur  la  ligne  2  ("DIM..J*),  r expression  "F-ScreenSO)," 

Pour  la  Procedure  Mammetme  : 

Ligne  3  ("GET  0.0,319...")  jusqtfa  ligne  6  (incluse)  ("GET 
320,200,639...") 

11  faul  inserer  les  parties  de  programmes  suivantes  pour  la  version 
260  ; 

En  debut  de  programme  favrnt  la  premiere  ligne)  : 

IF  FRE(0)<  14GOOO 

ON  BREAK  GOSUB  SytUm 
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ALERT  |*Pl3ec-mimoir*  inti heureuiitncntliMufTiianU!* ,  1  ,*By« 
By«",Rbb% 

®  Syitem 
ELSE 

GOTO  R  un 
ENDIP 

PROCEDURE  Syitem 
Syitem 
RETURN 
Run: 

Pour  la  Procedure  Set  areas  : 

Entre  ligne  34  ("ENDIF)  et  ligne  35  {"IF  K.ey%=80") 

IF  K,ey%>0 

IF  {{( [Xxft -Xg%)/8) + 2) *  1C) *{ Yy?£-YgS6) =< (FRE(O)-BOOO) 

Entre  ligne  74  ("ENDIF")  et  ligne  75  ("ON  ERROR") 

* 

ELSE 

ALERT  l,*Bloc  eat  trop  grand  !]Plsiee-memoir« 
insufp  ia  nt  e!* ,  1 OKAY"  ,Bbb9£ 

END  IF 
ENDIF 


II  faut  remplacer  la  ligne  de  programme  suivante  pour  la  version 
260  : 


Pour  la  Procedure  Graf  met  me  : 
Ligne  61  C@Cinema") 


par  : 


ALERT  l.'Tonction  exist  e  seule  merit  «n  {version  Migi 
r,  l-OKAY*  ,Bbb% 
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ANNEXE  p 

Table  des  codes  ASCII 


El 

El 

E!i| 

B 1 

El 

El 

Bl 
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El 
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11 
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ED 
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ANNEXE  E 


Messages  d'erreur 


Messages  d'erreur  de  l  editeur 

While  sans  Wend 

Repeat  sans  Until 

Do  sans  Loop 

For  sans  Next 

Wend  sans  While 

Loop  sans  Do 

Next  sans  For 

If  sans  Endif 

End  if  sans  If 

Else  sans  If 

Else  sails  Endif 

Exit  sans  Schleife 

Procedure  sans  Return 

Procedure  dans  boucle 

Procedure  definie  deux  fois 

Return  sans  procedure 

Marque  definie  deux  fois 

Local  autorise  seulcment  dans  une  procedure 

Local  interdif  dans  une  boucle 

Fonction  definie  deux  fois 

Goto  dans/ vers  exterieur  une  boucle  For/ Next  ou  une  Procedure 

Resume  dans  boucle  For/Next 

Resume  sans  procedure 

Erreur  de  syntaxe 

Ligne  trop  longue 
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Les  messages  d'erreur 
ERR  Texte 

0  Division  par  mo 

1  D£passement  de  capacite 

2  Le  nombre  n’est  pas  on  Integer  - 
474S3648...2 147483648 

3  Le  nombre  n’est  pas  on  octet  0...255 

4  Le  nombre  n’est  pas  on  mot  0...65535 

5  Racine  carree  d’un  nombre  negattf  impossible 

6  Logarithme  d’un  nombre  inferieur  4  zero  impossible 

7  Erreur  inconnue 

8  Mcmoire  pleine 

9  Fonction  ou  instruction  impossible 

10  Chaine  trop  longue,  max.  32767  earacteres 

It  Le  programme  n'est  pas  en  BASIC  Gf  A  version  2.0 

12  Programme  trop  long,  memoire  pleine 

13  Le  fichicr  programme  n’est  pas  en  BASIC  GfA 

14  Champ  dimmensionne  deux  fois 

15  Champ  non  dimensionne 

16  Index  de  champ  trop  grand 

17  Index  de  dim  trop  grand 

1 8  Mauvais  nombre  d’ indices 

19  Procedure  introuvable 

20  Label  introuvable 

21  Pour  OPEN,  utiliser  ’O’utput*  ’R'andom, 

’A’ppend,  ’U’pdate 

22  Fichier  dcja  ouvert 

23  Mauvais  numero  de  fichier 

24  Fichier  non  ouvert 

25  Mauvaise  saisie,  ce  n’est  pas  un  nombre 

26  Fin  de  fichier  atteinte,  EOF 

27  Trop  de  points  pour  Polyline/ Polyfill,  max.  128 

28  Le  champ  ne  pent  avoir  qu’une  dimension 

29  Nombre  de  points  plus  grand  que  le  champ 

30  Merge,  ce  n’est  pas  un  fichier  ASCII 

31  Merge,  ligne  trop  longue 

32  ==>  Syntaxe  incorrecte 

33  Marque  non  dcfinie 
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34  Trap  peu  de  donnces 

35  Donnee  non  numerique 

36  Erreur  de  syntaxe  dans  la  donnee,  utiliser  les 
par  paire 

37  Disquette  pleine 

38  Instruction  impossible  en  mode  direct 

39  Erreur  de  prcgrammation,  GG5UB  impossible 

40  CLE A  R  n’est  pas  possible  dans  une  boucle  FOR  NEXT 
ou  dans  une  procedure 

4 1  CONT  impossible 

42  Trop  peu  de  para  met  res 

43  Expression  trop  complexe 

44  Fonction  indefini 

45  Trop  de  para  met  res 

46  Parametre  inexact,  ce  doit  £tre  un  nombre 

47  Parametre  inexact*  ce  doit  Ctre  une  chaine 

48  OPEN  "R",  enregistrement  trop  long 

50  Pas  de  fichier  "R" 

51  Seul  un  champ  est  possible  avec  un  OPEN  "R" 

*  52  Champ  plus  grand  que  Penregisirement 

53  Trop  de  champs  (max.  19) 

54  Mauvaise  longueur  d'enregistrement  GET/PUT 

55  Mauvais  numero  d'enregistrement  GET/PUT 

60  Longueur  de  chaine  de  SPRITE  erronee 

61  Erreur  de  RESERVE 

62  Erreur  dans  MENU 

63  Erreur  dans  RESERVE 

64  Erreur  dans  pointeur 

90  Erreur  dans  LOCAL 

91  Erreur  dans  FOR 

92  RESUME  (NEXT)  impossible,  FATAL* 

FOR  ou  LOCAL 

100  (c)  Copyright  1986,  GfA  Systemtechnik 
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Messages  d' erreur  bombes 

ERR  Texte 

102  2  bombes  *  erreur  Bus,  peut-6tre  mauvais  peek  ou 
poke 

103  3  bombes  -  erreur  cTadresse,  adresse  de  mol 
impaire  ?  A vec  DFOK E,  DPEEK,  LPOK E  ou  LPEEK 

104  4  bombes  -  execution  d'une  instruction  68000  ne 
convenant  pas 

105  5  bombes  -  division  par  aero  en  langage  machine 
68000 

1 06  6  bombes  -  except  ion  CH  K ,  interrupt  ion  du  68000  par 
instruction  CHIC 

107  7  bombes  *  exception  TRAPV,  interruption  du  68000 
par  instruction  TRAPV 

108  8  bombes  -  interruption  68000  par  execution  d’une 
instruction  privilegiee 

109  9  bombes  -  exception  TRACE,  interruption  TRACE 

*  avec  68000 
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Repertoire  syntaxique 


I  comment  lire 

•Var  /  *Vari  /  *Var%  /  "Var! 

ABS (ex proa* ton  numiriqua) 

ADD  Var, valour 
LPOKE  ADDEINrAdr**ae 
LPEEK(ADDROUT) 

ALERT  Icon  "Boxtext  iBoxtexI”  .Default  *  Button  |Butt  on" ,  Var 

ARRAYFILL  TableauQ.valeur 

ARRPTR(Var) 

ASC(VarS)  /  ASC("x") 

ATN(valeur) 

DASEPAGE 

BGET  #  canal, adresae, nom  bre 
BlNS(valeur)  *  jcXvsleur 
BIOS (fonction[, H«te  de  param*tres|) 

BITBLT  tableau.  t%{), tableau. 3%(), tableau. 3%() 

DLOAD  "ehemin  et/ou  notn  de  fichiep'.adreMc 

BMOVE  #©urce%,fin9G,nombre 

BOX  Xg.Yg.Xr.Yr 

BPUT  #eanalradresfe,nombre 

BSAVE  "chemin  et/ou  nom  de  fichier"  nombre 

C;Var(li»tc  de  parametres) 

CALL  Varl(ltate  de  paramitre*)] 

CHAIN  "them in  et/ou  nom  de  programme” 

CHD1R  “nom  de  repertoire* 

CUD  RIVE  numero  de  I’unitt  de  diaquettes 
CHRS(valeur) 

CIRCLE  mtlieuX.mil I euY,rayon[. angle  initial.angle  final] 
CLEAR 

CLEAR W  nuiniro  de  la  fenfire 
CLOSE  {#  canal] 

CLOSEW  numiro  dr  la  fenctn 
CLR  hate  de  variable# 
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CLS 

COLOR  couleur 
CONT 

DPOKE  CONTRL.paramfctre 
COS(valeur) 

CRSCOL 
CRSLIN 
C  VI  (“String") 

CVL  (“String'*) 

CVS  ("String") 

CVF(*String") 

CVD  ("String") 

DATA  [vnlcur  cl/ou  lisle  de  texte] 

DATE! 

DEC  Var 

DEFFILL  [couleur]  Jindexl]Jindex2]  /  DEFFILL  [couleur]  .Deftnevarl 
DEFFN  nom  de  fbnetion](Hste  de  vari»bles)]=expression 
DEFLINE  (type), (large nr), [typo  dextrimiU  en  di  bull,  [type 
d'txlrimili  i  la  Tint 
DEFLIST  format 

DEFMARK  [couleur] .[marker ly p]  Jlai  lie] 

DEFMOUSE  mim^ro  de  la  sauria  /  DEFMOUSE  Definev&rJ 
DEFNUM  chiffrc 

DEFTEXT  [couleur] .[type  de  texte] Jangle  d'orientation] Jlaide] 
DFREE(unit4  de  disqueUei) 

DIM  Var(index)  [*Var$ (index) ,  V ar5C(i ndex) . ) 

D IM?  (tableauQ  ) 

DIR  ("chemin"  [TO  "nom  de  flehier“][ 

DIRJ(num$ro  de  I’unitt  de  diaquettcs) 

DIV  var.valeur 
DO  *  LOOP 
DPEEK  (adreue) 

DPOKE  adreese.valeur  en  mots 

DRAW  [TO]  X,Y  /  DRAW  XO.YO  TO  Xl.Yl  [TO  X2.Y3  TO  ....) 
EDIT 

ELLIPSE  milieuX.milieuY.rayonX.rayonYl.&ngle  initial. angle  final] 
END 

EOF  (#  canal) 

ERASE  tableauQ 
ERR 
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ERROR  numiro  d'erreur 
EVEN(valeur) 

EXEC  oplionrchemin  et/ou  nom  de  programme"  'com  *  "en  v* 
EXIST(pchemin  et/ou  notn  de  fichier") 

EXIT  IF  condition 
EXP(vakur) 

FALSE 

FATAL 

FIELD  #  c  anal  .n  ombre  AS  var$(,n  ombre  AS  var  I 
FILES  ["chemin"  [TO  pnom  de  flchier'll 
FILESELECT  •cheminVnom  de  fichier"  ,var* 

FILL  X.Y 
FlX(valeur) 

FN  nom  de  fonctiott[[lidt  de  param4tr»)l  /  @nom  de  fonction[(liete 
de  par  a  metre*)] 

FOR  var  -  Vakur  initiate  [DOWNJTO  valeur  finale  [STEP  paj]  *  NEXT 

vai- 

FORM  INPUT  nombre,varJ 
FORM  INPUT  norabre  AS  varl 
FRAC(valeur) 

FRE{  dummy) 

FULLW  numtro  de  la  lentlre 
CB 

CCONTRL 

CEMDOS(numiro  de  la  fonct  ion  [.lisle  de  paramMre) 

GEMSYS  |mim£ro  de  la  fo  notion] 

GET  Xg^g.Xd.Yd.vart 

GET  # canal[,num4ro  de  la  phruej 

G  INTIN 

GINTOUT 

GOSUB  nom  de  la  pnxidure((li«U  d*  param&trcs)] 

GOTO  label 
GRAPHMODE  mode 
HARDCOPY 

HEX#  (valeur)  *  AHvakur 

HID  EM 

HIMEM 

IF  condition  *  [ELSE|  *  END  IF 
INC  var 

INFOW  numtro  de  la  frnitr»/llpe  Info" 
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INKEYS 

INP(numtro  du  port) 

IHF?(nunrfro  du  port) 

INPUT  [- text** ,[;]|var|,var* .var%,  ..) 

INPUT  #canal  ,var( ,v ar$.var% 

INPUT|(nombrcl,#canal|) 

INSTRfl  non  br« ,]  varfml  .varrech  ere  heS) 

INT(valsur) 

INTIN 

INTOUT 

KILL  *c  tie  min  el/ou  Bom  de  flchier" 

LEFTS  ( v  arfi  n  1 1  .n  o  m  br#l ) 

LEN(varS) 

LET  Vftr  =  affectation 

LINE  XI.XI.X2.Y2 

LINE  INPUT  |"text"J;JJvar[,varS1var?Gv.1J 
LIST  "c  he  min  el/ou  nom  de  fiehier* 

LLIST 

LOAD  "chemin  el/ou  nom  de  programme" 

m 

LOCAL  varl.varJ.virJS.-l 
LGC(#  canal) 

LOF(#c*nal) 

,  LOG(valeur)  *  LOG  10  (valeur) 

LPEEK(ndrr»ao  poire) 

LPOKE  ad  re*  e  e  paire,  valeur  dc  mat  long 
LPOS(  dummy) 

LPRINT  |expreMionf,|[;|nexp«Mion|,)(;J’|--.) 

LSET  var$=v&rS  f  LSET  varS="text*  /  LSET  var$= express  ton 
M  AX(  exp  re  ■  a  i  on  .expres  s  i  on  [ ,  ex  presaio  n , . . .  ] ) 

MENU(Eventindex) 

MENU  Menumdex.oplion 
MENU  menu 
MENU  menul«xtS() 

MENU  KILL 
MENU  OFF 

MID  S(  var  t  ,<hlf  fre|  .nombrej) 

MIDS(varJ,chiffre(,nombrBl)=varS  / 

MlD|(v  ar  3  ,ch  tffre[  ,  nom  b  re) )  =*  text* 

MIN  (expression, expression(  express  ion,...]) 

MKDIR  "nom  de  repertoire" 
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MKlI(valeur)  *  MKLS(valeur)  *  MKSS(valeur)  *  MKFS(valcur)  * 
MKDi(valeur) 

MONITOR  [parnmtlre! 

MOUSE  Xvar.Yvat.Kvar 

MOUSEfC 

MOUSEX 

MOUSEY 

MOL  var.vnlfliir 

NAME  "ehemin  el/ou  widen  nom  de  fichier*  AS  "ehemin  et/ou  nouveau 
nom  de  licbier* 

NEW 

OCT$(vnlcur)  #  A;Ovaleur 
ODD(valeur) 

ON  var  GOSUB  lisle  de  procedure 
ON  BREAK  GOSUB  nom  de  procedure 
ON  ERROR  GOSUB  nom  de  procedure 
ON  MENU 

ON  MENU  BUTTON  COSUB  nom  de  procedure 
ON  MENU  GOSUB  nom  de  procedure 

ON  MENU  IB  OX  index, Xg.Yg.largeur.hauteur  GOSUB  nom  de  procedure 
ON  MENU  KEY  GOSUB  nom  de  procedure 
ON  MENU  MESSAGE  GOSUB  nom  de  procedure 

ON  MENU  OBOX  index, Xg.Yg  largcur,hnutcur  GOSUB  nom  de  procedure 
OPEN  "mode" ,# canal  "ehemin  *t/ou  nom  de  fichier'' [.longueur 
d  'enregialrement ) 

OPENW  numtro  de  la  fenttr*[  Xg  Yg] 

OPTION  (exte  d‘ instruction 
OPTION  BASE  bate 
OUT  numero  de  port,  valeur  d 'octet 
OUT?(num<ro  de  port) 

PAUSE  dur£e 
PBOX  Xg,YgtXd,Yd 

P CIRCLE  milieuX,  mil  ieuY, rayon  [.angle  initial  .angle  final] 

PEE  K  ( adreue) 

PELLIPSE  milieuX.milieuY.rftyonX.rayoiiYl.angle  initial  .angle  final] 

PI 

PLOT  X.Y 
POINT(X.Y) 

POKE  adreiae.valeur  d 'octets 

POLYFILL  nombre.XpO.YpO  {OFFSET  Xpixel.Ypixd] 
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POLYLINE  AnsahltXp  () , Yp( )  [OFFSET  X pixel  .Ypixell 
POLYMARK  nombre  Xp()  Yp()  [OFFSET  Xpix*]tYpixel| 

POS(  Dummy) 

PRBOX  Xf.YE.Xd, Yd 

PRINT  [ AT(co,G »)][;!  [expression  [, II t«xt*I ,}[ ;)(*) — ] 

PRINT  #  c  an al|,expretti  onf .)) ;JJ ']■  text" [  J( ill *1  *  *  *  >1 

PRINT  USING  "affectation  de  format", liite  d 'expression  fit/ ou  d* 

variable#  [;j 

PRINT  fconal, USING  "affectation  de  format" .liste  d  expression* 
et/ou  de  vanabloa[;J 

PROCEDURE  noml{l»t*  de  variable*  locale#)  1  *  RETURN 

PSAVE  "chemin  et/ou  non*  de  programme" 

PTSIN 

PTSOUT 

PUT  Xg.Yg,vari(,mode] 

PUT  #canaJl,num£ro  d’enregistreinent] 

QUIT 

RANDOM{valeur  de  born*) 

RBOX  Xg.Yg.Xd.Yd 
READ  v  ar  [ ,  var  I ,  v  ar%,  v  ar  I .... I 
RELSEEK  #csniO,nomb« 

REM  comnaentalr*  /  continental  re 

REPEAT  •  UNTIL  condition 
RESERVE  nombre  d'octet# 

RESTORE  [labelj 

RESUME  /  RESUME  NEXT  /  RESUME  Label 
RIG  HT$(varfin$E,  nombre)) 

RMDIR  "nom  de  repertoire" 

RND 

RSET  varl— vart  /  RSET  var|-"tcxt”  /  ESET  var$=expreuion 
RUN 

SAVE  "chemin  et/ou  nom  de  programme" 

SDPOKE  adreaee  pairs.valeur  de  mot 
SEEK  #caaaI(num£ro  d 'octet 

SETCOLOR  numiro  de  regiitre.rouge.vert.bleu  /  SETCOLOR 

regiatre  valeur  de  couleur 

SETTIME  tlme#trinf,date#tring 

SGET  varf 

SGN(valeur) 

SHOWM 
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SIN(valeur) 

SLPOKE  ndr«ue  poire  valeur  de  mot  long 
SOUND  c(msllvo|tno(clo<t[ldurlt]  /  SOUND 
canal  ,vol  p#p*rtode[,dur4el 
SPACES  (nombre) 

SPC(nombre) 

SPOKE  adr«ue,v&lcur  d 'octet 
SPRITE  var|f,AxfAy) 

SPUT  vart 

SQR(valcur) 

STOP 


STRS(valeur) 

STRING$( nombre, /  STRINGS  (nombre.vtdeur  ASCII) 

SUB  vftr, valour 

SWAP  varl,var2  /  SWAP  varll.vatfS  /  SWAP  tableau l().tableau2() 


SYSTEM 

TAB(coionnes) 

TAN(vakur) 

TEXT  X1Y1[longueur1]’,lext"(!+var$l+ expression  de  chaine) 

TIMES 

TIMER 

TITLEW  numfro  de  la  fen#trertitr«  do  la  fenltri* 
TROFF 

TRON  [#  canal] 

TRUE 


TRUNC(valour) 

TYFE(pomteur) 

UPPERS(varS)  /  UPPER*  (*text") 

VAL(varS)  /  VAL("t*xf) 

VAL?(var|)  /  VAL?(*toxf) 

VARFTR(var)  /  VAJtPTR(varS) 

VDISYS  [numdro  da  fonction] 

W A VE  canal .envolo p p#  f o r m e  ,p£ri od t , dur£e 
WHILE  condition  *  WEND 


/ 

/ 

/ 

/ 


UPPER*!  expression  chaine) 
VAL( expression  de  chaine) 

V  A  L?  (expression  dm  chaine) 
VAR  PTR  (tableau  (index)) 


WRITE  lixprnsion! .expression ."text*  ,vw$,v»f....j|;|l 
WRITE  #cana]llexpreMton[lexpres>bn  "text" ,vnrltvar... 


VDIBASE 


VOID  fonction 


VSYNC 

XBlOS(fonction[Jifte  de  paramitre*!) 
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ANNEXE  G 


Lisle  des  instructions  en  BASIC 


Vous  trouverez  ci-aprcs  unc  liste  alphabet ique  de  toufes  les 
instructions  en  BASIC  GfA.  Le  numero  de  la  page  sur  laquclle  se 
trouve  unc  description  detail  Ice  de  I' instruction  en  question,  est 
rajoute  en  caracteres  gras,  en  fin  de  Ugne. 


Nom  de  f  instruction 

Ahreviatim 

Page 

i 

m 

526 

&H 

122 

&o 

122 

&X  * 

122 

* 

526 

ABS 

278 

ADD 

Ad 

144 

ALERT 

A 

162 

ARRAYFILL 

Ar 

254 

ARRPTR 

90 

ASC 

142 

ATN 

324 

BASEPAGE 

527 

BGET 

Bg 

531 

BINS 

122 

BIOS 

510 

BITBLT 

Bit 

528 

BLOAB 

B1 

66 

BMOVE 

Bm 

532 

BOX 

B 

134 

BPUT 

Bp 

533 

BSAVE 

Bs 

250 
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C: 

458 

CALL 

Ca 

458 

CHAIN 

Cfo 

230 

CHDIR 

Chd 

224 

CHDRIVE 

Chdr 

228 

CHR$ 

142 

CIRCLE 

C 

264 

CLEAR 

Cle 

77 

CLEARW 

Cle  W 

489 

CLOSE 

Cl 

238 

CLOSEW 

Cl  w 

497 

CLR 

534 

CLS 

170 

COLOR 

Co 

107 

CONT 

Con 

76 

CONTRL 

504 

COS 

323 

CRSCOL 

534 

CRSLIN 

534 

CVD 

128 

CVF 

128 

CVI 

128 

CVL 

128 

CVS 

128 

DATA 

D 

86 

DATES 

149 

DEC 

143 

DEFFILL 

Deff 

117 

DEFFN 

327 

DEFLINE 

De 

111 

DEFLIST 

Dcflis 

232 

DEFMARK 

Defm 

287 

DEFMOUSE 

Defmo 

71 

defnum 

Defn 

535 

DBFTEXT 

Deft 

135 

DFREE 

247 

DIM 

Di 

67 

DIM? 

69 

DIR 

225 
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DIRS 

225 

DIV 

144 

DO 

146 

DOWNTO 

@2 

DPEEK 

102 

DPOKE 

99 

DRAW 

Dr 

404 

EDIT 

Ed 

75 

ELLIPSE 

Etl 

272 

ELSE 

El 

62 

END 

76 

ENDIF 

En 

62 

EOF 

239 

erase 

Er 

70 

ERR 

213 

ERROR 

Err 

215 

EVEN 

536 

EXEC 

536 

EXIST 

63 

EXIT  IF 

E 

147 

EXP 

279 

FALSE 

538 

FATAL 

214 

FIELD 

Fi 

246 

FILES 

File 

227 

FILES  ELECT 

Filese 

196 

FILL 

Fi 

176 

FIX 

159 

FN 

329 

FOR 

F 

82 

FORM  INPUT 

F  m input 

211 

FORM  INPUT  AS 

F  in  input  as 

538 

FRAC 

159 

FRE 

88 

GB 

499 

GCONTRL 

498 

GEMDOS 

508 
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GEMSYS 

497 

GET 

114 

GET  # 

246 

GINTIN 

499 

GOSUB 

GO  ou  @ 

61 

GOSUB  nom  de  procedure  list  e  de  parametres) 

79 

GOTO  label 

Got 

65 

GRAPHMODE 

G 

105 

HARDCOPY 

H 

167 

HEXS 

122 

HiDEM 

Hi 

539 

IIIMEM 

540 

IF 

I 

62 

INC 

In 

143 

INFOW 

Inf 

479 

INKEYS 

152 

INP 

129 

INF? 

540 

INPUT 

Inp 

207 

INPUTS 

209 

INSTR 

218 

INT 

157 

INTIN 

504 

INTOUT 

505 

KILL 

K 

198 

LEFTS 

217 

LEN 

152 

LET 

Le 

216 

LINE 

Li 

188 

LINE  INPUT 

Li  input 

210 

LIST 

Lis 

231 

LLIST 

LI 

378 

LOAD 

Lee 

228 

LOC 

240 

LOCAL 

Loc 

81 

LOF 

238 
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LOG 

326 

LOGiO 

326 

LOOP 

L 

146 

LPEEK 

102 

LPOKE 

Lp 

99 

LPOS 

378 

LPRINT 

Lpr 

377 

LSET 

Ls 

219 

MAX 

471 

MENU  KILL 

Me  Kill 

497 

MENU  menu 

493 

MENU  menutexlSC) 

Me  arraySO 

477 

MENU  OFF 

Me  Off 

491 

MENU(Index) 

486 

MIDS 

217 

MID$0*» 

541 

MIN 

471 

MKD$ 

127 

MKDIR 

Mk 

223 

MKFS 

127 

MKTS 

127 

MKLS 

127 

MKSS 

127 

MONITOR 

Mon 

542 

MOUSE 

M 

155 

MOUSEK 

156 

MOUSEX 

156 

MOUSEY 

156 

MUL 

Mu 

144 

NAME 

Na 

222 

NEW 

78 

NEXT 

N 

82 

OCT$ 

122 

ODD 

544 

ON  BREAK  gosub 

62 

ON  ERROR  GOSUB 

212 

ON  GOSUB 

340 
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ON  MENU 

483 

ON  MENU  BUTTON  GOSUB 

545 

ON  MENU  GOSUB 

481 

ON  MENU  IBOX  GOSUB 

482 

ON  MENU  KEY  GOSUB 

481 

ON  MENU  MESSAGE  GOSUB 

481 

ON  MENU  OBOX  GOSUB 

482 

OPEN 

0 

235 

OPENW 

0  W 

478 

OPTION 

Opt 

547 

OPTION  BASE 

Opt  Base 

547 

OUT 

Ou 

130 

OUT? 

548 

PAUSE 

Pa 

160 

PBOX 

Pb 

133 

PCIRCLE 

Pc 

263 

PEEK 

102 

PELLIPSE 

Pe 

271 

PI* 

326 

PLOT 

PI 

403 

POINT 

402 

POKE 

Po 

99 

POLYFILL 

Polyf 

257 

POLYLINE 

Pol 

257 

POLYMARK 

Poiym 

257 

POS 

203 

PR  BOX 

Prb 

261 

PRINT 

P  bzw.  ? 

199 

PRINT  USING 

P  Using 

205 

PROCEDURE 

Pro 

63 

PROCEDURE  nom(li$te  de  variables  locales) 

79 

PSAVE 

Ps 

229 

PTSIN 

505 

PTSOUT 

505 

PUT 

Pu 

114 

PUT  # 

Pu 

246 

QUIT 

Q 

77 
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RANDOM 

171 

RBOX 

Rb 

262 

READ 

Rea 

86 

RELSEEK 

Rel 

241 

REM 

R  bzw.  * 

87 

REPEAT 

Rep 

141 

RESERVE 

Rese 

549 

RESTORE 

Res 

78 

RESUME 

Resu 

213 

RETURN 

Ret 

61 

RIGHTS 

217 

RMDIR 

Rm 

225 

RND 

171 

RSET 

Rs 

219 

RUN 

Ru 

78 

SAVE 

Sa 

229 

SDPOKE 

Sd 

101 

SEEK 

See 

241 

SETCOLOR 

Se 

108 

SETTIME 

Sett 

150 

SGET 

Sg 

550 

SGN 

278 

SHOWM 

Sh 

552 

SIN 

323 

SLPOKE 

SI 

101 

SOUND 

So 

463 

SPACES 

84 

SPC 

202 

SPOKE 

Sp 

101 

SPRITE 

Spr 

73 

SPUT 

Spy 

552 

SQR 

277 

STEP 

82 

STOP 

St 

76 

STRS 

131 

STRINGS 

84 

SUB 

S 

144 

SWAP 

Sw 

168 

SYSTEM 

Sy 

77 
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TAB 

204 

TAN 

323 

TEXT 

T 

137 

TIMES 

149 

TIMER 

148 

TITLEW 

Tit 

480 

TO 

82 

TROFF 

471 

TRON 

471 

TRUE 

553 

TRUNC 

158 

TYPE 

553 

UNTIL 

U 

141 

UPPERS 

85 

VAL 

132 

VAL? 

133 

VARPTR 

88 

VD1BASE 

554 

VDISYS 

503 

VOID 

Vo 

556 

VSYNC 

Vs 

556 

WAVE 

Wa 

464 

WEND 

We 

145 

WHILE 

W 

145 

WINDTAB 

483 

WRITE 

Wr 

206 

XBIQS 

513 
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Index 


Adresse  d'arbrc  d’objets 

499 

Adresse  d’objet 

532 

Adresse  de  bloc 

529 

Adresse  de  chaine 

94 

Adresse  dcfinie 

531 

Adresse  de  tableau 

93 

Adresse^memoi  re 

532 

Adresses  AES 

499 

AES 

498 

Alternate 

488 

Appel  de  fonetion 

328-556 

Appel  du  compilatcur 

579 

Arc  de  cercle 

263 

ASCII 

142-489 

AUX: 

237-540-549 

Back  trailer 

91 

Barre  de  deplacement 

488 

Barre  HSLIDE 

484 

IBarre  MOVE 

480-484 

Barre  VSLIDE 

484 

Blancs 

84-201 

Bloc  d’information  de  base 

528 

Bloc  d*objet 

528 

Bloc  de  para  metres  sur  disque 

512 

Bloc  sous  VDI 

555 

Blocs  de  donnees 

66 

Boite  d’alarme 

75-162-164-514 

Boite  Move 

500 

Bombes 

214-585 

Boucle 

83-141-145 

Boucfe  d’atteme 

154 

Bouton  de  la  boite  du  compilatcur 

586 
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Branchemenl  340 

Branchement  de  programme  58 1 

Canal  de  son  515 

Caraclere  special  237 

Caractere  de  contrOle  130-143-587 

Cercle  263 

Cercle  de  couleur  109 

Chaine  a  rechercher  218 

Chaine  de  sprite  74 

Champ  CLOSE  484 

Champ  de  valeurs  49 1 

Champ  FULL  484 

Champ  SIZE  484 

Changement  de  disquettes  512 

Chiffre  arrondi  535 

Clipping  1 34 

Code  d’erreur  213 

Code-machine  577 

Colonne  du  curseur  203-534 

Commentaire  526 

Compilateur  RAM  576 

Compteur  de  programme  584 

CON:  237-540-549 

Condition  d’interruplion  145 

Control  488 

Control/Shift/ Alternate  62-1 46 -47 5 

Contrite  de  programme  47 1 

Couleur  de  masque  73 

Curseur  de  la  souris  539-552 

D.ragbox  50 1 

Date  149 

Debugger  542 

Decrement  1 44 

Definition  des  dimensions  67 

Degre  323 

Descriptor  90 

Descripteur  de  format  205 

Desk-Accessories  476 
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Disk -Buffer 
DOSOUND 

♦ 

Hcran  du  TOS 

Ecrtlure  de  desktop 

Ef facer  memoire  principal 

Element  de  bord  de  la  fenetre 

Elements  de  bord 

Elements  de  tableau 

Ellipse 

Enveloppe 

Erreurs  de  bombes 

Espacement  de  carac  teres 

Espacement  de  mot 

Efat  des  touches  de  la  souris 

Event 

Event  de  menu 
Extensions  d’ i  nstruct  ion 

FAT  - 

Fichier  acces  aleatoire 
Fichier  acces  direct 
Fichier  ASCII 
Fonction 

Fonction  arithmelique 
Fonction  d’ interruption 
Fonctions  de  desktop 
Fonctions  de  temps 
Fondu  des  couleurs 
Format  d'affichage 
Format  d’oetets 
Format  de  mot 
Forme  de  souris 
Forme  de  sprite 
Frequence  Repeat 

Garbage-Collection 

GEM 

Gestion  de  fichier 
GET  # 


510 

514-517 

200 

479 

78 

479 

483 

67-69 

272 

464-516 

214-585-586 

138 

138 

155 

481 

48L 

544 

512 
237 
243 
232 
327 
278 

2 1  -58 1 
292 
149 
108 
205 
100 
100 
71-73 
74 

513 

89 

497 

235 

246 
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GINTIN 

498 

Handle 

488 

Hauteur  des  caracteres 

136 

Heure 

149 

Identificaieur 

531 

I  KB: 

131  237 

Image  de  souris 

71 

Imprimante 

377 

Increment 

144 

Indication  de  chemin 

63-226 

Indice  de  debut 

547 

Instruction  sous  TOS 

201 

Instructions  d’interruption 

76 

Label 

65 

Lancement  automatique 

230 

Largeur  de  pas 

82 

ITargeur  de  trait 

1 1 1 

Ligne  ’Info’ 

480-484*491 

Ligne  de  commande 

537-591 

Ligne  de  litre 

480 

Ligne  du  curseur 

535 

Ligne  suivante 

211 

Ltste  de  parametres 

79*458 

Lisle  de  variabfes 

526 

Listing 

231 

Logarithme 

327 

Logarithme  ncpcrien 

279-327 

Longueur  d’enregistrement 

238-242 

Longueur  de  I'enregist remen t 

238-243 

LST: 

237-540-549 

Majuscules 

85 

Manipulations  de  memoire 

523-532 

Memoire  principal  BASIC 

549 

Memoire-ecran 

116-551 

Menu  deroulant 

472 

Message  d'erreur 

216-583 
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MID;  237-540-549 

MIDI  514 

Mode  direct  19 

Mode  Interrupt  514 

Mode  de  resolution  i  1 6 

Motif  de  remplissage  117-120-176 

Musique  465 

Nom  de  ehemin  196-225 

Nom  de  fichier  223-226 

Nombre  k  virgule  flottante  99 

Nombre  aleato  ire  171 

Note  463 

Numero  de  canal  236 

Numgro  de  fonction  498-503 

Octave  463 

Opcode  504 -508  -5 1 6 

Operations  d’echange  168 

Operations  de  resolution  115 

Orientation  de  texte  136 

Palette  de  couleurs  513 

Partie  de  fichier  531 

Pauses  161 

PC  584 

Periode  de  bruit  515 

Pile  543 

Place-memoire  247 

Point  d’action  7 1 

Point  de  l'ecran  402-403 

Pointeur  527-553 

Pointeur  de  lecture  DATA  79 

Port  de  console  237 

Port  de  rimprimante  237 

Port  de  Pinterface  serie  237 

Ports  MIDI  237 

Position  de  pointeur  de  fichier  131-531 

Position  du  curseur  204-279 

PRN:  237 
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Processeur  de  clavier  237 


Processus  de  remplissage 

176 

Programme  compile 

Prog  ram  me-mach  ine 

Programme-machine  compile  en  C 

Puce  de  son 

580-581-586 

459-576 

458 

514 

Racine 

Radian 

Registre 

Registre  d’adresses 

Registre  de  couleurs 

Registre  de  donnees 

Registre  de  son 

Repertoire 

Replace 

Representation  de  listing 

Resolution  de  Pecran 

Retour  chariot 

Revers  transparent 

RGB 

Routine  de  debut  .PEG 

Routine  de  traitement  d’erreurs 

278 

323 

518 

543 

108 

543 

518 

197-225 

105 
231 
513 

200-211 

106 
108 
579 
590 

Saisie 

Scan^ode 

Scrolling  de  page-6eran 

Secteurs 

Sequences  Escape  sous  TOS 

Sh  write 

SID 

Signe  mo  ins/ plus 

Splitting 

Structure  de  menu 

Structure  de  tableau 

Structure  hterarchique 

Superstackpo  inter 

Superviseur 

Surface  de  travail 

Switch 

208 

153 

532 

511 

587 

591 

537-542 

278 

495 

476 

69 

63 

543 

101 

491*496 

488 
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Symbole  de  test  493 

Symbol©  de  marquage  287 

Systeme  binaire  122 

Systeme  de  nombr©  1 22 

Systeme  decimal  122 

Systdme  hexadecimal  122 

Systeme  octal  122 

Tableau  90-254 

Tableau  de  menu  475-494 

Tableau  de  parametres  504 

Tableaux  de  donn£es  67-242 

Tabulation  204 

Taille  cluster  5 1 2 

Taille  de  ftchier  228 

Taille  de  la  memoire  549 

Taille  de  secteur  5 1 2 

Taille  de  texte  couleur  98 

Tampon  de  clavier  154 

Test  de' conditions  63 

Tete  de  Pimprimante  377 

Texte  de  menu  492 

Texte  de  programme  source  578 

Titre  d’accessoire  476 

Titre  de  menu  475-492 

Touches  de  fonct ion  153 

Touch©  special©  153 

Tragage  de  trait  258 

Traitement  de  son  517 

Transparent  106 

TR  A  PV -Interrupt  583 

Tremblemem  interferentiel  557 

Type  de  caracter©  1 36 

Type  de  trait  111 

Type  de  variables  98-553 

Typ©  de  fonction  327 

Untie  de  disquett©  228-247-509 

Userstackpointer  543 
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Valeur  absolue 

278 

Valcur  boolccnne 

62-538-553 

Variable  entiere 

83 

Variables  booleennes 

98-99 

Variables  de  chaine 

98 

Variables  de  nombres  reels 

98 

Variables  entieres 

98 

Variables  locales 

79 

VDl 

498-503 

Vecteur  deception 

542-585 

VID: 

237 

Window -Event 

481 

WM  ARROWED 

487 

WM  CLOSED 

487 

WM  FULLED 

487 

WM  HSLID 

487 

WM  MOVED 

487 

WM  REDRAW 

486 

WM  SELECTED 

486 

WM  SIZED 

487 

WM  TOPPED 

486 

WM  VSLID 

487 

XOR 

106 

Zone-ecran 

529 

Zone-memoire 

1 14-482-528-532 
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ANNEXE  I 

Le  nouveau  BASIC  GfA  2.02 


INTERPRETEUR 

Void  la  liste  des  ameliorations  apportees  au  BASIC  GfA  : 


ANALYSEUR  SYNTAX  I  QUE  PLUS  PUISSANT 
Le s  commandes  suivantes  sont  maintenaiU  possibles  : 

-  Input  Listing 

-  Loop  Instruction 

-  Loop=9  Variable 

-  Loop  (3)=7  Tableau 

-  @Loop  (4)  ou  Gosub  Loop  (5)  Appel  de  procedure 

-  Menu5(3K"  Variable  chaine  de  caracteres 

-  Locate  X.Y  devient  Print  At  (x,y)  ;  Positionnement  du  eurseur 

•  11  n’est  plus  necessaire  d’entrer *  *(a>m  ou  "Gosub"  avant  le  noin 
d'une  procedure. 


DEBOGUAGE 

II  n'y  a  plus  d'erreur  causee  par  les  instructions  DIM  ou  ERASE 
darts  une  procedure  contenant  des  variables -string  locales  qui 
portent  le  meme  nom  que  des  variables-string  globales  dc  longueur 
super ieu re  a  zero. 
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UNE  A OVVELLE  COMM  AN DE  : 

ON  MENU  Time 

On  peut  maintenant  specifier  un  dclai  avec  la  commande  Time  (en 
ms  =  1  /  i  000  secondc).  Le  BASIC  GfA  passe  alors  cette  valeur  k 
Evnt_multi  en  lan  l  quc  valeur  du  timer.  Ainsi,  fordinateur  at¬ 
tends  Time  ms  avant  de  revenir  au  BASIC  GfA,  sauf  si  un  evcnement 
se  produit  auparavant.  L’AES  dispose  alors  de  suffisamment  de  temps 
pour  tenir  compte  des  double-clics  et  il  peut  mieux  gerer  ses  ope¬ 
rations  lorsqu'on  rellche  les  touches  de  la  souris. 

Exemple  ; 

ON  MENU  BUTTON  3,1,1  G0SUB  button 
DO 

ON  MENU  1000 
PRINT  *#"; 

LOOP 

-  PROCEDURE  button 

PRINT  MENU(ifi);  !#  de  dice 

RETURN 

Ce  petit  programme  affiche  un  chaque  seconde.  Lorsqu’on  presse 
le  bouton  de  gauche  de  la  souris,  le  programme  affiche  le  n ombre 
de  declics  (I*  2  ou  3)  suivi  du  "#H  habitue!.  On  peut,  bien  sOr, 
effectuer  des  operations  plus  utiles  dans  un  programme  complet. 

11  est  important  de  declarer  ON  MENU  BUTTON  avant  la  commande, 
mime  si  la  procedure  est  sans  importance.  En  effet,  dans  le  cas 
comraire,  le  ON  MENU  revient  immediatement  au  BASIC  car  ON 
MENU  BUTTON  0,0,0  rat  r installation  par  defaut. 

L’interpreteur  Version  2.0  el  le  compilateur  1.8  (ou  anterieur) 
ignorent  le  time  dans  une  commande  ON  MENU. 
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COMPILATEUR  GfA  BASIC  2.02 


Le  code  produit  par  le  compilateur  esi  legeremeni  optimise  :  les 
comparisons  effeetuees  enire  des  valeurs  Integer  seront  compilees 
dans  un  code  plus  court  et  plus  rapide.  Cela  permet  de  gagner 
quatre  octets  par  compa raison  et  une  microseconde. 


Remarque  concernant  remploi  de  PRINT  USING  ; 

Lorsque  vous  desire*  afficher  me  liste  de  valeurs  ou  de  chaines  de 
caracteres  formatees  avec  PRINT  USING,  il  faut  specifier  entre 
guillemets  le  format  de  cheque  don  nee,  separe  par  on  espacc. 

Example  ; 


A=S34G67 
B— 123  456 
C-0123  4567 

Print*  Using  "##)¥-#  ###-##  ##*.AfB,C 
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NOTICE  DE  LA  DISQUETTE 

DU  LIVRE  GFA  BASIC 


Deux  programmes  presents  sur  ceite  disquene : 


-  GPROI040.BAS 


D'une  loille  de  148  K.  il  nc  pent  etre  utilise  que  sur 
1040  ST  indifferemment  coufeur  ou  monochrome. 


-  GPRO520.BAS 


D'une  taille  de  43  K,  el  destine  au  520  ST  Haute  Resolution 
(N  et  B). 


Dans  les  deux  cas,  le  TOS  en  ROM  est  obligator  re.  les  programmes 
GR APPRO  peuvent  etre  lances  apres  le  chargement  du  BASIC  GFA 


Les  utilisateurs  trouveront  les  informations  relatives  au  fonc- 
tionnement  de  GRAF.PRO  dans  Pannexe  B  de  ce  livre.  page  601. 


ACHETEZ 

LA 

D1SQUETTE 


Ce  livre  ms 
*  ■ 


passime,  ms 

1 

f  £ 

m  n'avei  pas  le 

1  O 

1  2 

temps  de  taper  les 

1  < 
12 

programmes.  j 

l  2 
1  O 

l  u 

Conamkz  urn  la 

a  UJ 

Q 

diskette  des 

<g 

•  m 

Ui 

programmes  du ; 

J 

b- 

liwe 

1 

1 

1 

>■ 

»* 

1 

i 

i 

i 

(y 

** 

CJ 

3- 

LE  LIVRE 

i 

i 

i 

es 

-  b 

’S 

«  h  v* 

DU  GFA  BASIC 

i 

i 

I 

i. 

NOM  : 

PRENOM  : 

ADRESSE 

CODE  POS 

Je  desire  re 

Ui 

u. 

o 

IH 


■  ■ 


& 

u 

u 


Ui 
U i 

o 

rs 


CpI 

3 

cr 

JE 

U 


£ 

O 

& 


o 

u 

o 

U 


U 

« 

H 

< 

Z 

o 

Cfi 


w 

H 

< 

© 


Achcvi  d'imprimcr  cn  uctubre  19H7 
sur  lcs  presses  tie  rimpnmcnc  Latwtlery 
5850(i  Clamccy 
Otffioi  16gat ;  octubrc  1987 
Num£ro  d'impression  :  7)0016 


